Experimental branch where the interp->result field and related are removed

and all simplifications that makes possible are done.  Seems this can at best
be a Tcl 9 reform.

1 files changed, 9 insertions, 7 deletions

diff --git a/generic/tcl.h b/generic/tcl.h
index 729e521..46266d2 100644
--- a/generic/tcl.h
+++ b/generic/tcl.h
@@ -499,7 +499,7 @@ typedef unsigned TCL_WIDE_INT_TYPE	Tcl_WideUInt;
  * Instead, they set a Tcl_Obj member in the "real" structure that can be
  * accessed with Tcl_GetObjResult() and Tcl_SetObjResult().
  */
-
+#if 0
 typedef struct Tcl_Interp {
     /* TIP #330: Strongly discourage extensions from using the string
      * result. */
@@ -529,6 +529,8 @@ typedef struct Tcl_Interp {
     int unused5 TCL_DEPRECATED_API("bad field access");
 #endif
 } Tcl_Interp;
+#endif
+typedef struct Tcl_Interp Tcl_Interp;
 
 typedef struct Tcl_AsyncHandler_ *Tcl_AsyncHandler;
 typedef struct Tcl_Channel_ *Tcl_Channel;
@@ -870,13 +872,13 @@ int		Tcl_IsShared(Tcl_Obj *objPtr);
  */
 
 typedef struct Tcl_SavedResult {
-    char *result;
-    Tcl_FreeProc *freeProc;
+    char *unused1;
+    Tcl_FreeProc *unused2;
     Tcl_Obj *objResultPtr;
-    char *appendResult;
-    int appendAvl;
-    int appendUsed;
-    char resultSpace[TCL_RESULT_SIZE+1];
+    char *unused3;
+    int unused4;
+    int unused5;
+    char unused6[TCL_RESULT_SIZE+1];
 } Tcl_SavedResult;
 
 /*