diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-10-18 16:42:48 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-10-19 10:28:39 +0100 |
| commit | c397c89a062c933fb9ee881c337522788b10cb50 (patch) | |
| tree | 3b491587f1e4ed570b9c1a3cb290774a62ec44f1 | |
| parent | 53f1414526a7c6a844568a82fdfc0553d7b66ab8 (diff) | |
| download | haskell-c397c89a062c933fb9ee881c337522788b10cb50.tar.gz | |
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.
| -rw-r--r-- | includes/rts/Stable.h | 3 | ||||
| -rw-r--r-- | rts/Stable.h | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/includes/rts/Stable.h b/includes/rts/Stable.h index 38ca665bfb..ec867e486c 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 1f58853cb8..d7b7f8bb1e 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 ); |