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

*** ../../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;
  	}
Commit	Line	Data
	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	}