diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-01-07 14:19:04 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-01-07 14:19:04 (GMT) |
| commit | a952237bcf20a7d4140f857c095b3bf0417ca40a (patch) | |
| tree | 7d9ce87fc3e6d661dd7d680b10ab279348c76da9 /generic/tclOptimize.c | |
| parent | 92f27b7095220ef6e508c9a0216e0fce97b3d2ae (diff) | |
| parent | 8bb7405765b9aed27270dfd145037e3c5884a34a (diff) | |
| download | tcl-a952237bcf20a7d4140f857c095b3bf0417ca40a.zip tcl-a952237bcf20a7d4140f857c095b3bf0417ca40a.tar.gz tcl-a952237bcf20a7d4140f857c095b3bf0417ca40a.tar.bz2 | |
Add compilations for the following commands:
* concat
* linsert
* namespace origin
* next
* string replace
* string tolower
* string totitle
* string toupper
* string trim
* string trimleft
* string trimright
Diffstat (limited to 'generic/tclOptimize.c')
| -rw-r--r-- | generic/tclOptimize.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclOptimize.c b/generic/tclOptimize.c index 74de7a3..827d89d 100644 --- a/generic/tclOptimize.c +++ b/generic/tclOptimize.c @@ -191,7 +191,7 @@ TrimUnreachable( * ConvertZeroEffectToNOP -- * * Replace PUSH/POP sequences (when non-hazardous) with NOPs. Also - * replace PUSH empty/CONCAT and TRY_CVT_NUMERIC (when followed by an + * replace PUSH empty/STR_CONCAT and TRY_CVT_NUMERIC (when followed by an * operation that guarantees the check for arithmeticity) and eliminate * LNOT when we can invert the following JUMP condition. * @@ -227,7 +227,7 @@ ConvertZeroEffectToNOP( case INST_PUSH1: if (nextInst == INST_POP) { blank = size + InstLength(nextInst); - } else if (nextInst == INST_CONCAT1 + } else if (nextInst == INST_STR_CONCAT1 && TclGetUInt1AtPtr(currentInstPtr + size + 1) == 2) { Tcl_Obj *litPtr = TclFetchLiteral(envPtr, TclGetUInt1AtPtr(currentInstPtr + 1)); @@ -242,7 +242,7 @@ ConvertZeroEffectToNOP( case INST_PUSH4: if (nextInst == INST_POP) { blank = size + 1; - } else if (nextInst == INST_CONCAT1 + } else if (nextInst == INST_STR_CONCAT1 && TclGetUInt1AtPtr(currentInstPtr + size + 1) == 2) { Tcl_Obj *litPtr = TclFetchLiteral(envPtr, TclGetUInt4AtPtr(currentInstPtr + 1)); |