From ff8f8a74252525efc99cc756a6dae803af134017 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Fri, 27 Feb 1998 12:08:26 +0000
Subject: [PATCH] [project @ 1998-02-27 12:08:26 by simonm] Fix for the
minBound case, obtained from GMP 2.
---
ghc/runtime/gmp/mpz_get_si.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/runtime/gmp/mpz_get_si.c b/ghc/runtime/gmp/mpz_get_si.c
index 9cddf4be7761..b2b87a7bf42a 100644
--- a/ghc/runtime/gmp/mpz_get_si.c
+++ b/ghc/runtime/gmp/mpz_get_si.c
@@ -34,7 +34,7 @@ mpz_get_si (integer)
if (size > 0)
return integer->d[0] % ((mp_limb) 1 << (BITS_PER_MP_LIMB - 1));
else if (size < 0)
- return -(integer->d[0] % ((mp_limb) 1 << (BITS_PER_MP_LIMB - 1)));
+ return ~((integer->d[0] - 1) % ((mp_limb) 1 << (BITS_PER_MP_LIMB - 1)));
else
return 0;
}
--
GitLab