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 | 63a81f0f749c1cc9965874146ba78f865ad5393a (patch) | |
| tree | 1ed6907988d96b90ed34453150242be353387802 /generic/tclExecute.c | |
| parent | c1e6cd0aaa9c2dd7116092f431faa5c14f284d0a (diff) | |
| download | tcl-63a81f0f749c1cc9965874146ba78f865ad5393a.zip tcl-63a81f0f749c1cc9965874146ba78f865ad5393a.tar.gz tcl-63a81f0f749c1cc9965874146ba78f865ad5393a.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; |