{-# OPTIONS -fno-implicit-prelude #-}
-----------------------------------------------------------------------------
---
+-- |
-- Module : Foreign.Ptr
-- Copyright : (c) The FFI task force 2001
-- License : BSD-style (see the file libraries/core/LICENSE)
-- Stability : provisional
-- Portability : portable
--
--- $Id: Ptr.hs,v 1.3 2002/02/11 16:11:38 simonmar Exp $
---
-- Pointer types.
--
-----------------------------------------------------------------------------
) where
-import Data.Dynamic
-
#ifdef __GLASGOW_HASKELL__
import GHC.Ptr
import GHC.IOBase
import GHC.Err
-import GHC.Prim
import GHC.Base
import GHC.Num
import GHC.List
#endif
#endif
-foreign import "freeHaskellFunctionPtr" unsafe
+foreign import ccall unsafe "freeHaskellFunctionPtr"
freeHaskellFunPtr :: FunPtr a -> IO ()
-
-#include "Dynamic.h"
-INSTANCE_TYPEABLE1(Ptr,ptrTc,"Ptr")