diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2013-10-23 08:33:40 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2013-10-23 08:33:40 (GMT) |
| commit | 73b4dd9f180e7d68f544d6225a120a202655d43b (patch) | |
| tree | 786e20460f38292db82b7af58071d1d2a7f319ba /generic/tclCompCmdsGR.c | |
| parent | bd2f4bbb0445649a19cbacdd285ea73917699ae7 (diff) | |
| download | tcl-73b4dd9f180e7d68f544d6225a120a202655d43b.zip tcl-73b4dd9f180e7d68f544d6225a120a202655d43b.tar.gz tcl-73b4dd9f180e7d68f544d6225a120a202655d43b.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); |