X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FRetainerProfile.c;h=e96356734dbb8a8046c61a0d98d7b1a6b6c0ec7b;hp=745b8e75dba0f4dd8f48f4fa14e3f7ca6795dfad;hb=c1540c3def6281ea67b5a4ce7499b1aa982faa25;hpb=05b677fad57427a5639b36a1822c9ebd52cb3339

diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c
index 745b8e7..e963567 100644
--- a/rts/RetainerProfile.c
+++ b/rts/RetainerProfile.c
@@ -2170,7 +2170,7 @@ smallObjectPoolCheck(void)
     StgPtr p;
     static nat costSum, size;
 
-    bd = small_alloc_list;
+    bd = g0s0->blocks;
     costSum = 0;
 
     // first block