1 /* -----------------------------------------------------------------------------
3 * (c) The GHC Team 1998-2006
5 * Generational garbage collector
7 * ---------------------------------------------------------------------------*/
13 extern rtsBool major_gc;
15 extern rtsBool eager_promotion;
16 extern rtsBool failed_to_evac;
18 extern StgClosure* static_objects;
19 extern StgClosure* scavenged_static_objects;
21 extern bdescr *mark_stack_bdescr;
22 extern StgPtr *mark_stack;
23 extern StgPtr *mark_sp;
24 extern StgPtr *mark_splim;
26 extern rtsBool mark_stack_overflowed;
27 extern bdescr *oldgen_scan_bd;
28 extern StgPtr oldgen_scan;
30 extern lnat new_blocks; // blocks allocated during this GC
31 extern lnat new_scavd_blocks; // ditto, but depth-first blocks
34 extern nat mutlist_MUTVARS, mutlist_MUTARRS, mutlist_OTHERS;
37 StgClosure * isAlive(StgClosure *p);