[commit: packages/primitive] ghc-head: More INLINE pragmas (5296184)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/primitive

On branch  : ghc-head
Link       : http://git.haskell.org/packages/primitive.git/commitdiff/52961843fd11301aafc577f03dafda37bad4f482

>---------------------------------------------------------------

commit 52961843fd11301aafc577f03dafda37bad4f482
Author: Roman Leshchinskiy <rl at cse.unsw.edu.au>
Date:   Thu Jan 26 14:36:58 2012 -0700

    More INLINE pragmas


>---------------------------------------------------------------

52961843fd11301aafc577f03dafda37bad4f482
 Data/Primitive/Types.hs |   11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/Data/Primitive/Types.hs b/Data/Primitive/Types.hs
index 3206878..7ced896 100644
--- a/Data/Primitive/Types.hs
+++ b/Data/Primitive/Types.hs
@@ -104,7 +104,16 @@ instance Prim ty where {                                        \
 ; indexOffAddr# addr# i# = ctr (idx_addr addr# i#)              \
 ; readOffAddr#  addr# i# s# = case rd_addr addr# i# s# of       \
                         { (# s1#, x# #) -> (# s1#, ctr x# #) }  \
-; writeOffAddr# addr# i# (ctr x#) s# = wr_addr addr# i# x# s#   }
+; writeOffAddr# addr# i# (ctr x#) s# = wr_addr addr# i# x# s#   \
+; {-# INLINE sizeOf# #-}                                        \
+; {-# INLINE alignment# #-}                                     \
+; {-# INLINE indexByteArray# #-}                                \
+; {-# INLINE readByteArray# #-}                                 \
+; {-# INLINE writeByteArray# #-}                                \
+; {-# INLINE indexOffAddr# #-}                                  \
+; {-# INLINE readOffAddr# #-}                                   \
+; {-# INLINE writeOffAddr# #-}                                  \
+}
 
 unI# :: Int -> Int#
 unI# (I# n#) = n#