X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=wavpack.git;a=blobdiff_plain;f=Codec%2FAudio%2FWavPack%2FInternal.hs;fp=Codec%2FAudio%2FWavPack%2FInternal.hs;h=99ff05c811326c2293bb6eb1ea073bf71c3c668e;hp=7d3cdf4948136fc21755425ad41d3128055027c2;hb=c12220b6ce900bced2b48b1fbc3a098e06d94946;hpb=37c42ce6bcf9fef0a16b9c142288a2655a2b3556

diff --git a/Codec/Audio/WavPack/Internal.hs b/Codec/Audio/WavPack/Internal.hs
index 7d3cdf4..99ff05c 100644
--- a/Codec/Audio/WavPack/Internal.hs
+++ b/Codec/Audio/WavPack/Internal.hs
@@ -154,6 +154,7 @@ getNBits ∷ Num a ⇒ Word8 → a
 getNBits = fromIntegral ∘ UV.unsafeIndex nbitsTable ∘ fromIntegral
     where
       nbitsTable ∷ UV.Vector Word8
+      {-# NOINLINE nbitsTable #-}
       nbitsTable
           = UV.fromList
             [ 0, 1, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4 --   0 -  15
@@ -179,6 +180,7 @@ getLog2 ∷ Num n ⇒ Word8 → n
 getLog2 = fromIntegral ∘ UV.unsafeIndex log2Table ∘ fromIntegral
     where
       log2Table ∷ UV.Vector Word8
+      {-# NOINLINE log2Table #-}
       log2Table
           = UV.fromList
             [ 0x00, 0x01, 0x03, 0x04, 0x06, 0x07, 0x09, 0x0a, 0x0B, 0x0D, 0x0E, 0x10, 0x11, 0x12, 0x14, 0x15
@@ -204,6 +206,7 @@ getExp2 ∷ Num n ⇒ Word8 → n
 getExp2 = fromIntegral ∘ UV.unsafeIndex exp2Table ∘ fromIntegral
     where
       exp2Table ∷ UV.Vector Word8
+      {-# NOINLINE exp2Table #-}
       exp2Table
           = UV.fromList
             [ 0x00, 0x01, 0x01, 0x02, 0x03, 0x03, 0x04, 0x05, 0x06, 0x06, 0x07, 0x08, 0x08, 0x09, 0x0a, 0x0B