[project @ 1997-11-13 16:54:56 by simonm]

correct minBound for Ints.

diff --git a/ghc/lib/ghc/PrelBase.lhs b/ghc/lib/ghc/PrelBase.lhs
index 2957361..6f2c47b 100644 (file)
--- a/ghc/lib/ghc/PrelBase.lhs
+++ b/ghc/lib/ghc/PrelBase.lhs
@@ -583,8 +583,8 @@ eftInt now step
 
 
 instance  Bounded Int where
-    minBound =  negate 2147483647   -- **********************
-    maxBound =  2147483647         -- **********************
+    minBound =  negate 214748367 - 1   -- **********************
+    maxBound =  2147483647            -- **********************
 
 instance  Num Int  where
     (+)           x y =  plusInt x y