Changeset adeddd8 in git for external/tcl/tclVar.c

Timestamp:

May 29, 2019, 2:53:12 PM (5 years ago)

Author:

Pavel Demin <pavel-demin@…>

Branches:

ImprovedOutputFile, Timing, master

Children:

969eb19

Parents:

e15936c

Message:

remove debug code from Tcl

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;
@@ -832 +814 @@
     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.
@@ -1449 +1413 @@
     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;
@@ -1635 +1581 @@
     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.