Skip to content
Snippets Groups Projects
Commit ebc96919 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

NOINLINE a couple more functions

We don't need them to be inlined at all, following changes in how
GHC handles Integers.
parent 6e850c4b
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment