Attachment "tclInt.h.patch" to
ticket [3008541fff]
added by
nijtmans
2010-05-28 20:30:59.
Index: generic/tclInt.h
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclInt.h,v
retrieving revision 1.476
diff -u -r1.476 tclInt.h
--- generic/tclInt.h 3 May 2010 14:36:40 -0000 1.476
+++ generic/tclInt.h 28 May 2010 13:16:45 -0000
@@ -1982,10 +1982,6 @@
Tcl_Obj *eiVar; /* cached ref to ::errorInfo variable. */
Tcl_Obj *errorCode; /* errorCode value (now as a Tcl_Obj). */
Tcl_Obj *ecVar; /* cached ref to ::errorInfo variable. */
- Tcl_Obj *errorStack; /* [info errorstack] value (as a Tcl_Obj). */
- Tcl_Obj *upLiteral; /* "UP" literal for [info errorstack] */
- Tcl_Obj *callLiteral; /* "CALL" literal for [info errorstack] */
- int resetErrorStack; /* controls cleaning up of ::errorStack */
int returnLevel; /* [return -level] parameter. */
/*
@@ -2144,15 +2140,6 @@
* tclOOInt.h and tclOO.c for real definition
* and setup. */
-#ifdef TCL_COMPILE_STATS
- /*
- * Statistical information about the bytecode compiler and interpreter's
- * operation.
- */
-
- ByteCodeStats stats; /* Holds compilation and execution statistics
- * for this interpreter. */
-#endif /* TCL_COMPILE_STATS */
struct TEOV_callback *deferredCallbacks;
/* Callbacks that are set previous to a call
* to some Eval function but that actually
@@ -2173,6 +2160,23 @@
* over the default error messages returned by
* a script cancellation operation. */
+ /*
+ * TIP #348 IMPLEMENTATION - Substituted error stack
+ */
+ Tcl_Obj *errorStack; /* [info errorstack] value (as a Tcl_Obj). */
+ Tcl_Obj *upLiteral; /* "UP" literal for [info errorstack] */
+ Tcl_Obj *callLiteral; /* "CALL" literal for [info errorstack] */
+ int resetErrorStack; /* controls cleaning up of ::errorStack */
+
+#ifdef TCL_COMPILE_STATS
+ /*
+ * Statistical information about the bytecode compiler and interpreter's
+ * operation. This should be the last field of Interp.
+ */
+
+ ByteCodeStats stats; /* Holds compilation and execution statistics
+ * for this interpreter. */
+#endif /* TCL_COMPILE_STATS */
} Interp;
/*