don't make -ddump-if-trace imply -no-recomp

[ghc-hetmet.git] / rts / RetainerProfile.c

diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c
index 745b8e7..e963567 100644 (file)
--- a/rts/RetainerProfile.c
+++ b/rts/RetainerProfile.c
@@ -2170,7 +2170,7 @@ smallObjectPoolCheck(void)
     StgPtr p;
     static nat costSum, size;
 
     StgPtr p;
     static nat costSum, size;
 

-    bd = small_alloc_list;
+    bd = g0s0->blocks;

     costSum = 0;
 
     // first block
     costSum = 0;
 
     // first block