fully implemented Unpack.readCode

[wavpack.git] / Codec / Audio / WavPack / Internal.hs

diff --git a/Codec/Audio/WavPack/Internal.hs b/Codec/Audio/WavPack/Internal.hs
index 7d3cdf4948136fc21755425ad41d3128055027c2..99ff05c811326c2293bb6eb1ea073bf71c3c668e 100644 (file)
--- 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