From ebc96919582ead679984dbddec4e169a7c1957a0 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Tue, 13 Sep 2011 19:48:38 +0100
Subject: [PATCH] NOINLINE a couple more functions
We don't need them to be inlined at all, following changes in how
GHC handles Integers.
---
GHC/Integer/Type.lhs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/GHC/Integer/Type.lhs b/GHC/Integer/Type.lhs
index d74b2f7..eef256b 100644
--- a/GHC/Integer/Type.lhs
+++ b/GHC/Integer/Type.lhs
@@ -72,11 +72,11 @@ data Integer
= S# Int# -- small integers
| J# Int# ByteArray# -- large integers
-{-# INLINE [0] smallInteger #-}
+{-# NOINLINE smallInteger #-}
smallInteger :: Int# -> Integer
smallInteger i = S# i
-{-# INLINE [0] wordToInteger #-}
+{-# NOINLINE wordToInteger #-}
wordToInteger :: Word# -> Integer
wordToInteger w = case word2Integer# w of (# s, d #) -> J# s d
--
GitLab