X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=rts%2FLdvProfile.c;fp=rts%2FLdvProfile.c;h=18386490b9acadca9b18470f7bc2e856f140186f;hb=c1540c3def6281ea67b5a4ce7499b1aa982faa25;hp=ecbba8b6ab03bf72c361330b4bbd8acd8ea4f9fb;hpb=05b677fad57427a5639b36a1822c9ebd52cb3339;p=ghc-hetmet.git

diff --git a/rts/LdvProfile.c b/rts/LdvProfile.c
index ecbba8b..1838649 100644
--- a/rts/LdvProfile.c
+++ b/rts/LdvProfile.c
@@ -247,7 +247,7 @@ processSmallObjectPoolForDead( void )
     bdescr *bd;
     StgPtr p;
 
-    bd = small_alloc_list;
+    bd = g0s0->blocks;
 
     // first block
     if (bd == NULL)