diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-02-02 14:42:12 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-02-02 14:42:12 (GMT) |
| commit | cca7f018e089a71b10f95e082193753b12d7ca3c (patch) | |
| tree | fc5cf587462875a6acc982a5766096613af20bcc /generic/tclCompile.c | |
| parent | 6597355ad8e93ef19d16f6fea501506b141946fb (diff) | |
| download | tcl-cca7f018e089a71b10f95e082193753b12d7ca3c.zip tcl-cca7f018e089a71b10f95e082193753b12d7ca3c.tar.gz tcl-cca7f018e089a71b10f95e082193753b12d7ca3c.tar.bz2 | |
improve the disassembly
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; |