diff options
| author | dkf <dkf@noemail.net> | 2013-10-23 08:33:40 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2013-10-23 08:33:40 (GMT) |
| commit | cfad0a507adb193d3e195dbd27f4f981a8a2a263 (patch) | |
| tree | 786e20460f38292db82b7af58071d1d2a7f319ba /generic/tclCompCmdsGR.c | |
| parent | bc82213f4d27e602962d36385816ad761c8c86d6 (diff) | |
| download | tcl-cfad0a507adb193d3e195dbd27f4f981a8a2a263.zip tcl-cfad0a507adb193d3e195dbd27f4f981a8a2a263.tar.gz tcl-cfad0a507adb193d3e195dbd27f4f981a8a2a263.tar.bz2 | |
Stack depth calculation correction.
FossilOrigin-Name: 88fafcb106506e0f5141fb592ccd3e80f51d2783
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); |