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/tclExecute.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/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index c420e95..7ce214b 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.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: tclExecute.c,v 1.29 2001/09/03 17:34:16 hobbs Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.30 2001/09/17 11:51:58 msofer Exp $ */ #include "tclInt.h" @@ -51,6 +51,7 @@ int errno; static int execInitialized = 0; TCL_DECLARE_MUTEX(execMutex) +#ifdef TCL_COMPILE_DEBUG /* * Variable that controls whether execution tracing is enabled and, if so, * what level of tracing is desired: @@ -62,6 +63,7 @@ TCL_DECLARE_MUTEX(execMutex) */ int tclTraceExec = 0; +#endif typedef struct ThreadSpecificData { /* @@ -358,11 +360,12 @@ InitByteCodeExecution(interp) * instruction tracing. */ { Tcl_RegisterObjType(&tclCmdNameType); +#ifdef TCL_COMPILE_DEBUG if (Tcl_LinkVar(interp, "tcl_traceExec", (char *) &tclTraceExec, TCL_LINK_INT) != TCL_OK) { panic("InitByteCodeExecution: can't create link for tcl_traceExec variable"); } - +#endif #ifdef TCL_COMPILE_STATS Tcl_CreateCommand(interp, "evalstats", EvalStatsCmd, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); @@ -555,7 +558,9 @@ TclExecuteByteCode(interp, codePtr) * instructions and processCatch to * process break, continue, and errors. */ int result = TCL_OK; /* Return code returned after execution. */ +#ifdef TCL_COMPILE_DEBUG int traceInstructions = (tclTraceExec == 3); +#endif Tcl_Obj *valuePtr, *value2Ptr, *objPtr, *elemPtr; char *bytes; int length; @@ -614,7 +619,6 @@ TclExecuteByteCode(interp, codePtr) #ifdef TCL_COMPILE_DEBUG ValidatePcAndStackTop(codePtr, pc, stackTop, initStackTop, eePtr->stackEnd); -#else /* not TCL_COMPILE_DEBUG */ if (traceInstructions) { fprintf(stdout, "%2d: %2d ", iPtr->numLevels, stackTop); TclPrintInstruction(codePtr, pc); @@ -849,8 +853,8 @@ TclExecuteByteCode(interp, codePtr) */ Tcl_ResetResult(interp); - if (tclTraceExec >= 2) { #ifdef TCL_COMPILE_DEBUG + if (tclTraceExec >= 2) { if (traceInstructions) { strncpy(cmdNameBuf, Tcl_GetString(objv[0]), 20); TRACE(("%u => call ", (isUnknownCmd? objc-1:objc))); @@ -865,13 +869,8 @@ TclExecuteByteCode(interp, codePtr) } fprintf(stdout, "\n"); fflush(stdout); -#else /* TCL_COMPILE_DEBUG */ - fprintf(stdout, "%d: (%u) invoking %s\n", - iPtr->numLevels, - (unsigned int)(pc - codePtr->codeStart), - Tcl_GetString(objv[0])); -#endif /*TCL_COMPILE_DEBUG*/ } +#endif /*TCL_COMPILE_DEBUG*/ iPtr->cmdCount++; DECACHE_STACK_INFO(); |