From: panne <unknown>
Date: Sat, 5 Mar 2005 15:13:01 +0000 (+0000)
Subject: [project @ 2005-03-05 15:13:01 by panne]
X-Git-Tag: nhc98-1-18-release~5
X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=commitdiff_plain;h=d98bd1c893b597a0748dc863b70ee186b5991186

[project @ 2005-03-05 15:13:01 by panne]
Warning police again: Use the "official" hs_free_stable_ptr from
HsFFI.h instead of the internal freeStablePtr, avoiding

   implicit declaration of function `freeStablePtr'

warnings from gcc when compiling via C.
---

diff --git a/GHC/Stable.lhs b/GHC/Stable.lhs
index 13194f5..0de033d 100644
--- a/GHC/Stable.lhs
+++ b/GHC/Stable.lhs
@@ -71,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.
 --
-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