diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-03 14:57:48 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-03 14:57:48 (GMT) |
| commit | 2a3000c25e6712d2bc2e4c1f631fdf6a22b41547 (patch) | |
| tree | 1ed6907988d96b90ed34453150242be353387802 /generic/tclExecute.c | |
| parent | d2b951b436f8450f6bdf8da87a3e8ab4b4361fc7 (diff) | |
| download | tcl-2a3000c25e6712d2bc2e4c1f631fdf6a22b41547.zip tcl-2a3000c25e6712d2bc2e4c1f631fdf6a22b41547.tar.gz tcl-2a3000c25e6712d2bc2e4c1f631fdf6a22b41547.tar.bz2 | |
Next stage of fixing the break/continue generation.
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 7c645e7..559df0b 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2718,6 +2718,17 @@ TEBCresume( PUSH_TAUX_OBJ(objPtr); NEXT_INST_F(1, 0, 0); + case INST_EXPAND_DROP: + /* + * Drops an element of the auxObjList. Does not do any clean up of the + * actual stack. + * + * TODO: POP MAIN STACK BACK TO MARKER + */ + + POP_TAUX_OBJ(); + NEXT_INST_F(1, 0, 0); + case INST_EXPAND_STKTOP: { int i; ptrdiff_t moved; |