Revert "Move freeStablePtr() into the exported API (Lennart wants it)"
authorSimon Marlow <marlowsd@gmail.com>
Tue, 18 Oct 2011 15:42:48 +0000 (16:42 +0100)
committerSimon Marlow <marlowsd@gmail.com>
Wed, 19 Oct 2011 09:28:39 +0000 (10:28 +0100)
On second thoughts, hs_free_stable_ptr() is the official way to free a
StablePtr.

This reverts commit ae583f2949570755c8a03f68a71416c0fd7f257c.

includes/rts/Stable.h
rts/Stable.h

index 38ca665..ec867e4 100644 (file)
@@ -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.
index 1f58853..d7b7f8b 100644 (file)
@@ -19,6 +19,8 @@
 
 #include "BeginPrivate.h"
 
+void    freeStablePtr         ( StgStablePtr sp );
+
 void    initStablePtrTable    ( void );
 void    exitStablePtrTable    ( void );
 StgWord lookupStableName      ( StgPtr p );