diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-02-03 22:29:31 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-02-03 22:29:31 (GMT) |
| commit | 76a8030f939360bd39bc940842f79175c47ed828 (patch) | |
| tree | 2460b8aed34b1dc39f26999cb2294274056a1448 /generic/tclDisassemble.c | |
| parent | 95a6025facddaf366bf92837026bdcafec4561ec (diff) | |
| parent | 9acd6848382529da76b66a3108c7cceb755dcffa (diff) | |
| download | tcl-76a8030f939360bd39bc940842f79175c47ed828.zip tcl-76a8030f939360bd39bc940842f79175c47ed828.tar.gz tcl-76a8030f939360bd39bc940842f79175c47ed828.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclDisassemble.c')
| -rw-r--r-- | generic/tclDisassemble.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/generic/tclDisassemble.c b/generic/tclDisassemble.c index c7072ee..b818f18 100644 --- a/generic/tclDisassemble.c +++ b/generic/tclDisassemble.c @@ -564,6 +564,11 @@ FormatInstruction( } Tcl_AppendPrintfToObj(bufferObj, "%%v%u ", (unsigned) opnd); break; + case OPERAND_SCLS1: + opnd = TclGetUInt1AtPtr(pc+numBytes); numBytes++; + Tcl_AppendPrintfToObj(bufferObj, "%s ", + tclStringClassTable[opnd].name); + break; case OPERAND_NONE: default: break; @@ -988,6 +993,12 @@ DisassembleByteCodeAsDicts( Tcl_ListObjAppendElement(NULL, inst, Tcl_ObjPrintf( "?%d", val)); break; + case OPERAND_SCLS1: + val = TclGetUInt1AtPtr(opnd); + opnd++; + Tcl_ListObjAppendElement(NULL, inst, Tcl_ObjPrintf( + "=%s", tclStringClassTable[val].name)); + break; case OPERAND_NONE: Tcl_Panic("opcode %d with more than zero 'no' operands", *pc); } |