diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-27 11:24:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-27 11:24:32 (GMT) |
| commit | 17f327920becbb38bca60ea702051b9e3aa05149 (patch) | |
| tree | 1bbd46a3d4f7668cd8613b56e9e4ba34caf97754 /generic/tclAssembly.c | |
| parent | ee407b9bf60dbb8dac81770bcc01422decf03c2b (diff) | |
| parent | 208d3bc095fdd08edae1515322e61c85561a572a (diff) | |
| download | tcl-17f327920becbb38bca60ea702051b9e3aa05149.zip tcl-17f327920becbb38bca60ea702051b9e3aa05149.tar.gz tcl-17f327920becbb38bca60ea702051b9e3aa05149.tar.bz2 | |
Eliminate TclPrintByteCodeObj()'s 'interp' argument, which is not used. Fix some indenting.
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index 7bec144..cda5072 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -922,12 +922,7 @@ CompileAssembleObj( * Report on what the assembler did. */ -#ifdef TCL_COMPILE_DEBUG - if (tclTraceCompile >= 2) { - TclPrintByteCodeObj(interp, objPtr); - fflush(stdout); - } -#endif /* TCL_COMPILE_DEBUG */ + TclDebugPrintByteCodeObj(objPtr); return codePtr; } |