X-Git-Url: http://git.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/blobdiff_plain/2647c123bd2f34f4147f06bed6f936cc122636e3..34e37af786a9743ebe7bd76a518911affb9db72b:/src/tclx/ucbsrc/tclexpr.dif

diff --git a/src/tclx/ucbsrc/tclexpr.dif b/src/tclx/ucbsrc/tclexpr.dif
deleted file mode 100644
index fa8f070..0000000
--- a/src/tclx/ucbsrc/tclexpr.dif
+++ /dev/null
@@ -1,20 +0,0 @@
-*** ../../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;