]> git.zerfleddert.de Git - micropolis/blame_incremental - src/tclx/ucbsrc/tclbasic.dif
src/tclx/ucbsrc/tclexpr.sed: Micropolis build fixes for recent macOS
[micropolis] / src / tclx / ucbsrc / tclbasic.dif
... / ...
CommitLineData
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 }
Impressum, Datenschutz