Subject: Remove extra scribblings not normally needed. Thanks to jdc for suggestion.

From: dkf <[email-masked]>
Date: Mon, 17 Jun 2013 14:04:28 +0000

---
 generic/tclDisassemble.c | 4 ++--
 1 file 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));
 		}
-- 
cgit v0.12