diff options
author | dgp <dgp@users.sourceforge.net> | 2017-04-06 11:53:51 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2017-04-06 11:53:51 (GMT) |
commit | 7c7bcbe9b76380874ac83600562b042efb49f254 (patch) | |
tree | 86ebc9565171af2239d110260fac0c03b487a852 /generic/tclDisassemble.c | |
parent | 4f6a6b4ed6efda964824902936df4058eecb5808 (diff) | |
parent | 0c57a249bb5672ca4ceafe4353d9f6a76a0d4505 (diff) | |
download | tcl-7c7bcbe9b76380874ac83600562b042efb49f254.zip tcl-7c7bcbe9b76380874ac83600562b042efb49f254.tar.gz tcl-7c7bcbe9b76380874ac83600562b042efb49f254.tar.bz2 |
merge trunk
Diffstat (limited to 'generic/tclDisassemble.c')
-rw-r--r-- | generic/tclDisassemble.c | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/generic/tclDisassemble.c b/generic/tclDisassemble.c index a727413..0433bea 100644 --- a/generic/tclDisassemble.c +++ b/generic/tclDisassemble.c @@ -263,7 +263,6 @@ DisassembleByteCodeObj( int codeOffset, codeLen, srcOffset, srcLen, numCmds, delta, i, line; Interp *iPtr; Tcl_Obj *bufferObj, *fileObj; - char ptrBuf1[20], ptrBuf2[20]; ByteCodeGetIntRep(objPtr, &tclByteCodeType, codePtr); @@ -282,11 +281,9 @@ DisassembleByteCodeObj( * Print header lines describing the ByteCode. */ - sprintf(ptrBuf1, "%p", codePtr); - sprintf(ptrBuf2, "%p", iPtr); Tcl_AppendPrintfToObj(bufferObj, - "ByteCode 0x%s, refCt %u, epoch %u, interp 0x%s (epoch %u)\n", - ptrBuf1, codePtr->refCount, codePtr->compileEpoch, ptrBuf2, + "ByteCode %p, refCt %u, epoch %u, interp %p (epoch %u)\n", + codePtr, codePtr->refCount, codePtr->compileEpoch, iPtr, iPtr->compileEpoch); Tcl_AppendToObj(bufferObj, " Source ", -1); PrintSourceToObj(bufferObj, codePtr->source, @@ -329,10 +326,9 @@ DisassembleByteCodeObj( Proc *procPtr = codePtr->procPtr; int numCompiledLocals = procPtr->numCompiledLocals; - sprintf(ptrBuf1, "%p", procPtr); Tcl_AppendPrintfToObj(bufferObj, - " Proc 0x%s, refCt %d, args %d, compiled locals %d\n", - ptrBuf1, procPtr->refCount, procPtr->numArgs, + " Proc %p, refCt %d, args %d, compiled locals %d\n", + procPtr, procPtr->refCount, procPtr->numArgs, numCompiledLocals); if (numCompiledLocals > 0) { CompiledLocal *localPtr = procPtr->firstLocalPtr; |