diff options
author | Sergei Trofimovich <slyfox@gentoo.org> | 2016-12-28 22:20:50 +0000 |
---|---|---|
committer | Sergei Trofimovich <slyfox@gentoo.org> | 2016-12-28 22:37:38 +0000 |
commit | ce2c3248dff78e70172969b90055f439936be773 (patch) | |
tree | 3a595eb6d91b673ab0e9524bdc59431a3392a6e7 /dev-lang/ghc/files/ghc-7.6.2-integer-simple-div-mod.patch | |
parent | ec45f110b0c68c8c3212296b193a3fc6c5d359fe (diff) | |
download | gentoo-ce2c3248dff78e70172969b90055f439936be773.tar.gz gentoo-ce2c3248dff78e70172969b90055f439936be773.tar.xz |
dev-lang/ghc: drop old
Package-Manager: Portage-2.3.3, Repoman-2.3.1
Diffstat (limited to 'dev-lang/ghc/files/ghc-7.6.2-integer-simple-div-mod.patch')
-rw-r--r-- | dev-lang/ghc/files/ghc-7.6.2-integer-simple-div-mod.patch | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/dev-lang/ghc/files/ghc-7.6.2-integer-simple-div-mod.patch b/dev-lang/ghc/files/ghc-7.6.2-integer-simple-div-mod.patch deleted file mode 100644 index 0dc5391678f..00000000000 --- a/dev-lang/ghc/files/ghc-7.6.2-integer-simple-div-mod.patch +++ /dev/null @@ -1,57 +0,0 @@ -commit de13417726b90b0945aaaf0b9cfbaf8ab975d8b5 -Author: Gabor Greif <ggreif@gmail.com> -Date: Tue Jul 24 14:31:36 2012 +0200 - - track integer-gmp and add 'divInteger', 'modInteger' - -diff --git a/libraries/integer-simple/GHC/Integer.hs b/libraries/integer-simple/GHC/Integer.hs -index c9b50a7..4122d38 100644 ---- a/libraries/integer-simple/GHC/Integer.hs -+++ b/libraries/integer-simple/GHC/Integer.hs -@@ -4,7 +4,7 @@ - ----------------------------------------------------------------------------- - -- | - -- Module : GHC.Integer ---- Copyright : (c) Ian Lynagh 2007-2008 -+-- Copyright : (c) Ian Lynagh 2007-2012 - -- License : BSD3 - -- - -- Maintainer : igloo@earth.li -@@ -27,6 +27,7 @@ module GHC.Integer ( - plusInteger, minusInteger, timesInteger, negateInteger, - eqInteger, neqInteger, absInteger, signumInteger, - leInteger, gtInteger, ltInteger, geInteger, compareInteger, -+ divInteger, modInteger, - divModInteger, quotRemInteger, quotInteger, remInteger, - encodeFloatInteger, decodeFloatInteger, floatFromInteger, - encodeDoubleInteger, decodeDoubleInteger, doubleFromInteger, -diff --git a/libraries/integer-simple/GHC/Integer/Type.hs b/libraries/integer-simple/GHC/Integer/Type.hs -index c3d812c..67ed19c 100644 ---- a/libraries/integer-simple/GHC/Integer/Type.hs -+++ b/libraries/integer-simple/GHC/Integer/Type.hs -@@ -7,7 +7,7 @@ - ----------------------------------------------------------------------------- - -- | - -- Module : GHC.Integer.Type ---- Copyright : (c) Ian Lynagh 2007-2008 -+-- Copyright : (c) Ian Lynagh 2007-2012 - -- License : BSD3 - -- - -- Maintainer : igloo@earth.li -@@ -370,6 +370,16 @@ n `divModInteger` d = - then (# q `minusInteger` oneInteger, r `plusInteger` d #) - else (# q, r #) - -+{-# NOINLINE divInteger #-} -+divInteger :: Integer -> Integer -> Integer -+n `divInteger` d = quotient -+ where (# quotient, _ #) = n `divModInteger` d -+ -+{-# NOINLINE modInteger #-} -+modInteger :: Integer -> Integer -> Integer -+n `modInteger` d = modulus -+ where (# _, modulus #) = n `divModInteger` d -+ - {-# NOINLINE quotRemInteger #-} - quotRemInteger :: Integer -> Integer -> (# Integer, Integer #) - Naught `quotRemInteger` (!_) = (# Naught, Naught #) |