diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-27 11:04:53 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-27 11:04:53 (GMT) |
| commit | 1019fc7dc38c97beab50b4151eaccf9de1174683 (patch) | |
| tree | 744bc526ea038b9ed87bfa3f99bf2df661c0c104 /generic/tclAssembly.c | |
| parent | 85d98f92fd33696034aab9f92955dc12ea3972ee (diff) | |
| download | tcl-1019fc7dc38c97beab50b4151eaccf9de1174683.zip tcl-1019fc7dc38c97beab50b4151eaccf9de1174683.tar.gz tcl-1019fc7dc38c97beab50b4151eaccf9de1174683.tar.bz2 | |
Eliminate TclPrintByteCodeObj()'s 'interp' argument, which is not used.
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 61eb319..e596a87 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -923,12 +923,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; } |