summaryrefslogtreecommitdiffstats
path: root/generic/tclExecute.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r--generic/tclExecute.c7
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!");
}