projects / micropolis / blame
| Commit | Line | Data |
|---|---|---|
| 6a5fa4e0 MG |
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; |