X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FScav.c-inc;h=09cdf363ad5d67ce2aa927621a077ac933c8e26d;hb=4b123ceba0c0a2f72494479a03ac9c94b6166c92;hp=d694887a6ed97b46ae9ecdf7f60575774c03a405;hpb=902be381a29af801582c93366528f7901a5da544;p=ghc-hetmet.git

diff --git a/rts/sm/Scav.c-inc b/rts/sm/Scav.c-inc
index d694887..09cdf36 100644
--- a/rts/sm/Scav.c-inc
+++ b/rts/sm/Scav.c-inc
@@ -17,6 +17,7 @@
 #ifndef PARALLEL_GC
 #define scavenge_block(a,b) scavenge_block1(a,b)
 #define evacuate(a) evacuate1(a)
+#define recordMutableGen_GC(a,b) recordMutableGen(a,b)
 #else
 #undef scavenge_block
 #undef evacuate
@@ -452,3 +453,4 @@ scavenge_block (bdescr *bd, StgPtr scan)
 
 #undef scavenge_block
 #undef evacuate
+#undef recordMutableGen_GC