Clean version of changes; ifdef-free

1 files changed, 6 insertions, 37 deletions

diff --git a/generic/tclInt.h b/generic/tclInt.h
index 0d541a8..fa7c03c 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -1800,32 +1800,16 @@ typedef struct Interp {
      * Tcl_Interp struct (see tcl.h). If you change one, be sure to change the
      * other.
      *
-     * The interpreter's result is held in both the string and the
-     * objResultPtr fields. These fields hold, respectively, the result's
-     * string or object value. The interpreter's result is always in the
-     * result field if that is non-empty, otherwise it is in objResultPtr.
-     * The two fields are kept consistent unless some C code sets
-     * interp->result directly. Programs should not access result and
-     * objResultPtr directly; instead, they should always get and set the
-     * result using procedures such as Tcl_SetObjResult, Tcl_GetObjResult, and
-     * Tcl_GetStringResult. See the SetResult man page for details.
+     * The interpreter's result is held in the objResultPtr field. This field
+     * holds the result's object value. The interpreter's result is always in
+     * objResultPtr. Programs should not access objResultPtr directly;
+     * instead, they should always get and set the result using procedures
+     * such as Tcl_SetObjResult, Tcl_GetObjResult, and Tcl_GetStringResult.
+     * See the SetResult man page for details.
      */
 
-#if 0
-    char *result;		/* If the last command returned a string
-				 * result, this points to it. Should not be
-				 * accessed directly; see comment above. */
-    Tcl_FreeProc *freeProc;	/* Zero means a string result is statically
-				 * allocated. TCL_DYNAMIC means string result
-				 * was allocated with ckalloc and should be
-				 * freed with ckfree. Other values give
-				 * address of procedure to invoke to free the
-				 * string result. Tcl_Eval must free it before
-				 * executing next command. */
-#else
     char *unused3;
     Tcl_FreeProc *unused4;
-#endif
     int errorLine;		/* When TCL_ERROR is returned, this gives the
 				 * line number in the command where the error
 				 * occurred (1 means first line). */
@@ -1883,19 +1867,9 @@ typedef struct Interp {
      * See Tcl_AppendResult code for details.
      */
 
-#if 0
-    char *appendResult;		/* Storage space for results generated by
-				 * Tcl_AppendResult. Ckalloc-ed. NULL means
-				 * not yet allocated. */
-    int appendAvl;		/* Total amount of space available at
-				 * partialResult. */
-    int appendUsed;		/* Number of non-null bytes currently stored
-				 * at partialResult. */
-#else
     char *unused5;
     int unused6;
     int unused7;
-#endif
 
     /*
      * Information about packages. Used only in tclPkg.c.
@@ -1957,12 +1931,7 @@ typedef struct Interp {
 				 * string. Returned by Tcl_ObjSetVar2 when
 				 * variable traces change a variable in a
 				 * gross way. */
-#if 0
-    char resultSpace[TCL_RESULT_SIZE+1];
-				/* Static space holding small results. */
-#else
     char unused8[TCL_RESULT_SIZE+1];
-#endif
     Tcl_Obj *objResultPtr;	/* If the last command returned an object
 				 * result, this points to it. Should not be
 				 * accessed directly; see comment above. */