X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2Frts%2Fstorage%2FGC.h;h=9749c0272e7755217272b22cd6a3fd3f6dc62a41;hb=849ce0c790ae8eeb636c722149993e7fb9766c9d;hp=e7b2e8453bca51078f3ba848dafef3744a2f5e19;hpb=214b3663d5d7598c13643f9221e43d5a7735b47f;p=ghc-hetmet.git

diff --git a/includes/rts/storage/GC.h b/includes/rts/storage/GC.h
index e7b2e84..9749c02 100644
--- a/includes/rts/storage/GC.h
+++ b/includes/rts/storage/GC.h
@@ -67,10 +67,11 @@ typedef struct generation_ {
 
     bdescr *       large_objects;	// large objects (doubly linked)
     unsigned int   n_large_blocks;      // no. of blocks used by large objs
+    unsigned int   n_new_large_blocks;  // count freshly allocated large objects
 
     unsigned int   max_blocks;		// max blocks
     bdescr        *mut_list;      	// mut objects in this gen (not G0)
-    
+
     StgTSO *       threads;             // threads in this gen
                                         // linked via global_link
     struct generation_ *to;		// destination gen for live objects
@@ -166,8 +167,8 @@ void performMajorGC(void);
    The CAF table - used to let us revert CAFs in GHCi
    -------------------------------------------------------------------------- */
 
-void newCAF     (StgClosure*);
-void newDynCAF  (StgClosure *);
+void newCAF     (StgRegTable *reg, StgClosure *);
+void newDynCAF  (StgRegTable *reg, StgClosure *);
 void revertCAFs (void);
 
 /* -----------------------------------------------------------------------------