summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorandy <andrew.m.goth@gmail.com>2016-11-24 19:21:12 (GMT)
committerandy <andrew.m.goth@gmail.com>2016-11-24 19:21:12 (GMT)
commit088a851f2d1915d2ca3f3896feb454c3b96b0b18 (patch)
tree751d3e23feb6590c7b89da3d73fae34d7ccaadd7
parentd38a0b78165c57c6689c651906b1306d53f6e2fa (diff)
downloadtcl-088a851f2d1915d2ca3f3896feb454c3b96b0b18.zip
tcl-088a851f2d1915d2ca3f3896feb454c3b96b0b18.tar.gz
tcl-088a851f2d1915d2ca3f3896feb454c3b96b0b18.tar.bz2
Partially backout [ef4da65408] because AppendPrintfToObjVA() (used indirectly by [tcl::unsupported::disassemble]) does not yet support wide and bignum arguments. This fixes a SIGSEGV in compile.test and makes [disassemble] work again.
-rw-r--r--generic/tclDisassemble.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclDisassemble.c b/generic/tclDisassemble.c
index 88ff094..0d6da8e 100644
--- a/generic/tclDisassemble.c
+++ b/generic/tclDisassemble.c
@@ -272,8 +272,8 @@ DisassembleByteCodeObj(
sprintf(ptrBuf1, "%p", codePtr);
sprintf(ptrBuf2, "%p", iPtr);
Tcl_AppendPrintfToObj(bufferObj,
- "ByteCode 0x%s, refCt %" TCL_LL_MODIFIER "u, epoch %u, interp 0x%s (epoch %u)\n",
- ptrBuf1, (Tcl_WideInt)codePtr->refCount, codePtr->compileEpoch, ptrBuf2,
+ "ByteCode 0x%s, refCt %u, epoch %u, interp 0x%s (epoch %u)\n",
+ ptrBuf1, codePtr->refCount, codePtr->compileEpoch, ptrBuf2,
iPtr->compileEpoch);
Tcl_AppendToObj(bufferObj, " Source ", -1);
PrintSourceToObj(bufferObj, codePtr->source,