X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FUpdates.h;h=2456f12b5823f5f8eafa004644b64245eda74640;hb=35a38acc6010d97b349092f9179c14d18f129e9b;hp=f20b0884324043d790673e178003b4f100fca2f2;hpb=081e9e53205935280f1800f113760a8a72498a6f;p=ghc-hetmet.git

diff --git a/rts/Updates.h b/rts/Updates.h
index f20b088..2456f12 100644
--- a/rts/Updates.h
+++ b/rts/Updates.h
@@ -277,12 +277,10 @@ FILL_SLOP(StgClosure *p)
     DEBUG_FILL_SLOP(p1);					\
     LDV_RECORD_DEAD_FILL_SLOP_DYNAMIC(p1);			\
     StgInd_indirectee(p1) = p2;					\
-    foreign "C" wb() [];					\
+    prim %write_barrier() [];					\
     bd = Bdescr(p1);						\
     if (bdescr_gen_no(bd) != 0 :: CInt) {			\
-      foreign "C" recordMutableCap(p1 "ptr",			\
-				   MyCapability() "ptr",	\
-		                   bdescr_gen_no(bd)) [R1];	\
+      recordMutableCap(p1, TO_W_(bdescr_gen_no(bd)), R1);  	\
       SET_INFO(p1, stg_IND_OLDGEN_info);			\
       LDV_RECORD_CREATE(p1);					\
       TICK_UPD_OLD_IND();					\
@@ -294,28 +292,28 @@ FILL_SLOP(StgClosure *p)
       and_then;							\
   }
 #else
-#define updateWithIndirection(ind_info, p1, p2, and_then)		\
-  {									\
-    bdescr *bd;								\
-									\
-    /* cas(p1, 0, &stg_WHITEHOLE_info); */				\
-    ASSERT( (P_)p1 != (P_)p2 && !closure_IND(p1) );			\
-    DEBUG_FILL_SLOP(p1);						\
-    LDV_RECORD_DEAD_FILL_SLOP_DYNAMIC(p1);				\
-    ((StgInd *)p1)->indirectee = p2;					\
-    wb();								\
-    bd = Bdescr((P_)p1);						\
-    if (bd->gen_no != 0) {						\
-      recordMutableGenLock(p1, &generations[bd->gen_no]);		\
-      SET_INFO(p1, &stg_IND_OLDGEN_info);				\
-      TICK_UPD_OLD_IND();						\
-      and_then;								\
-    } else {								\
-      SET_INFO(p1, ind_info);						\
-      LDV_RECORD_CREATE(p1);						\
-      TICK_UPD_NEW_IND();						\
-      and_then;								\
-    }									\
+#define updateWithIndirection(ind_info, p1, p2, and_then)	\
+  {								\
+    bdescr *bd;							\
+								\
+    /* cas(p1, 0, &stg_WHITEHOLE_info); */			\
+    ASSERT( (P_)p1 != (P_)p2 && !closure_IND(p1) );		\
+    DEBUG_FILL_SLOP(p1);					\
+    LDV_RECORD_DEAD_FILL_SLOP_DYNAMIC(p1);			\
+    ((StgInd *)p1)->indirectee = p2;				\
+    write_barrier();						\
+    bd = Bdescr((P_)p1);					\
+    if (bd->gen_no != 0) {					\
+      recordMutableGenLock(p1, &generations[bd->gen_no]);	\
+      SET_INFO(p1, &stg_IND_OLDGEN_info);			\
+      TICK_UPD_OLD_IND();					\
+      and_then;							\
+    } else {							\
+      SET_INFO(p1, ind_info);					\
+      LDV_RECORD_CREATE(p1);					\
+      TICK_UPD_NEW_IND();					\
+      and_then;							\
+    }								\
   }
 #endif