Return to tclbasic.dif CVS log

Up to [Micropolis - Activity] / micropolis / src / tclx / ucbsrc

Annotation of micropolis/src/tclx/ucbsrc/tclbasic.dif, revision 1.1.1.1

1.1       root        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:        }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.