From 3c93302c8c1d224457f53a4012fb0bf234b892d3 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 21 Jul 2006 10:02:25 +0000 Subject: [PATCH] Fix unsafeIndex for large ranges --- GHC/Int.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/GHC/Int.hs b/GHC/Int.hs index b596482..6fb44ca 100644 --- a/GHC/Int.hs +++ b/GHC/Int.hs @@ -105,7 +105,7 @@ instance Bounded Int8 where instance Ix Int8 where range (m,n) = [m..n] - unsafeIndex b@(m,_) i = fromIntegral (i - m) + unsafeIndex b@(m,_) i = fromIntegral i - fromIntegral m inRange (m,n) i = m <= i && i <= n instance Read Int8 where @@ -210,7 +210,7 @@ instance Bounded Int16 where instance Ix Int16 where range (m,n) = [m..n] - unsafeIndex b@(m,_) i = fromIntegral (i - m) + unsafeIndex b@(m,_) i = fromIntegral i - fromIntegral m inRange (m,n) i = m <= i && i <= n instance Read Int16 where @@ -507,7 +507,7 @@ instance Bounded Int32 where instance Ix Int32 where range (m,n) = [m..n] - unsafeIndex b@(m,_) i = fromIntegral (i - m) + unsafeIndex b@(m,_) i = fromIntegral i - fromIntegral m inRange (m,n) i = m <= i && i <= n ------------------------------------------------------------------------ @@ -777,5 +777,5 @@ instance Bounded Int64 where instance Ix Int64 where range (m,n) = [m..n] - unsafeIndex b@(m,_) i = fromIntegral (i - m) + unsafeIndex b@(m,_) i = fromIntegral i - fromIntegral m inRange (m,n) i = m <= i && i <= n -- 1.7.10.4