From 655b318c258603aa5205e2da59b93797f909aa16 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Thu, 13 Nov 1997 16:54:56 +0000
Subject: [PATCH] [project @ 1997-11-13 16:54:56 by simonm] correct minBound
for Ints.
---
ghc/lib/ghc/PrelBase.lhs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/lib/ghc/PrelBase.lhs b/ghc/lib/ghc/PrelBase.lhs
index 295736131be7..6f2c47bcfe55 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
--
GitLab