-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -fno-implicit-prelude #-}
-----------------------------------------------------------------------------
-- |
-- Module : Foreign.Ptr
#ifdef __GLASGOW_HASKELL__
import GHC.Ptr
import GHC.IOBase
-import GHC.Err
import GHC.Base
import GHC.Num
import GHC.List
showsPrec p = showsPrec p . castFunPtrToPtr
#endif
+-- | Release the storage associated with the given 'FunPtr', which
+-- must have been obtained from a wrapper stub. This should be called
+-- whenever the return value from a foreign import wrapper function is
+-- no longer required; otherwise, the storage it uses will leak.
foreign import ccall unsafe "freeHaskellFunctionPtr"
freeHaskellFunPtr :: FunPtr a -> IO ()
#endif