diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-06-05 14:50:39 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-06-05 14:50:39 (GMT) |
| commit | e8976518be1b4f26d965c08e0229d31ed7bcb101 (patch) | |
| tree | 88ac179a6605791afe18c3c0f8ed64d43d9f1417 /generic/tclExecute.c | |
| parent | 4265e044139d2dd3217a93741524cd31d7d4fa84 (diff) | |
| download | tcl-e8976518be1b4f26d965c08e0229d31ed7bcb101.zip tcl-e8976518be1b4f26d965c08e0229d31ed7bcb101.tar.gz tcl-e8976518be1b4f26d965c08e0229d31ed7bcb101.tar.bz2 | |
Stack Depth fixups.
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 98ce51e..6ee3cae 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2728,6 +2728,8 @@ TEBCresume( CLANG_ASSERT(auxObjList); objc = CURR_DEPTH - auxObjList->internalRep.ptrAndLongRep.value; POP_TAUX_OBJ(); + /* Ugly abuse! */ + starting = 1; NEXT_INST_V(1, objc, 0); case INST_EXPAND_STKTOP: { |