From 02af9921bdf0b6353a79be0de36735b324df629e Mon Sep 17 00:00:00 2001 From: ross Date: Wed, 21 May 2003 16:31:59 +0000 Subject: [PATCH] [project @ 2003-05-21 16:31:59 by ross] add finalizerFree :: FunPtr (Ptr a -> IO ()) --- Foreign/Marshal/Alloc.hs | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/Foreign/Marshal/Alloc.hs b/Foreign/Marshal/Alloc.hs index 8f6b889..6e82380 100644 --- a/Foreign/Marshal/Alloc.hs +++ b/Foreign/Marshal/Alloc.hs @@ -24,10 +24,8 @@ module Foreign.Marshal.Alloc ( realloc, -- :: Storable b => Ptr a -> IO (Ptr b) reallocBytes, -- :: Ptr a -> Int -> IO (Ptr a) - free -- :: Ptr a -> IO () -#ifdef __HUGS__ - , finalizerFree -- :: FunPtr (Ptr a -> IO ()) -#endif + free, -- :: Ptr a -> IO () + finalizerFree -- :: FunPtr (Ptr a -> IO ()) ) where import Data.Maybe @@ -149,9 +147,8 @@ failWhenNULL name f = do foreign import ccall unsafe "stdlib.h malloc" _malloc :: CSize -> IO (Ptr a) foreign import ccall unsafe "stdlib.h realloc" _realloc :: Ptr a -> CSize -> IO (Ptr b) foreign import ccall unsafe "stdlib.h free" _free :: Ptr a -> IO () -#ifdef __HUGS__ --- |A pointer to a foreign function equivalent to @free@, which may be used --- as a finalizer for storage allocated with @malloc@ or @mallocBytes@. + +-- | A pointer to a foreign function equivalent to 'free', which may be used +-- as a finalizer for storage allocated with 'malloc' or 'mallocBytes'. foreign import ccall unsafe "stdlib.h &free" finalizerFree :: FunPtr (Ptr a -> IO ()) -#endif -- 1.7.10.4