Changes in external/tcl/tclVar.c [adeddd8:d7d2da3] in git

File:

• external/tcl/tclVar.c (modified) (4 diffs)

external/tcl/tclVar.c

@@ -711 +711 @@
     char *msg;
 
+#ifdef TCL_COMPILE_DEBUG
+    Proc *procPtr = varFramePtr->procPtr;
+    int localCt = procPtr->numCompiledLocals;
+
+    if (compiledLocals == NULL) {
+        fprintf(stderr, "\nTclGetIndexedScalar: can't get local %i in frame 0x%x, no compiled locals\n",
+                localIndex, (unsigned int) varFramePtr);
+        panic("TclGetIndexedScalar: no compiled locals in frame 0x%x",
+                (unsigned int) varFramePtr);
+    }
+    if ((localIndex < 0) || (localIndex >= localCt)) {
+        fprintf(stderr, "\nTclGetIndexedScalar: can't get local %i in frame 0x%x with %i locals\n",
+                localIndex, (unsigned int) varFramePtr, localCt);
+        panic("TclGetIndexedScalar: bad local index %i in frame 0x%x",
+                localIndex, (unsigned int) varFramePtr);
+    }
+#endif /* TCL_COMPILE_DEBUG */
+    
     varPtr = &(compiledLocals[localIndex]);
     varName = varPtr->name;
@@ -814 +832 @@
     int new;
 
+#ifdef TCL_COMPILE_DEBUG
+    Proc *procPtr = varFramePtr->procPtr;
+    int localCt = procPtr->numCompiledLocals;
+
+    if (compiledLocals == NULL) {
+        fprintf(stderr, "\nTclGetElementOfIndexedArray: can't get element of local %i in frame 0x%x, no compiled locals\n",
+                localIndex, (unsigned int) varFramePtr);
+        panic("TclGetIndexedScalar: no compiled locals in frame 0x%x",
+                (unsigned int) varFramePtr);
+    }
+    if ((localIndex < 0) || (localIndex >= localCt)) {
+        fprintf(stderr, "\nTclGetIndexedScalar: can't get element of local %i in frame 0x%x with %i locals\n",
+                localIndex, (unsigned int) varFramePtr, localCt);
+        panic("TclGetElementOfIndexedArray: bad local index %i in frame 0x%x",
+                localIndex, (unsigned int) varFramePtr);
+    }
+#endif /* TCL_COMPILE_DEBUG */
+
     /*
      * THIS FAILS IF THE ELEMENT NAME OBJECT'S STRING REP HAS A NULL BYTE.
@@ -1413 +1449 @@
     Tcl_Obj *resultPtr = NULL;
 
+#ifdef TCL_COMPILE_DEBUG
+    Proc *procPtr = varFramePtr->procPtr;
+    int localCt = procPtr->numCompiledLocals;
+
+    if (compiledLocals == NULL) {
+        fprintf(stderr, "\nTclSetIndexedScalar: can't set local %i in frame 0x%x, no compiled locals\n",
+                localIndex, (unsigned int) varFramePtr);
+        panic("TclSetIndexedScalar: no compiled locals in frame 0x%x",
+                (unsigned int) varFramePtr);
+    }
+    if ((localIndex < 0) || (localIndex >= localCt)) {
+        fprintf(stderr, "\nTclSetIndexedScalar: can't set local %i in frame 0x%x with %i locals\n",
+                localIndex, (unsigned int) varFramePtr, localCt);
+        panic("TclSetIndexedScalar: bad local index %i in frame 0x%x",
+                localIndex, (unsigned int) varFramePtr);
+    }
+#endif /* TCL_COMPILE_DEBUG */
+    
     varPtr = &(compiledLocals[localIndex]);
     varName = varPtr->name;
@@ -1581 +1635 @@
     int new;
     
+#ifdef TCL_COMPILE_DEBUG
+    Proc *procPtr = varFramePtr->procPtr;
+    int localCt = procPtr->numCompiledLocals;
+
+    if (compiledLocals == NULL) {
+        fprintf(stderr, "\nTclSetElementOfIndexedArray: can't set element of local %i in frame 0x%x, no compiled locals\n",
+                localIndex, (unsigned int) varFramePtr);
+        panic("TclSetIndexedScalar: no compiled locals in frame 0x%x",
+                (unsigned int) varFramePtr);
+    }
+    if ((localIndex < 0) || (localIndex >= localCt)) {
+        fprintf(stderr, "\nTclSetIndexedScalar: can't set elememt of local %i in frame 0x%x with %i locals\n",
+                localIndex, (unsigned int) varFramePtr, localCt);
+        panic("TclSetElementOfIndexedArray: bad local index %i in frame 0x%x",
+                localIndex, (unsigned int) varFramePtr);
+    }
+#endif /* TCL_COMPILE_DEBUG */
+
     /*
      * THIS FAILS IF THE ELEMENT NAME OBJECT'S STRING REP HAS A NULL BYTE.