Return to tclexpr.dif CVS log

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

Annotation of micropolis/src/tclx/ucbsrc/tclexpr.dif, revision 1.1

1.1     ! root        1: *** ../../tcl6.4/tclExpr.c     Mon Mar 23 09:54:06 1992
        !             2: --- tclExpr.c  Tue Oct  6 17:20:10 1992
        !             3: ***************
        !             4: *** 1318,1324
        !             5:        if (value.type == TYPE_INT) {
        !             6:            sprintf(interp->result, "%ld", value.intValue);
        !             7:        } else if (value.type == TYPE_DOUBLE) {
        !             8: !          sprintf(interp->result, "%g", value.doubleValue);
        !             9:        } else {
        !            10:            if (value.pv.buffer != value.staticSpace) {
        !            11:                interp->result = value.pv.buffer;
        !            12: 
        !            13: --- 1318,1324 -----
        !            14:        if (value.type == TYPE_INT) {
        !            15:            sprintf(interp->result, "%ld", value.intValue);
        !            16:        } else if (value.type == TYPE_DOUBLE) {
        !            17: !          Tcl_ReturnDouble (interp, value.doubleValue);
        !            18:        } else {
        !            19:            if (value.pv.buffer != value.staticSpace) {
        !            20:                interp->result = value.pv.buffer;

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