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

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.