From: Simon Marlow <simonmarhaskell@gmail.com>
Date: Wed, 16 Apr 2008 22:01:04 +0000 (+0000)
Subject: in scavenge_block1(), we can use the lock-free recordMutableGen()
X-Git-Tag: Before_cabalised-GHC~220
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=4b123ceba0c0a2f72494479a03ac9c94b6166c92

in scavenge_block1(), we can use the lock-free recordMutableGen()
---

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