diff options
| author | mig <mig> | 2013-01-29 09:24:44 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-01-29 09:24:44 (GMT) |
| commit | 75972077579a3e9bf1363e817260d11f17d60266 (patch) | |
| tree | ee9687a2d893c44ba4952d391c5cd55a5dd66497 /generic/tclExecute.c | |
| parent | 296348b0acfe641191926aee31c5484fd493cd5a (diff) | |
| download | tcl-mig_retest.zip tcl-mig_retest.tar.gz tcl-mig_retest.tar.bz2 | |
Remove one trampoline bounce in EvalObjv.mig_retest
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index c2cef2a..7d4f47a 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2393,6 +2393,7 @@ TEBCresume( NULL); goto gotError; } + NRE_ASSERT(!COR_IS_SUSPENDED(corPtr)); #ifdef TCL_COMPILE_DEBUG TRACE_WITH_OBJ(("yield, result="), iPtr->objResultPtr); |