diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2001-09-17 11:51:58 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2001-09-17 11:51:58 (GMT) |
| commit | a073fa09353e6e69476cbbb61777eedd0af5cc19 (patch) | |
| tree | 8d421de00c0ee265de3125e57592960228683965 /generic/tclCompile.c | |
| parent | e670c6f17e7ac704c3c6f117912e45313254d4d9 (diff) | |
| download | tcl-a073fa09353e6e69476cbbb61777eedd0af5cc19.zip tcl-a073fa09353e6e69476cbbb61777eedd0af5cc19.tar.gz tcl-a073fa09353e6e69476cbbb61777eedd0af5cc19.tar.bz2 | |
Disabled all compile and execution tracing functionality in standard
builds [Bug 451858].
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 8250b7e..6bd7ca2 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompile.c,v 1.23 2001/09/04 11:54:27 msofer Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.24 2001/09/17 11:51:58 msofer Exp $ */ #include "tclInt.h" @@ -34,8 +34,10 @@ TCL_DECLARE_MUTEX(tableMutex) * This variable is linked to the Tcl variable "tcl_traceCompile". */ +#ifdef TCL_COMPILE_DEBUG int tclTraceCompile = 0; static int traceInitialized = 0; +#endif /* * A table describing the Tcl bytecode instructions. Entries in this table @@ -340,6 +342,7 @@ TclSetByteCodeFromAny(interp, objPtr, hookProc, clientData) int length, nested, result; char *string; +#ifdef TCL_COMPILE_DEBUG if (!traceInitialized) { if (Tcl_LinkVar(interp, "tcl_traceCompile", (char *) &tclTraceCompile, TCL_LINK_INT) != TCL_OK) { @@ -347,6 +350,7 @@ TclSetByteCodeFromAny(interp, objPtr, hookProc, clientData) } traceInitialized = 1; } +#endif if (iPtr->evalFlags & TCL_BRACKET_TERM) { nested = 1; @@ -384,7 +388,7 @@ TclSetByteCodeFromAny(interp, objPtr, hookProc, clientData) TclInitByteCodeObj(objPtr, &compEnv); #ifdef TCL_COMPILE_DEBUG - if (tclTraceCompile == 2) { + if (tclTraceCompile >= 2) { TclPrintByteCodeObj(interp, objPtr); } #endif /* TCL_COMPILE_DEBUG */ @@ -871,6 +875,7 @@ TclCompileScript(interp, script, numBytes, nested, envPtr) commandLength -= 1; } +#ifdef TCL_COMPILE_DEBUG /* * If tracing, print a line for each top level command compiled. */ @@ -882,7 +887,7 @@ TclCompileScript(interp, script, numBytes, nested, envPtr) TclMin(commandLength, 55)); fprintf(stdout, "\n"); } - +#endif /* * Each iteration of the following loop compiles one word * from the command. |