realloc, -- :: Storable b => Ptr a -> IO (Ptr b)
reallocBytes, -- :: Ptr a -> Int -> IO (Ptr a)
+#ifdef __HUGS__
+ free, -- :: Ptr a -> IO ()
+ finalizerFree -- :: FunPtr (Ptr a -> IO ())
+#else
free -- :: Ptr a -> IO ()
+#endif
) where
import Data.Maybe
-import Foreign.Ptr ( Ptr, nullPtr )
+import Foreign.Ptr ( Ptr, nullPtr, FunPtr )
import Foreign.C.TypesISO ( CSize )
import Foreign.Storable ( Storable(sizeOf) )
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@.
+foreign import ccall unsafe "stdlib.h &free"
+ finalizerFree :: FunPtr (Ptr a -> IO ())
+#endif