[packages/tcl.git] / tcl-64bit.patch

--- tcl8.4.9/generic/tclObj.c.orig	2004-11-08 10:32:05.000000000 +0100
+++ tcl8.4.9/generic/tclObj.c	2004-12-08 13:44:36.000000000 +0100
@@ -1790,7 +1790,7 @@
 	Tcl_Panic( "string->integer conversion failed to convert the obj." );
     }
 
-    if (((long)((int)l)) == l) {
+    if ((l <= UINT_MAX) && (l >= INT_MIN)) {
 	*intPtr = (int)l;
 	return TCL_OK;
     }
Commit	Line	Data
f4d5ba4e JB	1	--- tcl8.4.9/generic/tclObj.c.orig 2004-11-08 10:32:05.000000000 +0100
	2	+++ tcl8.4.9/generic/tclObj.c 2004-12-08 13:44:36.000000000 +0100
	3	@@ -1790,7 +1790,7 @@
	4	Tcl_Panic( "string->integer conversion failed to convert the obj." );
8e1c27a4	5	}
f4d5ba4e	6
8e1c27a4	7	- if (((long)((int)l)) == l) {
f4d5ba4e JB	8	+ if ((l <= UINT_MAX) && (l >= INT_MIN)) {
f4d5ba4e JB	9	*intPtr = (int)l;
8e1c27a4	10	return TCL_OK;
8e1c27a4	11	}