Add allocateInGen() for allocating in a specific generation, and cleanups

Now allocate() is a synonym for allocateInGen().  

I also made various cleanups: there is now less special-case code for
supporting -G1 (two-space collection), and -G1 now works with
-threaded.

1 files changed, 1 insertions, 1 deletions

diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c
index 745b8e75db..e96356734d 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