diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-23 08:33:40 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-23 08:33:40 (GMT) |
| commit | 2c5855aae434efce2ba3a202651709aaa5bb1ce3 (patch) | |
| tree | 786e20460f38292db82b7af58071d1d2a7f319ba /generic/tclCompCmdsGR.c | |
| parent | 1e9533a8a8ab74f29777a5762abfbac15d223fba (diff) | |
| download | tcl-2c5855aae434efce2ba3a202651709aaa5bb1ce3.zip tcl-2c5855aae434efce2ba3a202651709aaa5bb1ce3.tar.gz tcl-2c5855aae434efce2ba3a202651709aaa5bb1ce3.tar.bz2 | |
Stack depth calculation correction.
Diffstat (limited to 'generic/tclCompCmdsGR.c')
| -rw-r--r-- | generic/tclCompCmdsGR.c | 2 |
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); |