Posted to tcl by miguel at Wed Jul 30 17:31:41 GMT 2008view raw
- diff -u -r1.335 tclBasic.c
- --- generic/tclBasic.c 29 Jul 2008 20:53:21 -0000 1.335
- +++ generic/tclBasic.c 30 Jul 2008 17:30:07 -0000
- @@ -4329,7 +4329,8 @@
- * No CONTINUE or BREAK at level 0, manage RETURN
- */
- - TclNRAddCallback(interp, TEOV_Exception, NULL, NULL, NULL, NULL);
- + TclNRAddCallback(interp, TEOV_Exception, INT2PTR(iPtr->evalFlags),
- + NULL, NULL, NULL);
- }
- }
- @@ -4366,7 +4367,7 @@
- int result)
- {
- Interp *iPtr = (Interp *) interp;
- - int allowExceptions = (iPtr->evalFlags & TCL_ALLOW_EXCEPTIONS);
- + int allowExceptions = PTR2INT(data[0]);
- if (result != TCL_OK) {
- if (result == TCL_RETURN) {