summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2013-10-23 08:33:40 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2013-10-23 08:33:40 (GMT)
commit2c5855aae434efce2ba3a202651709aaa5bb1ce3 (patch)
tree786e20460f38292db82b7af58071d1d2a7f319ba
parent1e9533a8a8ab74f29777a5762abfbac15d223fba (diff)
downloadtcl-2c5855aae434efce2ba3a202651709aaa5bb1ce3.zip
tcl-2c5855aae434efce2ba3a202651709aaa5bb1ce3.tar.gz
tcl-2c5855aae434efce2ba3a202651709aaa5bb1ce3.tar.bz2
Stack depth calculation correction.
-rw-r--r--generic/tclCompCmdsGR.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c
index 2aaca31..a02f0a8 100644
--- a/generic/tclCompCmdsGR.c
+++ b/generic/tclCompCmdsGR.c
@@ -1616,6 +1616,7 @@ TclCompileLreplaceCmd(
Tcl_ObjPrintf("-errorcode {TCL OPERATION LREPLACE BADIDX}"));
TclStoreInt1AtPtr(CurrentOffset(envPtr) - offset,
envPtr->codeStart + offset + 1);
+ TclAdjustStackDepth(-1, envPtr);
}
TclEmitOpcode( INST_DUP, envPtr);
TclEmitInstInt4( INST_LIST_RANGE_IMM, 0, envPtr);
@@ -1665,6 +1666,7 @@ TclCompileLreplaceCmd(
Tcl_ObjPrintf("-errorcode {TCL OPERATION LREPLACE BADIDX}"));
TclStoreInt1AtPtr(CurrentOffset(envPtr) - offset,
envPtr->codeStart + offset + 1);
+ TclAdjustStackDepth(-1, envPtr);
}
TclEmitOpcode( INST_DUP, envPtr);
TclEmitInstInt4( INST_LIST_RANGE_IMM, 0, envPtr);