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

--- tcl8.0-8.0.4.orig/generic/tclObj.c
+++ tcl8.0-8.0.4/generic/tclObj.c
@@ -1632,7 +1632,7 @@
 	}
     }
     l = objPtr->internalRep.longValue;
-    if (((long)((int)l)) == l) {
+    if (l <= UINT_MAX) {
 	*intPtr = (int)objPtr->internalRep.longValue;
 	return TCL_OK;
     }
Commit	Line	Data
8e1c27a4	1	--- tcl8.0-8.0.4.orig/generic/tclObj.c
	2	+++ tcl8.0-8.0.4/generic/tclObj.c
	3	@@ -1632,7 +1632,7 @@
	4	}
	5	}
	6	l = objPtr->internalRep.longValue;
	7	- if (((long)((int)l)) == l) {
	8	+ if (l <= UINT_MAX) {
	9	*intPtr = (int)objPtr->internalRep.longValue;
	10	return TCL_OK;
	11	}