diff options
author | dkf <dkf@noemail.net> | 2014-02-02 14:42:12 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2014-02-02 14:42:12 (GMT) |
commit | 69021076e9fd3456dffd4b27e241fd4d1229f602 (patch) | |
tree | fc5cf587462875a6acc982a5766096613af20bcc /generic/tclCompile.c | |
parent | dba854b5f228ead48d0eb250647707aaa9d63e4e (diff) | |
download | tcl-69021076e9fd3456dffd4b27e241fd4d1229f602.zip tcl-69021076e9fd3456dffd4b27e241fd4d1229f602.tar.gz tcl-69021076e9fd3456dffd4b27e241fd4d1229f602.tar.bz2 |
improve the disassembly
FossilOrigin-Name: d1f2d16fd2953ee962724983848a8ede516377b4
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r-- | generic/tclCompile.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 08a7a4c..c5d0107 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -644,7 +644,7 @@ InstructionDesc const tclInstructionTable[] = { {"tryCvtToBoolean", 1, +1, 0, {OPERAND_NONE}}, /* Try converting stktop to boolean if possible. No errors. * Stack: ... value => ... value isStrictBool */ - {"strclass", 2, 0, 1, {OPERAND_UINT1}}, + {"strclass", 2, 0, 1, {OPERAND_SCLS1}}, /* See if all the characters of the given string are a member of the * specified (by opnd) character class. Note that an empty string will * satisfy the class check (standard definition of "all"). @@ -5097,6 +5097,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; |