diff options
author | mig <mig> | 2014-01-04 12:16:20 (GMT) |
---|---|---|
committer | mig <mig> | 2014-01-04 12:16:20 (GMT) |
commit | 025ed01cd2f41a64e6e423975f2052bfe18c3278 (patch) | |
tree | 030791f53d91bbf7ac6c40a16586616df680f372 | |
parent | 3a626d62da7cb76dafdfc9070e28a16b21852190 (diff) | |
download | tcl-mistachkin_review.zip tcl-mistachkin_review.tar.gz tcl-mistachkin_review.tar.bz2 |
**TIP #285 untested by the testsuite if the thread extension is not available** script cancelation support in TEBC: unneeded, or untested?mistachkin_review
-rw-r--r-- | generic/tclExecute.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 37a7397..841118a 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2330,7 +2330,7 @@ TEBCresume( } } - if (TclCanceled(iPtr)) { + if (0 && TclCanceled(iPtr)) { if (Tcl_Canceled(interp, TCL_LEAVE_ERR_MSG) == TCL_ERROR) { CACHE_STACK_INFO(); goto gotError; @@ -7239,7 +7239,7 @@ TEBCresume( * already be set prior to vectoring down to this point in the code. */ - if (TclCanceled(iPtr) && (Tcl_Canceled(interp, 0) == TCL_ERROR)) { + if (0 && TclCanceled(iPtr) && (Tcl_Canceled(interp, 0) == TCL_ERROR)) { #ifdef TCL_COMPILE_DEBUG if (traceInstructions) { fprintf(stdout, " ... cancel with unwind, returning %s\n", |