git.zerfleddert.de Git - micropolis/blob - src/tclx/ucbsrc/tclexpr.dif

   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;