ptr 0.16.3 → 0.16.4

raw patch · 4 files changed

+44/−1 lines, 4 files

Files

• library/Ptr/Poke.hs +15/−0
• library/Ptr/PokeAndPeek.hs +18/−0
• library/Ptr/Poking.hs +10/−0
• ptr.cabal +1/−1

@@ -30,6 +30,21 @@ word8 =   pokeAndPeek B.word8 +{-# INLINE leWord16 #-}+leWord16 :: Poke Word16+leWord16 =+  pokeAndPeek B.leWord16++{-# INLINE leWord32 #-}+leWord32 :: Poke Word32+leWord32 =+  pokeAndPeek B.leWord32++{-# INLINE leWord64 #-}+leWord64 :: Poke Word64+leWord64 =+  pokeAndPeek B.leWord64+ {-# INLINE beWord16 #-} beWord16 :: Poke Word16 beWord16 =

@@ -57,6 +57,24 @@   {-# SCC "word8" #-}    PokeAndPeek 1 A.pokeWord8 A.peekWord8 +{-# INLINE leWord16 #-}+leWord16 :: InvPokeAndPeek Word16+leWord16 =+  {-# SCC "leWord16" #-} +  PokeAndPeek 2 A.pokeLEWord16 A.peekLEWord16++{-# INLINE leWord32 #-}+leWord32 :: InvPokeAndPeek Word32+leWord32 =+  {-# SCC "leWord32" #-} +  PokeAndPeek 4 A.pokeLEWord32 A.peekLEWord32++{-# INLINE leWord64 #-}+leWord64 :: InvPokeAndPeek Word64+leWord64 =+  {-# SCC "leWord64" #-} +  PokeAndPeek 8 A.pokeLEWord64 A.peekLEWord64+ {-# INLINE beWord16 #-} beWord16 :: InvPokeAndPeek Word16 beWord16 =

@@ -59,6 +59,11 @@ word8 x =   Poking 1 (flip A.pokeWord8 x) +{-# INLINE leWord16 #-}+leWord16 :: Word16 -> Poking+leWord16 x =+  Poking 2 (flip A.pokeLEWord16 x)+ {-# INLINE leWord32 #-} leWord32 :: Word32 -> Poking leWord32 x =@@ -68,6 +73,11 @@ leWord64 :: Word64 -> Poking leWord64 x =   Poking 8 (flip A.pokeLEWord64 x)++{-# INLINE beWord16 #-}+beWord16 :: Word16 -> Poking+beWord16 x =+  Poking 2 (flip A.pokeBEWord16 x)  {-# INLINE beWord32 #-} beWord32 :: Word32 -> Poking

@@ -1,7 +1,7 @@ name:   ptr version:-  0.16.3+  0.16.4 category:   Ptr, Data synopsis: