word-compat 0.0.3 → 0.0.4

raw patch · 3 files changed

+154/−1 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +7/−0
• src/GHC/Prim/Compat.hs +145/−0
• word-compat.cabal +2/−1

@@ -1,5 +1,12 @@ # Revision history for word-compat +## 0.0.4++* Added `GHC.Prim.Compat`, providing array operations compatible with `GHC.Word.Compat`+## 0.0.3++* Added `COMPLETE` pragmas to pattern synonyms+ ## 0.0.2  * Fixed a bug where bitReverse* were incorrectly exported on base >= 4.12

@@ -0,0 +1,145 @@+{-# LANGUAGE BangPatterns #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE MagicHash #-}+{-# LANGUAGE UnboxedTuples #-}++module GHC.Prim.Compat (+    -- * Indexing Functions+    indexWord8Array#,indexWord16Array#,indexWord32Array#,indexWord64Array#,+    readWord8Array#,readWord16Array#,readWord32Array#,readWord64Array#,+    writeWord8Array#,writeWord16Array#,writeWord32Array#,writeWord64Array#,+    indexWord8OffAddr#,indexWord16OffAddr#,indexWord32OffAddr#,indexWord64OffAddr#,+    readWord8OffAddr#,readWord16OffAddr#,readWord32OffAddr#,readWord64OffAddr#,+    writeWord8OffAddr#,writeWord16OffAddr#,writeWord32OffAddr#,writeWord64OffAddr#) where++#if MIN_VERSION_ghc_prim(0,8,0)+import GHC.Prim (+    Addr#,ByteArray#,Int#,MutableByteArray#,State#,Word#,+    wordToWord8#,wordToWord16#,wordToWord32#,+    word8ToWord#,word16ToWord#,word32ToWord#)+import qualified GHC.Prim as Prim+#else+import GHC.Prim (+    indexWord8Array#,indexWord16Array#,indexWord32Array#,indexWord64Array#,+    readWord8Array#,readWord16Array#,readWord32Array#,readWord64Array#,+    writeWord8Array#,writeWord16Array#,writeWord32Array#,writeWord64Array#,+    indexWord8OffAddr#,indexWord16OffAddr#,indexWord32OffAddr#,indexWord64OffAddr#,+    readWord8OffAddr#,readWord16OffAddr#,readWord32OffAddr#,readWord64OffAddr#,+    writeWord8OffAddr#,writeWord16OffAddr#,writeWord32OffAddr#,writeWord64OffAddr#)+#endif+++#if MIN_VERSION_ghc_prim(0,8,0)++indexWord8Array# :: ByteArray# -> Int# -> Word#+indexWord8Array# arr i = word8ToWord# (Prim.indexWord8Array# arr i)+{-# INLINE indexWord8Array# #-}++indexWord16Array# :: ByteArray# -> Int# -> Word#+indexWord16Array# arr i = word16ToWord# (Prim.indexWord16Array# arr i)+{-# INLINE indexWord16Array# #-}++indexWord32Array# :: ByteArray# -> Int# -> Word#+indexWord32Array# arr i = word32ToWord# (Prim.indexWord32Array# arr i)+{-# INLINE indexWord32Array# #-}++indexWord64Array# :: ByteArray# -> Int# -> Word#+indexWord64Array# = Prim.indexWord64Array#+{-# INLINE indexWord64Array# #-}++readWord8Array# :: MutableByteArray# d -> Int# -> State# d -> (# State# d, Word# #)+readWord8Array# arr ix st =+  let !(# st', v #) = Prim.readWord8Array# arr ix st+   in (# st', word8ToWord# v #)+{-# INLINE readWord8Array# #-}++readWord16Array# :: MutableByteArray# d -> Int# -> State# d -> (# State# d, Word# #)+readWord16Array# arr ix st =+  let !(# st', v #) = Prim.readWord16Array# arr ix st+   in (# st', word16ToWord# v #)+{-# INLINE readWord16Array# #-}++readWord32Array# :: MutableByteArray# d -> Int# -> State# d -> (# State# d, Word# #)+readWord32Array# arr ix st =+  let !(# st', v #) = Prim.readWord32Array# arr ix st+   in (# st', word32ToWord# v #)+{-# INLINE readWord32Array# #-}++readWord64Array# :: MutableByteArray# d -> Int# -> State# d -> (# State# d, Word# #)+readWord64Array# = Prim.readWord64Array#+{-# INLINE readWord64Array# #-}++writeWord8Array# :: MutableByteArray# d -> Int# -> Word# -> State# d -> State# d+writeWord8Array# arr ix v st = Prim.writeWord8Array# arr ix (wordToWord8# v) st+{-# INLINE writeWord8Array# #-}++writeWord16Array# :: MutableByteArray# d -> Int# -> Word# -> State# d -> State# d+writeWord16Array# arr ix v st = Prim.writeWord16Array# arr ix (wordToWord16# v) st+{-# INLINE writeWord16Array# #-}++writeWord32Array# :: MutableByteArray# d -> Int# -> Word# -> State# d -> State# d+writeWord32Array# arr ix v st = Prim.writeWord32Array# arr ix (wordToWord32# v) st+{-# INLINE writeWord32Array# #-}++writeWord64Array# :: MutableByteArray# d -> Int# -> Word# -> State# d -> State# d+writeWord64Array# = Prim.writeWord64Array#+{-# INLINE writeWord64Array# #-}++indexWord8OffAddr# :: Addr# -> Int# -> Word#+indexWord8OffAddr# addr off = word8ToWord# (Prim.indexWord8OffAddr# addr off)+{-# INLINE indexWord8OffAddr# #-}++indexWord16OffAddr# :: Addr# -> Int# -> Word#+indexWord16OffAddr# addr off = word16ToWord# (Prim.indexWord16OffAddr# addr off)+{-# INLINE indexWord16OffAddr# #-}++indexWord32OffAddr# :: Addr# -> Int# -> Word#+indexWord32OffAddr# addr off = word32ToWord# (Prim.indexWord32OffAddr# addr off)+{-# INLINE indexWord32OffAddr# #-}++indexWord64OffAddr# :: Addr# -> Int# -> Word#+indexWord64OffAddr# addr off = Prim.indexWord64OffAddr# addr off+{-# INLINE indexWord64OffAddr# #-}++readWord8OffAddr# :: Addr# -> Int# -> State# d -> (# State# d, Word# #)+readWord8OffAddr# addr off st =+  let !(# st', v #) = Prim.readWord8OffAddr# addr off st+   in (# st', word8ToWord# v #)+{-# INLINE readWord8OffAddr# #-}++readWord16OffAddr# :: Addr# -> Int# -> State# d -> (# State# d, Word# #)+readWord16OffAddr# addr off st =+  let !(# st', v #) = Prim.readWord16OffAddr# addr off st+   in (# st', word16ToWord# v #)+{-# INLINE readWord16OffAddr# #-}++readWord32OffAddr# :: Addr# -> Int# -> State# d -> (# State# d, Word# #)+readWord32OffAddr# addr off st =+  let !(# st', v #) = Prim.readWord32OffAddr# addr off st+   in (# st', word32ToWord# v #)+{-# INLINE readWord32OffAddr# #-}++readWord64OffAddr# :: Addr# -> Int# -> State# d -> (# State# d, Word# #)+readWord64OffAddr# = Prim.readWord64OffAddr#+{-# INLINE readWord64OffAddr# #-}++writeWord8OffAddr# :: Addr# -> Int# -> Word# -> State# d -> State# d+writeWord8OffAddr# addr off v st =+  Prim.writeWord8OffAddr# addr off (wordToWord8# v) st+{-# INLINE writeWord8OffAddr# #-}++writeWord16OffAddr# :: Addr# -> Int# -> Word# -> State# d -> State# d+writeWord16OffAddr# addr off v st =+  Prim.writeWord16OffAddr# addr off (wordToWord16# v) st+{-# INLINE writeWord16OffAddr# #-}++writeWord32OffAddr# :: Addr# -> Int# -> Word# -> State# d -> State# d+writeWord32OffAddr# addr off v st =+  Prim.writeWord32OffAddr# addr off (wordToWord32# v) st+{-# INLINE writeWord32OffAddr# #-}++writeWord64OffAddr# :: Addr# -> Int# -> Word# -> State# d -> State# d+writeWord64OffAddr# = Prim.writeWord64OffAddr#+{-# INLINE writeWord64OffAddr# #-}++#endif

@@ -1,6 +1,6 @@ cabal-version:      2.4 name:               word-compat-version:            0.0.3+version:            0.0.4  -- A short (one-line) description of the package. synopsis: Compatibility shim for the Int/Word internal change in GHC 9.2@@ -29,6 +29,7 @@     exposed-modules:         GHC.Word.Compat         GHC.Int.Compat+        GHC.Prim.Compat      -- Modules included in this executable, other than Main.     -- other-modules: