Changeset adeddd8 in git for external/tcl/tclBasic.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/tclBasic.c (modified) (1 diff)

external/tcl/tclBasic.c

@@ -3287 +3287 @@
             TclInitByteCodeObj(objPtr, &compEnv);
             codePtr = (ByteCode *) objPtr->internalRep.otherValuePtr;
-            if (tclTraceCompile == 2) {
-                TclPrintByteCodeObj(interp, objPtr);
-            }
             TclFreeCompileEnv(&compEnv);
         } else {