Changeset 2f5c82f1 in tol for toltcl/generic/tolaccess.cpp

Timestamp:

Feb 1, 2012, 6:50:51 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

2a670e5

Parents:

60dd1b2

Message:

refs #1409, release info is no used

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@4051 be4846ae-f051-483a-831f-b64e7d08527f

File:

• toltcl/generic/tolaccess.cpp (modified) (2 diffs)

toltcl/generic/tolaccess.cpp

@@ -1785 +1785 @@
 int Tol_InfoVersion( Tcl_Interp * interp,  Tcl_Obj * obj_result )
 {
-#define VERSION_INFO_SIZE 4*2
+#define VERSION_INFO_SIZE 3*2
  
   Tcl_Obj * items[VERSION_INFO_SIZE];
@@ -1796 +1796 @@
   items[2] = Tcl_NewStringObj( "minor", -1 );
   items[3] = Tcl_NewIntObj( VERSION_MINOR );
-  /* Release Info */
-  items[4] = Tcl_NewStringObj( "release", -1 );
-  sprintf(buffer,"%d", VERSION_RELEASE);
-  items[5] = Tcl_NewStringObj(buffer, -1);
   /* Comment Info */
-  items[6] = Tcl_NewStringObj( "comment", -1 );
-  items[7] = Tcl_NewStringObj(TOLVersionBuild(), -1 );
+  items[4] = Tcl_NewStringObj( "comment", -1 );
+  items[5] = Tcl_NewStringObj(TOLVersionBuild(), -1 );
   /* asign the items to the result list */
   Tcl_SetListObj( obj_result, VERSION_INFO_SIZE, items );