summaryrefslogtreecommitdiff
path: root/dev-lang/ghc/files/ghc-7.6.2-integer-simple-div-mod.patch
diff options
context:
space:
mode:
authorSergei Trofimovich <slyfox@gentoo.org>2016-12-28 22:20:50 +0000
committerSergei Trofimovich <slyfox@gentoo.org>2016-12-28 22:37:38 +0000
commitce2c3248dff78e70172969b90055f439936be773 (patch)
tree3a595eb6d91b673ab0e9524bdc59431a3392a6e7 /dev-lang/ghc/files/ghc-7.6.2-integer-simple-div-mod.patch
parentec45f110b0c68c8c3212296b193a3fc6c5d359fe (diff)
downloadgentoo-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.patch57
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 #)