summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authoraspect <aspect+tclcore@abstracted-spleen.org>2015-06-16 00:41:39 (GMT)
committeraspect <aspect+tclcore@abstracted-spleen.org>2015-06-16 00:41:39 (GMT)
commitfb3057c4a82b8cead5f45c319b4256eb2f6c8dba (patch)
treeb2a52a81f044fe9da430aa691f31f4a4f64d2d20 /generic
parent594db8256437eeb9c5e78ca5ec38b22f441cdb00 (diff)
downloadtcl-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.c2
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;
}