diff options
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 6243266..0be6655 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclExecute.c,v 1.383 2008/07/21 03:43:30 msofer Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.384 2008/07/21 16:26:02 msofer Exp $ */ #include "tclInt.h" @@ -7775,6 +7775,7 @@ TclExecuteByteCode( bottomPtr = oldBottomPtr; /* back to old bc */ /* Please free anything that might still be on my new stack */ + resumeCleanup: if (TOP_RECORD(iPtr) != bottomPtr->recordPtr) { CACHE_STACK_INFO(); result = TclEvalObjv_NR2(interp, result, bottomPtr->recordPtr); @@ -7809,6 +7810,10 @@ TclExecuteByteCode( #endif tailcall = 1; goto restoreStateVariables; + case TCL_NR_CMDSWAP_TYPE: + result = TclEvalObjv(interp, recordPtr->data.objcv.objc, + recordPtr->data.objcv.objv, 0, recordPtr->cmdPtr); + goto resumeCleanup; default: Tcl_Panic("TEBC: TEOV_NR2 sent us a record we cannot handle!"); } |