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 | cc5f831d9087599b3c03d6f7266ddf6fe1edc063 (patch) | |
| tree | 786e20460f38292db82b7af58071d1d2a7f319ba /generic/tclCompCmdsGR.c | |
| parent | 054a071db516aed9356ca5491ce47e00ac0d9601 (diff) | |
| download | tcl-cc5f831d9087599b3c03d6f7266ddf6fe1edc063.zip tcl-cc5f831d9087599b3c03d6f7266ddf6fe1edc063.tar.gz tcl-cc5f831d9087599b3c03d6f7266ddf6fe1edc063.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); |