X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FStgStorage.h;h=11cca7033e0b7e896a00721aa8a2ae9cdf7c5bd8;hb=11c7505f6a0d17bb7d00183b81a0bbf7cd38f3ef;hp=a6c88f5df7471a435642c790336aa46bb3b5adbd;hpb=d50874325473c23699a7d77222b1902f28c942af;p=ghc-hetmet.git

diff --git a/ghc/includes/StgStorage.h b/ghc/includes/StgStorage.h
index a6c88f5..11cca70 100644
--- a/ghc/includes/StgStorage.h
+++ b/ghc/includes/StgStorage.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: StgStorage.h,v 1.7 2000/04/11 16:36:53 sewardj Exp $
+ * $Id: StgStorage.h,v 1.11 2001/11/08 12:46:31 simonmar Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -48,35 +48,40 @@
  */
 
 typedef struct _step {
-  unsigned int no;		/* step number */
-  bdescr *blocks;		/* blocks in this step */
-  unsigned int n_blocks;	/* number of blocks */
-  struct _step *to;		/* where collected objects from this step go */
-  struct _generation *gen;	/* generation this step belongs to */
-  bdescr *large_objects;	/* large objects (doubly linked) */
+  unsigned int         no;		/* step number */
+  bdescr *             blocks;		/* blocks in this step */
+  unsigned int         n_blocks;	/* number of blocks */
+  struct _step *       to;		/* destination step for live objects */
+  struct _generation * gen;		/* generation this step belongs to */
+  unsigned int         gen_no;          /* generation number (cached) */
+  bdescr *             large_objects;	/* large objects (doubly linked) */
+  unsigned int         n_large_blocks;  /* no. of blocks used by large objs */
+  int                  is_compacted;	/* compact this step? (old gen only) */
 
   /* temporary use during GC: */
-  StgPtr  hp;			/* next free locn in to-space */
-  StgPtr  hpLim;		/* end of current to-space block */
-  bdescr *hp_bd;		/* bdescr of current to-space block */
-  bdescr *to_space;		/* bdescr of first to-space block */
-  unsigned int to_blocks;		/* number of blocks in to-space */
-  bdescr *scan_bd;		/* block currently being scanned */
-  StgPtr  scan;			/* scan pointer in current block */
-  bdescr *new_large_objects;    /* large objects collected so far */
-  bdescr *scavenged_large_objects; /* live large objects after GC (dbl link) */
+  StgPtr       hp;			/* next free locn in to-space */
+  StgPtr       hpLim;			/* end of current to-space block */
+  bdescr *     hp_bd;			/* bdescr of current to-space block */
+  bdescr *     to_blocks;		/* bdescr of first to-space block */
+  unsigned int n_to_blocks;		/* number of blocks in to-space */
+  bdescr *     scan_bd;			/* block currently being scanned */
+  StgPtr       scan;			/* scan pointer in current block */
+  bdescr *     new_large_objects;    	/* large objects collected so far */
+  bdescr *     scavenged_large_objects; /* live large objs after GC (d-link) */
+  unsigned int n_scavenged_large_blocks;/* size of above */
+  bdescr *     bitmap;  		/* bitmap for compacting collection */
 } step;
 
 typedef struct _generation {
-  unsigned int no;		/* generation number */
-  step *steps;			/* steps */
-  unsigned int n_steps;		/* number of steps */
-  unsigned int max_blocks;	/* max blocks in step 0 */
-  StgMutClosure *mut_list;      /* mutable objects in this generation (not G0)*/
-  StgMutClosure *mut_once_list; /* objects that point to younger generations */
+  unsigned int   no;			/* generation number */
+  step *         steps;			/* steps */
+  unsigned int   n_steps;		/* number of steps */
+  unsigned int   max_blocks;		/* max blocks in step 0 */
+  StgMutClosure *mut_list;      	/* mut objects in this gen (not G0)*/
+  StgMutClosure *mut_once_list; 	/* objects that point to younger gens */
 
   /* temporary use during GC: */
-  StgMutClosure *saved_mut_list;
+  StgMutClosure * saved_mut_list;
 
   /* stats information */
   unsigned int collections;
@@ -99,16 +104,22 @@ typedef struct _generation {
 
 #define OpenNursery(hp,hplim)				\
   (hp    = CurrentNursery->free-1,			\
-   hplim = CurrentNursery->start + BLOCK_SIZE_W - 1)
+   hplim = CurrentNursery->start + CurrentNursery->blocks*BLOCK_SIZE_W - 1)
   
 #define CloseNursery(hp)  (CurrentNursery->free = (P_)(hp)+1)
 
 /* -----------------------------------------------------------------------------
+   Prototype for an evacuate-like function
+   -------------------------------------------------------------------------- */
+
+typedef void (*evac_fn)(StgClosure **);
+
+/* -----------------------------------------------------------------------------
    Trigger a GC from Haskell land.
    -------------------------------------------------------------------------- */
 
 extern void performGC(void);
 extern void performMajorGC(void);
-extern void performGCWithRoots(void (*get_roots)(void));
+extern void performGCWithRoots(void (*get_roots)(evac_fn));
 
 #endif /* STGSTORAGE_H */