diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2016-03-27 16:40:28 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2016-03-27 16:40:28 (GMT) |
| commit | e36f2ddf64ff6755162a079ebd33732c38b176f2 (patch) | |
| tree | e820611013a48ceb0a26d195e6145e79c77e74f6 /generic | |
| parent | d293c903f1a2757ef199f5236861bb41153795ed (diff) | |
| parent | 365eefedf170cdc365c5d948509ffb6d12b5ce23 (diff) | |
| download | tcl-e36f2ddf64ff6755162a079ebd33732c38b176f2.zip tcl-e36f2ddf64ff6755162a079ebd33732c38b176f2.tar.gz tcl-e36f2ddf64ff6755162a079ebd33732c38b176f2.tar.bz2 | |
[47ac84309b] Fix problems with [lreplace] compilation.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclCompCmdsGR.c | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index 87ed745..9f430ea 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -1488,8 +1488,18 @@ TclCompileLreplaceCmd( return TCL_ERROR; } - if(idx2 != INDEX_END && idx2 >= 0 && idx2 < idx1) { - idx2 = idx1-1; + /* + * Compilation fails when one index is end-based but the other isn't. + * Fixing this will require more bytecodes, but this is a workaround for + * now. [Bug 47ac84309b] + */ + + if ((idx1 <= INDEX_END) != (idx2 <= INDEX_END)) { + return TCL_ERROR; + } + + if (idx2 != INDEX_END && idx2 >= 0 && idx2 < idx1) { + idx2 = idx1 - 1; } /* |