diff options
| author | andy <andrew.m.goth@gmail.com> | 2016-11-24 19:21:12 (GMT) |
|---|---|---|
| committer | andy <andrew.m.goth@gmail.com> | 2016-11-24 19:21:12 (GMT) |
| commit | 088a851f2d1915d2ca3f3896feb454c3b96b0b18 (patch) | |
| tree | 751d3e23feb6590c7b89da3d73fae34d7ccaadd7 /generic/tclDisassemble.c | |
| parent | d38a0b78165c57c6689c651906b1306d53f6e2fa (diff) | |
| download | tcl-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.
Diffstat (limited to 'generic/tclDisassemble.c')
| -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 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, |