From: simonm <unknown>
Date: Thu, 13 Nov 1997 16:54:56 +0000 (+0000)
Subject: [project @ 1997-11-13 16:54:56 by simonm]
X-Git-Tag: Approx_2487_patches~1296
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=655b318c258603aa5205e2da59b93797f909aa16;p=ghc-hetmet.git

[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
--- 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