diff options
| author | aspect <aspect+tclcore@abstracted-spleen.org> | 2015-06-16 00:41:39 (GMT) |
|---|---|---|
| committer | aspect <aspect+tclcore@abstracted-spleen.org> | 2015-06-16 00:41:39 (GMT) |
| commit | fb3057c4a82b8cead5f45c319b4256eb2f6c8dba (patch) | |
| tree | b2a52a81f044fe9da430aa691f31f4a4f64d2d20 /generic | |
| parent | 594db8256437eeb9c5e78ca5ec38b22f441cdb00 (diff) | |
| download | tcl-fb3057c4a82b8cead5f45c319b4256eb2f6c8dba.zip tcl-fb3057c4a82b8cead5f45c319b4256eb2f6c8dba.tar.gz tcl-fb3057c4a82b8cead5f45c319b4256eb2f6c8dba.tar.bz2 | |
fix for a4cb3f06c4fe - bug introduced in 32b61592465
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclCompCmdsGR.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index b77c43c..8d8f2cc 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -1501,7 +1501,7 @@ TclCompileLreplaceCmd( return TCL_ERROR; } - if(idx2 != INDEX_END && idx2 < idx1) { + if(idx2 != INDEX_END && idx2 >= 0 && idx2 < idx1) { idx2 = idx1-1; } |