git.zerfleddert.de Git - micropolis/blob - src/tclx/ucbsrc/tclbasic.dif

   1 *** ../../tcl6.4/tclBasic.c     Sun Jun 21 14:09:46 1992
   2 --- tclBasic.c  Tue Oct  6 17:19:52 1992
   3 ***************
   4 *** 705,710
   5         iPtr->result = iPtr->resultSpace;
   6         iPtr->resultSpace[0] = 0;
   7         result = (*cmdPtr->proc)(cmdPtr->clientData, interp, argc, argv);
   8         if (result != TCL_OK) {
   9             break;
  10         }
  11
  12 --- 705,714 -----
  13         iPtr->result = iPtr->resultSpace;
  14         iPtr->resultSpace[0] = 0;
  15         result = (*cmdPtr->proc)(cmdPtr->clientData, interp, argc, argv);
  16 +         /*
  17 +          * Signal handling added for Extended Tcl.
  18 +          */
  19 +         result = Tcl_CheckForSignal (interp, result);
  20         if (result != TCL_OK) {
  21             break;
  22         }