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
*
......@@ -24,13 +24,12 @@
extern StgPtr deRefStablePtr(StgStablePtr stable_ptr);
extern void freeStablePtr(StgStablePtr sp);
extern StgStablePtr splitStablePtr(StgStablePtr sp);
extern StgStablePtr getStablePtr(StgPtr p);
/* -----------------------------------------------------------------------------
PRIVATE from here.
-------------------------------------------------------------------------- */
extern StgStablePtr getStablePtr(StgPtr p);
typedef struct {
StgPtr addr; /* Haskell object, free list, or NULL */
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