Commit 983bbf83 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-10-23 11:28:02 by simonmar]

getStablePtr() is a useful function outside of the RTS, so move it to
the non-private section.
parent bc80cec8
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $Id: Stable.h,v 1.8 2001/07/23 17:23:19 simonmar Exp $ * $Id: Stable.h,v 1.9 2001/10/23 11:28:02 simonmar Exp $
* *
* (c) The GHC Team, 1998-2000 * (c) The GHC Team, 1998-2000
* *
...@@ -24,13 +24,12 @@ ...@@ -24,13 +24,12 @@
extern StgPtr deRefStablePtr(StgStablePtr stable_ptr); extern StgPtr deRefStablePtr(StgStablePtr stable_ptr);
extern void freeStablePtr(StgStablePtr sp); extern void freeStablePtr(StgStablePtr sp);
extern StgStablePtr splitStablePtr(StgStablePtr sp); extern StgStablePtr splitStablePtr(StgStablePtr sp);
extern StgStablePtr getStablePtr(StgPtr p);
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
PRIVATE from here. PRIVATE from here.
-------------------------------------------------------------------------- */ -------------------------------------------------------------------------- */
extern StgStablePtr getStablePtr(StgPtr p);
typedef struct { typedef struct {
StgPtr addr; /* Haskell object, free list, or NULL */ StgPtr addr; /* Haskell object, free list, or NULL */
StgPtr old; /* old Haskell object, used during GC */ StgPtr old; /* old Haskell object, used during GC */
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment