From 4d9333b7aa8ad1b292b3764539da82834968cee0 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Tue, 27 Jan 1998 17:39:45 +0000
Subject: [PATCH] [project @ 1998-01-27 17:39:45 by simonm] use an explicit
primitive integer for minBound::Int to avoid problems with overloading and
negation.
---
ghc/lib/ghc/PrelBounded.lhs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/lib/ghc/PrelBounded.lhs b/ghc/lib/ghc/PrelBounded.lhs
index 3d1d0fd68cd4..59dc43981e0f 100644
--- a/ghc/lib/ghc/PrelBounded.lhs
+++ b/ghc/lib/ghc/PrelBounded.lhs
@@ -21,6 +21,6 @@ instance Bounded Char where
maxBound = '\255'
instance Bounded Int where
- minBound = -2147483648 -- GHC <= 2.09 had this at -2147483647
- maxBound = 2147483647
+ minBound = I# -2147483648# -- GHC <= 2.09 had this at -2147483647
+ maxBound = 2147483647
\end{code}
--
GitLab