| 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; |