Posted to tcl by miguel at Wed Jul 30 17:31:41 GMT 2008view raw

  1. diff -u -r1.335 tclBasic.c
  2. --- generic/tclBasic.c 29 Jul 2008 20:53:21 -0000 1.335
  3. +++ generic/tclBasic.c 30 Jul 2008 17:30:07 -0000
  4. @@ -4329,7 +4329,8 @@
  5. * No CONTINUE or BREAK at level 0, manage RETURN
  6. */
  7.  
  8. - TclNRAddCallback(interp, TEOV_Exception, NULL, NULL, NULL, NULL);
  9. + TclNRAddCallback(interp, TEOV_Exception, INT2PTR(iPtr->evalFlags),
  10. + NULL, NULL, NULL);
  11. }
  12. }
  13.  
  14. @@ -4366,7 +4367,7 @@
  15. int result)
  16. {
  17. Interp *iPtr = (Interp *) interp;
  18. - int allowExceptions = (iPtr->evalFlags & TCL_ALLOW_EXCEPTIONS);
  19. + int allowExceptions = PTR2INT(data[0]);
  20.  
  21. if (result != TCL_OK) {
  22. if (result == TCL_RETURN) {