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 ()
+#ifdef __HUGS__
+ , finalizerFree -- :: FunPtr (Ptr a -> IO ())
#endif
) where
import Data.Maybe
import Foreign.Ptr ( Ptr, nullPtr, FunPtr )
-import Foreign.C.TypesISO ( CSize )
+import Foreign.C.Types ( CSize, CInt(..) )
import Foreign.Storable ( Storable(sizeOf) )
#ifdef __GLASGOW_HASKELL__
import GHC.Ptr
import GHC.Err
import GHC.Base
-#else
+#elsif defined(__HUGS__)
import Control.Exception ( bracket )
+#else
+import System.IO ( bracket )
#endif