X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FCmm.h;fp=includes%2FCmm.h;h=6d39b45a39145f4152bc312b739e76edb926a906;hb=214b3663d5d7598c13643f9221e43d5a7735b47f;hp=59081e2466f952b838c3224dab6fa9cb61f8a440;hpb=7cb1d9274e84ee2fc2dd610aa4f7686586ca0357;p=ghc-hetmet.git diff --git a/includes/Cmm.h b/includes/Cmm.h index 59081e2..6d39b45 100644 --- a/includes/Cmm.h +++ b/includes/Cmm.h @@ -385,7 +385,7 @@ // allocate() - this includes many of the primops. #define MAYBE_GC(liveness,reentry) \ if (bdescr_link(CurrentNursery) == NULL || \ - step_n_large_blocks(StgRegTable_rNursery(BaseReg)) >= CInt[alloc_blocks_lim]) { \ + generation_n_large_blocks(W_[g0]) >= CInt[alloc_blocks_lim]) { \ R9 = liveness; \ R10 = reentry; \ HpAlloc = 0; \