diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2010-09-27 20:16:30 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2010-09-27 20:16:30 (GMT) |
| commit | 76ae3756ac54d0957e5d6c430aec55b52ccc0bf3 (patch) | |
| tree | 76504d3171fc85daf70d083ae83dd1340258fcff | |
| parent | 15f4d2dbf9683be292e547a910733a6e842b5eed (diff) | |
| download | tcl-76ae3756ac54d0957e5d6c430aec55b52ccc0bf3.zip tcl-76ae3756ac54d0957e5d6c430aec55b52ccc0bf3.tar.gz tcl-76ae3756ac54d0957e5d6c430aec55b52ccc0bf3.tar.bz2 | |
fix error with --enable-symbols=compile
| -rw-r--r-- | generic/tclExecute.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 4e6cb31..705d836 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -14,7 +14,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.499 2010/09/27 19:42:38 msofer Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.500 2010/09/27 20:16:30 msofer Exp $ */ #include "tclInt.h" @@ -1934,14 +1934,6 @@ TclNRExecuteByteCode( bcFramePtr->cmd.str.cmd = NULL; bcFramePtr->cmd.str.len = 0; -#ifdef TCL_COMPILE_DEBUG - if (tclTraceExec >= 2) { - PrintByteCodeInfo(codePtr); - fprintf(stdout, " Starting stack top=%d\n", (int) CURR_DEPTH); - fflush(stdout); - } -#endif - #ifdef TCL_COMPILE_STATS iPtr->stats.numExecutions++; #endif @@ -2069,6 +2061,14 @@ TEBCresume( NR_DATA_DIG(); +#ifdef TCL_COMPILE_DEBUG + if (!data[1] && (tclTraceExec >= 2)) { + PrintByteCodeInfo(codePtr); + fprintf(stdout, " Starting stack top=%d\n", (int) CURR_DEPTH); + fflush(stdout); + } +#endif + if (data[1] /* resume from invocation */) { if (iPtr->execEnvPtr->rewind) { result = TCL_ERROR; |