]> git.zerfleddert.de Git - micropolis/blob - src/tclx/ucbsrc/tclbasic.dif
480ba288760b037e9ee290e07c094a9b49ef0864
[micropolis] / 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 }
Impressum, Datenschutz