[commit: packages/primitive] ghc-head: Delete dead code (4f40a54)

[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/4f40a54e5883980dc1aafdef37c5d5cbedd4ab2b

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

commit 4f40a54e5883980dc1aafdef37c5d5cbedd4ab2b
Author: Roman Leshchinskiy <rl at cse.unsw.edu.au>
Date:   Thu Jan 26 16:07:58 2012 -0700

    Delete dead code


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

4f40a54e5883980dc1aafdef37c5d5cbedd4ab2b
 Data/Primitive/ByteArray.hs |    3 ---
 cbits/primitive-memops.c    |    5 -----
 cbits/primitive-memops.h    |    1 -
 3 files changed, 9 deletions(-)

diff --git a/Data/Primitive/ByteArray.hs b/Data/Primitive/ByteArray.hs
index 4e49043..3bce4e3 100644
--- a/Data/Primitive/ByteArray.hs
+++ b/Data/Primitive/ByteArray.hs
@@ -286,9 +286,6 @@ foreign import ccall unsafe "primitive-memops.h memmove_off"
               -> MutableByteArray# s -> CInt
               -> CSize -> IO ()
 
-foreign import ccall unsafe "primitive-memops.h memset_off"
-  memset_mba :: MutableByteArray# s -> CInt -> CInt -> CSize -> IO ()
-
 instance Data ByteArray where
   toConstr _ = error "toConstr"
   gunfold _ _ = error "gunfold"
diff --git a/cbits/primitive-memops.c b/cbits/primitive-memops.c
index a6d1959..1a0d590 100644
--- a/cbits/primitive-memops.c
+++ b/cbits/primitive-memops.c
@@ -11,11 +11,6 @@ void memmove_off( void *dst, int doff, void *src, int soff, size_t len )
   memmove( (char *)dst + doff, (char *)src + soff, len );
 }
 
-void memset_off( void *dst, int doff, int c, size_t len )
-{
-  memset( (char *)dst + doff, c, len );
-}
-
 #define MEMSET(TYPE, ATYPE)                                                  \
 void hsprimitive_memset_ ## TYPE (Hs ## TYPE *p, int off, int n, ATYPE x)    \
 {                                                                            \
diff --git a/cbits/primitive-memops.h b/cbits/primitive-memops.h
index 2aad75a..5874738 100644
--- a/cbits/primitive-memops.h
+++ b/cbits/primitive-memops.h
@@ -6,7 +6,6 @@
 
 void memcpy_off( void *dst, int doff, void *src, int soff, size_t len );
 void memmove_off( void *dst, int doff, void *src, int soff, size_t len );
-void memset_off( void *dst, int doff, int c, size_t len );
 
 void hsprimitive_memset_Word8 (HsWord8 *, int, int, HsWord);
 void hsprimitive_memset_Word16 (HsWord16 *, int, int, HsWord);