Tcl Source Code

Artifact d05456c0485ec999e9548e99e0a61bdbbdb22b49:

Attachment "1027690.patch" to ticket [1027690fff] added by dgp 2004-09-14 23:28:32.

---

Index: generic/tclObj.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclObj.c,v
retrieving revision 1.42.2.7
diff -u -r1.42.2.7 tclObj.c
--- generic/tclObj.c	10 Sep 2004 22:59:54 -0000	1.42.2.7
+++ generic/tclObj.c	14 Sep 2004 16:25:54 -0000
@@ -1795,7 +1795,7 @@
     }
 
     if (((long)((int)l)) == l) {
-	*intPtr = (int)objPtr->internalRep.longValue;
+	*intPtr = (int)l;
 	return TCL_OK;
     }
 #ifndef TCL_WIDE_INT_IS_LONG