summaryrefslogtreecommitdiff
path: root/rts/Updates.h
diff options
context:
space:
mode:
Diffstat (limited to 'rts/Updates.h')
-rw-r--r--rts/Updates.h4
1 files changed, 1 insertions, 3 deletions
diff --git a/rts/Updates.h b/rts/Updates.h
index c8c75b130e..2456f12b58 100644
--- a/rts/Updates.h
+++ b/rts/Updates.h
@@ -280,9 +280,7 @@ FILL_SLOP(StgClosure *p)
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(); \