X-Git-Url: http://cvs.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/blobdiff_plain/2647c123bd2f34f4147f06bed6f936cc122636e3..34e37af786a9743ebe7bd76a518911affb9db72b:/src/tclx/ucbsrc/tclbasic.dif?ds=sidebyside diff --git a/src/tclx/ucbsrc/tclbasic.dif b/src/tclx/ucbsrc/tclbasic.dif deleted file mode 100644 index 480ba28..0000000 --- a/src/tclx/ucbsrc/tclbasic.dif +++ /dev/null @@ -1,22 +0,0 @@ -*** ../../tcl6.4/tclBasic.c Sun Jun 21 14:09:46 1992 ---- tclBasic.c Tue Oct 6 17:19:52 1992 -*************** -*** 705,710 - iPtr->result = iPtr->resultSpace; - iPtr->resultSpace[0] = 0; - result = (*cmdPtr->proc)(cmdPtr->clientData, interp, argc, argv); - if (result != TCL_OK) { - break; - } - ---- 705,714 ----- - iPtr->result = iPtr->resultSpace; - iPtr->resultSpace[0] = 0; - result = (*cmdPtr->proc)(cmdPtr->clientData, interp, argc, argv); -+ /* -+ * Signal handling added for Extended Tcl. -+ */ -+ result = Tcl_CheckForSignal (interp, result); - if (result != TCL_OK) { - break; - }