projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-03-05 15:13:01 by panne]
[ghc-base.git]
/
GHC
/
Stable.lhs
diff --git
a/GHC/Stable.lhs
b/GHC/Stable.lhs
index
b52e756
..
0de033d
100644
(file)
--- a/
GHC/Stable.lhs
+++ b/
GHC/Stable.lhs
@@
-14,6
+14,7
@@
--
-----------------------------------------------------------------------------
--
-----------------------------------------------------------------------------
+-- #hide
module GHC.Stable
( StablePtr(..)
, newStablePtr -- :: a -> IO (StablePtr a)
module GHC.Stable
( StablePtr(..)
, newStablePtr -- :: a -> IO (StablePtr a)
@@
-70,7
+71,7
@@
deRefStablePtr (StablePtr sp) = IO $ \s -> deRefStablePtr# sp s
-- it may be 'Foreign.Ptr.nullPtr'). Nevertheless, the call
-- to 'castStablePtrToPtr' is guaranteed not to diverge.
--
-- it may be 'Foreign.Ptr.nullPtr'). Nevertheless, the call
-- to 'castStablePtrToPtr' is guaranteed not to diverge.
--
-foreign import ccall unsafe freeStablePtr :: StablePtr a -> IO ()
+foreign import ccall unsafe "hs_free_stable_ptr" freeStablePtr :: StablePtr a -> IO ()
-- |
-- Coerce a stable pointer to an address. No guarantees are made about
-- |
-- Coerce a stable pointer to an address. No guarantees are made about