[commit: ghc] master: Revert "Move freeStablePtr() into the exported API (Lennart wants it)" (c397c89)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/c397c89a062c933fb9ee881c337522788b10cb50

>---------------------------------------------------------------

commit c397c89a062c933fb9ee881c337522788b10cb50
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Tue Oct 18 16:42:48 2011 +0100

    Revert "Move freeStablePtr() into the exported API (Lennart wants it)"
    
    On second thoughts, hs_free_stable_ptr() is the official way to free a
    StablePtr.
    
    This reverts commit ae583f2949570755c8a03f68a71416c0fd7f257c.

>---------------------------------------------------------------

 includes/rts/Stable.h |    3 +--
 rts/Stable.h          |    2 ++
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/includes/rts/Stable.h b/includes/rts/Stable.h
index 38ca665..ec867e4 100644
--- a/includes/rts/Stable.h
+++ b/includes/rts/Stable.h
@@ -15,8 +15,7 @@
 #define RTS_STABLE_H
 
 EXTERN_INLINE StgPtr deRefStablePtr (StgStablePtr stable_ptr);
-StgStablePtr getStablePtr (StgPtr p);
-void freeStablePtr (StgStablePtr sp);
+StgStablePtr getStablePtr  (StgPtr p);
 
 /* -----------------------------------------------------------------------------
    PRIVATE from here.
diff --git a/rts/Stable.h b/rts/Stable.h
index 1f58853..d7b7f8b 100644
--- a/rts/Stable.h
+++ b/rts/Stable.h
@@ -19,6 +19,8 @@
 
 #include "BeginPrivate.h"
 
+void    freeStablePtr         ( StgStablePtr sp );
+
 void    initStablePtrTable    ( void );
 void    exitStablePtrTable    ( void );
 StgWord lookupStableName      ( StgPtr p );