[project @ 2003-01-22 10:55:56 by ross]

[haskell-directory.git] / Foreign / ForeignPtr.hs

diff --git a/Foreign/ForeignPtr.hs b/Foreign/ForeignPtr.hs
index 3b37c6d..a1e8550 100644 (file)
--- a/Foreign/ForeignPtr.hs
+++ b/Foreign/ForeignPtr.hs
@@ -29,6 +29,8 @@ module Foreign.ForeignPtr
 #ifndef __NHC__
        , mallocForeignPtr      --  :: Storable a => IO (ForeignPtr a)
        , mallocForeignPtrBytes --  :: Int -> IO (ForeignPtr a)
+       , mallocForeignPtrArray --  :: Storable a => Int -> IO (ForeignPtr a)
+       , mallocForeignPtrArray0 -- :: Storable a => Int -> IO (ForeignPtr a)
 #endif
         ) 
        where
@@ -228,3 +230,13 @@ castForeignPtr (ForeignPtr a) = ForeignPtr a
 castForeignPtr (MallocPtr  a) = MallocPtr  a
 #endif
 
+#ifndef __NHC__
+mallocForeignPtrArray :: Storable a => Int -> IO (ForeignPtr a)
+mallocForeignPtrArray  = doMalloc undefined
+  where
+    doMalloc            :: Storable a => a -> Int -> IO (ForeignPtr a)
+    doMalloc dummy size  = mallocForeignPtrBytes (size * sizeOf dummy)
+
+mallocForeignPtrArray0      :: Storable a => Int -> IO (ForeignPtr a)
+mallocForeignPtrArray0 size  = mallocForeignPtrArray (size + 1)
+#endif