From bc467a8b94c61a999ab2d7e71918f3ff549a11b7 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 13 Dec 1999 17:25:57 +0000
Subject: [PATCH] [project @ 1999-12-13 17:25:57 by simonmar] Fix bug in
abs::Integer->Integer: result was wrong for minBound::Int.
---
ghc/lib/std/PrelNum.lhs | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/ghc/lib/std/PrelNum.lhs b/ghc/lib/std/PrelNum.lhs
index 9cb3d558a5f6..f70f7269ec0f 100644
--- a/ghc/lib/std/PrelNum.lhs
+++ b/ghc/lib/std/PrelNum.lhs
@@ -242,11 +242,9 @@ instance Num Integer where
-- ORIG: abs n = if n >= 0 then n else -n
+ abs (S# (-2147483648#)) = 2147483648
abs (S# i) = case abs (I# i) of I# j -> S# j
- abs n@(J# s d)
- = if (cmpIntegerInt# s d 0#) >=# 0#
- then n
- else J# (negateInt# s) d
+ abs n@(J# s d) = if (s >=# 0#) then n else J# (negateInt# s) d
signum (S# i) = case signum (I# i) of I# j -> S# j
signum (J# s d)
--
GitLab