summaryrefslogtreecommitdiffstats
path: root/generic/tclDisassemble.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2013-06-17 14:04:28 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2013-06-17 14:04:28 (GMT)
commit60c48207275926d160a50ab91108f28ae7475040 (patch)
tree09e45e26f12058e124e4689ff8dba553117f61df /generic/tclDisassemble.c
parent5318e02134708884c49c74419b36f34da125b85f (diff)
downloadtcl-60c48207275926d160a50ab91108f28ae7475040.zip
tcl-60c48207275926d160a50ab91108f28ae7475040.tar.gz
tcl-60c48207275926d160a50ab91108f28ae7475040.tar.bz2
Remove extra scribblings not normally needed. Thanks to jdc for suggestion.
Diffstat (limited to 'generic/tclDisassemble.c')
-rw-r--r--generic/tclDisassemble.c4
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));
}