diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-06-11 19:41:55 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-06-11 19:41:55 (GMT) |
| commit | 236502157da38dfe3835d0daf426c2d2a0664160 (patch) | |
| tree | 4b9a924722658c9693c0a2187fa8c6a04cc0cf39 /generic/tclCompile.c | |
| parent | d29536641dcd82c9373cc5835f9fd879194620e8 (diff) | |
| download | tcl-236502157da38dfe3835d0daf426c2d2a0664160.zip tcl-236502157da38dfe3835d0daf426c2d2a0664160.tar.gz tcl-236502157da38dfe3835d0daf426c2d2a0664160.tar.bz2 | |
Repairs to compile/exec debugging output.
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index c361430..f6e0554 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -1232,7 +1232,12 @@ CompileSubstObj( codePtr->localCachePtr = iPtr->varFramePtr->localCachePtr; codePtr->localCachePtr->refCount++; } - /* TODO: Debug printing? */ +#ifdef TCL_COMPILE_DEBUG + if (tclTraceCompile >= 2) { + TclPrintByteCodeObj(interp, objPtr); + fflush(stdout); + } +#endif /* TCL_COMPILE_DEBUG */ } return codePtr; } |