From: sof <unknown>
Date: Wed, 21 Nov 2001 20:27:18 +0000 (+0000)
Subject: [project @ 2001-11-21 20:27:18 by sof]
X-Git-Tag: Approximately_9120_patches~550
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b79fdec2402f359f0a3015ff61e87d911615fbe7;p=ghc-hetmet.git

[project @ 2001-11-21 20:27:18 by sof]
StablePtr indexes/counts are no longer weighted (i.e., sync wrt Stable.{c,h} changes)
---

diff --git a/ghc/includes/PrimOps.h b/ghc/includes/PrimOps.h
index ed65437..c9b6697 100644
--- a/ghc/includes/PrimOps.h
+++ b/ghc/includes/PrimOps.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: PrimOps.h,v 1.84 2001/10/27 22:05:48 sof Exp $
+ * $Id: PrimOps.h,v 1.85 2001/11/21 20:27:18 sof Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -771,12 +771,12 @@ EXTFUN_RTS(makeStableNamezh_fast);
    r = RET_STGCALL1(StgStablePtr,getStablePtr,a)
 
 #define deRefStablePtrzh(r,sp) do {		\
-  ASSERT(stable_ptr_table[stgCast(StgWord,sp) & ~STABLEPTR_WEIGHT_MASK].weight > 0);	\
-  r = stable_ptr_table[stgCast(StgWord,sp) & ~STABLEPTR_WEIGHT_MASK].addr; \
+  ASSERT(stable_ptr_table[(StgWord)sp].ref > 0);	\
+  r = stable_ptr_table[(StgWord)sp].addr; \
 } while (0);
 
 #define eqStablePtrzh(r,sp1,sp2) \
-    (r = ((stgCast(StgWord,sp1) & ~STABLEPTR_WEIGHT_MASK) == (stgCast(StgWord,sp2) & ~STABLEPTR_WEIGHT_MASK)))
+    (r = ((StgWord)sp1 == (StgWord)sp2))
 
 /* -----------------------------------------------------------------------------
    Concurrency/Exception PrimOps.