diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-17 14:04:28 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-17 14:04:28 (GMT) |
| commit | 60c48207275926d160a50ab91108f28ae7475040 (patch) | |
| tree | 09e45e26f12058e124e4689ff8dba553117f61df | |
| parent | 5318e02134708884c49c74419b36f34da125b85f (diff) | |
| download | tcl-60c48207275926d160a50ab91108f28ae7475040.zip tcl-60c48207275926d160a50ab91108f28ae7475040.tar.gz tcl-60c48207275926d160a50ab91108f28ae7475040.tar.bz2 | |
Remove extra scribblings not normally needed. Thanks to jdc for suggestion.
| -rw-r--r-- | generic/tclDisassemble.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclDisassemble.c b/generic/tclDisassemble.c index fa99eaf..7f0b11a 100644 --- a/generic/tclDisassemble.c +++ b/generic/tclDisassemble.c @@ -909,7 +909,7 @@ DisassembleByteCodeAsDicts( if (*pc == INST_JUMP1 || *pc == INST_JUMP_TRUE1 || *pc == INST_JUMP_FALSE1) { Tcl_ListObjAppendElement(NULL, inst, Tcl_ObjPrintf( - "pc %d (%d)", pc+val-codePtr->codeStart, val)); + "pc %d", pc+val-codePtr->codeStart)); } else { Tcl_ListObjAppendElement(NULL, inst, Tcl_NewIntObj(val)); } @@ -920,7 +920,7 @@ DisassembleByteCodeAsDicts( if (*pc == INST_JUMP4 || *pc == INST_JUMP_TRUE4 || *pc == INST_JUMP_FALSE4 || *pc == INST_START_CMD) { Tcl_ListObjAppendElement(NULL, inst, Tcl_ObjPrintf( - "pc %d (%d)", pc+val-codePtr->codeStart, val)); + "pc %d", pc+val-codePtr->codeStart)); } else { Tcl_ListObjAppendElement(NULL, inst, Tcl_NewIntObj(val)); } |