diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-03 13:32:06 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-03 13:32:06 (GMT) |
| commit | 7fc9ecd5ab04d78ef215ca8610ef85cb77402746 (patch) | |
| tree | 0fc8c55a7c7074e884924430835fce4b9eaeabcc /generic/tclAssembly.c | |
| parent | 638b28b37247561f30e627a9c1d01a0ad538f02c (diff) | |
| download | tcl-7fc9ecd5ab04d78ef215ca8610ef85cb77402746.zip tcl-7fc9ecd5ab04d78ef215ca8610ef85cb77402746.tar.gz tcl-7fc9ecd5ab04d78ef215ca8610ef85cb77402746.tar.bz2 | |
cleaner and faster 'string trim'
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index 659f483..44cddba 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -462,6 +462,7 @@ static const TalInstDesc TalInstructionTable[] = { {"strneq", ASSEM_1BYTE, INST_STR_NEQ, 2, 1}, {"strrange", ASSEM_1BYTE, INST_STR_RANGE, 3, 1}, {"strrfind", ASSEM_1BYTE, INST_STR_FIND_LAST, 2, 1}, + {"strtrim", ASSEM_1BYTE, INST_STRTRIM, 2, 1}, {"strtrimLeft", ASSEM_1BYTE, INST_STRTRIM_LEFT, 2, 1}, {"strtrimRight", ASSEM_1BYTE, INST_STRTRIM_RIGHT, 2, 1}, {"sub", ASSEM_1BYTE, INST_SUB, 2, 1}, @@ -505,7 +506,7 @@ static const unsigned char NonThrowingByteCodes[] = { INST_NS_CURRENT, /* 151 */ INST_INFO_LEVEL_NUM, /* 152 */ INST_RESOLVE_COMMAND, /* 154 */ - INST_STRTRIM_LEFT, INST_STRTRIM_RIGHT /* 166,167 */ + INST_STRTRIM, INST_STRTRIM_LEFT, INST_STRTRIM_RIGHT /* 166-168 */ }; /* |