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     ! 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.