cvs.zerfleddert.de Git - micropolis/blame_incremental - src/tclx/ucbsrc/tclexpr.dif

*** ../../tcl6.4/tclExpr.c	Mon Mar 23 09:54:06 1992
--- tclExpr.c	Tue Oct  6 17:20:10 1992
***************
*** 1318,1324
  	if (value.type == TYPE_INT) {
  	    sprintf(interp->result, "%ld", value.intValue);
  	} else if (value.type == TYPE_DOUBLE) {
! 	    sprintf(interp->result, "%g", value.doubleValue);
  	} else {
  	    if (value.pv.buffer != value.staticSpace) {
  		interp->result = value.pv.buffer;

--- 1318,1324 -----
  	if (value.type == TYPE_INT) {
  	    sprintf(interp->result, "%ld", value.intValue);
  	} else if (value.type == TYPE_DOUBLE) {
! 	    Tcl_ReturnDouble (interp, value.doubleValue);
  	} else {
  	    if (value.pv.buffer != value.staticSpace) {
  		interp->result = value.pv.buffer;
Commit	Line	Data
	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;