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 | 208d3bc095fdd08edae1515322e61c85561a572a (patch) | |
| tree | 744bc526ea038b9ed87bfa3f99bf2df661c0c104 /generic/tclCompile.h | |
| parent | b2214142f4719ab73e4979553e03e6daf1ad4508 (diff) | |
| download | tcl-208d3bc095fdd08edae1515322e61c85561a572a.zip tcl-208d3bc095fdd08edae1515322e61c85561a572a.tar.gz tcl-208d3bc095fdd08edae1515322e61c85561a572a.tar.bz2 | |
Eliminate TclPrintByteCodeObj()'s 'interp' argument, which is not used.
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 16bc972..d577b6a 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -1175,8 +1175,9 @@ MODULE_SCOPE Tcl_Size TclLocalScalarFromToken(Tcl_Token *tokenPtr, CompileEnv *envPtr); MODULE_SCOPE void TclOptimizeBytecode(void *envPtr); #ifdef TCL_COMPILE_DEBUG -MODULE_SCOPE void TclPrintByteCodeObj(Tcl_Interp *interp, - Tcl_Obj *objPtr); +MODULE_SCOPE void TclDebugPrintByteCodeObj(Tcl_Obj *objPtr); +#else +#define TclDebugPrintByteCodeObj(objPtr) (void)(objPtr) #endif MODULE_SCOPE int TclPrintInstruction(ByteCode *codePtr, const unsigned char *pc); |