[project @ 2001-12-20 16:12:09 by sewardj]

[ghc-hetmet.git] / ghc / rts / Stable.c

diff --git a/ghc/rts/Stable.c b/ghc/rts/Stable.c
index f73b5ea..0232e18 100644 (file)
--- a/ghc/rts/Stable.c
+++ b/ghc/rts/Stable.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Stable.c,v 1.18 2001/11/21 10:09:16 simonmar Exp $
+ * $Id: Stable.c,v 1.19 2001/12/20 16:12:09 sewardj Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -234,6 +234,18 @@ getStablePtr(StgPtr p)
 }
 
 void
+freeStablePtr(StgStablePtr sp)
+{
+    StgWord sn = (StgWord)sp;
+    
+    ASSERT(sn < SPT_size
+          && stable_ptr_table[sn].addr != NULL
+          && stable_ptr_table[sn].ref > 0);
+    
+    stable_ptr_table[sn].ref --;
+}
+
+void
 enlargeStablePtrTable(void)
 {
   nat old_SPT_size = SPT_size;