NAME 
src/gc/gc_gms.c - Generational mark and sweep garbage collection
OVERVIEW
The following comments describe a generational garbage collection scheme for Parrot.
Keywords:
- non-copying, mark & sweep
- generational
- implicit reclamation, treadmill
DESCRIPTION
A plain mark & sweep collector performs work depending on the amount of all allocated objects. The advantage of a generational GC is achieved by not processing all objects. This is based on the weak generational hypothesis, which states that young objects are likely to die early. Old objects, which have survived a few GC cycles tend to be long-lived.
The terms young and old objects imply that there is some ordering in object creation time and the ordering is also followed by object references.
Specifically object references have to follow the marking direction. In pure functional programming languages this can be a very simple scheme:
+------------+ object references
v |
old .... young .... youngest
|
<-------- scan direction
If (simplified) the only reference-like operation of the interpreter is:
cons = (car, cdr)
and the object references "car" and "cdr" are created prior to the "aggregate" "cons", all object references point always to older objects. By scanning from the youngest to the oldest objects, all non-marked objects can be reclaimed immediately. And the scan can be aborted at any time after some processing, creating a generational GC in a trivial way.
But the programming languages we are serving are working basically the other direction, when it comes to object history:
@a[$i] = $n
A reference operation like this needs first an aggregate and then the contents of it. So the scan direction is from old objects to younger ones. In such a scheme it's a bit more complicated to skip parts of the objects.
To take advantage of not processing all the objects, these are divided into generations, e.g.:
old young := nursery
generation 0 generation 1
A mark phase now processes the root set and only objects from the young generation. When all objects are either referenced by the root set or only by the young generation, the algorithm is correct and complete.
But there is of course the possibilty that a young object is stored into an aggregate of an older generation. This case is tracked by the write barrier, which remembers all such operations in the IGP (inter generational pointer) list. When now generation 1 is marked, the IGP list can be considered as an extension to the root set, so that again all live objects of the young generation are detected.
Structures
typedef struct _gc_gms_gen Gc_gms_gen- Describes the state of one generation for one pool.
typedef struct _gc_gms_hdr Gc_gms_hdr- This header is in front of all Parrot objects. It forms a doubly-linked list of all objects in one pool and points to its generation.
- PObj_to_GMSH(o)
- GMSH_to_PObj(p)
- These two macros convert from and to headers and objects.
typedef struct _gc_gms_hdr_list Gc_gms_hdr_list- A chained list of headers used e.g. for the IGP list.
* XXX
Main problem TODO 1):
[ PCont ] ... continuation object in old generation
|
v
[ Stack chunk ] --> [ e.g. P register frame ] ... new generation
By pushing a new stack chunk onto the (old) existing stack frame, we'd need a WRITE_BARRIER that promotes the stack chunk to the old generation of the continuation. This would also need an IGP entry for the stack chunk buffer. But - as buffers aren't really containers in Parrot - this isn't possible.
To get that right, the code needs better support by the running interpreter. - never promote continuations (and stacks) in the current stack frame to an old generation - create scope_enter / scope_exit opcodes
A scope_enter happens on a subroutine call *and' with new_pad / push_pad opcodes. Each lexical scope must have its distinct register frame, else timely destruction can't work. If the frame needs active destruction, the old frame should be converted to the (new-1) generation, the inner frame is the nursery. On scope exit the newest (nursery) generation is collected and the current generation number is reset back to (new-1).
If the scope_enter doesn't indicate timely destruction, generation promoting should be done only, if object statistics indicate the presence of a fair amount of live objects.
TODO 2) in lazy sweep If timely destruction didn't find (all) eager objects, go back to older generations, until all these objects have been seen.
TODO 3) interpreter startup After all internal structures are created, promote interpreter state into initial first old generation by running one GC cycle before program execution begins (or just treat all objects as being alive).
Initialization functions
static void parrot_gc_gms_deinit(PARROT_INTERP)- Free used resources.
static void gc_gms_pool_init(PARROT_INTERP, NOTNULL(Small_Object_Pool *pool))- Initialize pool variables. This function must set the pool function pointers for
add_free_object,get_free_object,alloc_objects, andmore_objects. PARROT_API void Parrot_gc_gms_init(PARROT_INTERP)- Initialize the state structures of the gc system. Called immediately before creation of memory pools.
Interface functions
static void gc_gms_add_free_object(PARROT_INTERP, NOTNULL(Small_Object_Pool *pool), NOTNULL(PObj *to_add))- Unused. White (dead) objects are added in a bunch to the free_list.
static void gc_gms_chain_objects(PARROT_INTERP, NOTNULL(Small_Object_Pool *pool), NOTNULL(Small_Object_Arena *new_arena), size_t real_size)- TODO: interfere active_destroy and put these items into a separate white area, so that a sweep has just to run through these objects
- Header chain layout: - all objects are chained together forming a circular list - pool->marker is the "anchor" of the circle (shown twice below)
static void gc_gms_alloc_objects(PARROT_INTERP, NOTNULL(Small_Object_Pool *pool))- Allocate new objects for the given pool.
static void gc_gms_more_objects(PARROT_INTERP, NOTNULL(Small_Object_Pool *pool))- Run a GC cycle or allocate new objects for the given pool.
PARROT_WARN_UNUSED_RESULT PARROT_CANNOT_RETURN_NULL static PObj *gc_gms_get_free_object(PARROT_INTERP, NOTNULL(Small_Object_Pool *pool))- Get a new object off the free_list in the given pool.
- 2) object consumption the free ptr moves towards the marker
1) object allocation
1a) one bunch of allocated objects was consumed: the free ptr did
hit the marker
+===+---+---+---+---+---+===+
I M I w | w | w | w | w I M I
+ +---+---+---+---+---+ +
^ ^
| |
white free == marker
All these pointer ranges include the first element, but not the last one.
[white ... free_list) is the list of all whites
1b) after allocating another bunch of objects
+===+---+---+---+---+---+---+---+---+---+---+===+
I M I w | w | w | w | w | f | f | f | f | f I M I
+ +---+---+---+---+---+---+---+---+---+---+ +
^ ^ ^
| | |
white free marker
Generation handling functions
overall header chain layout
gen 0 gen 1 ... gen N
marker [first last) [first last) ... [first last) marker
The last (youngest) generation N holds these (pool) pointers:
[ black ... gray ) during marking
[ gray ... white ) during marking
[ white ... free_list ) allocated items
[ free_list ... marker ) free items
The black, white, and generation ranges have additionally (TODO) *fin variants, which refer to PMCs that need destruction/finalization. These are always in front of the ranges to be processed first.
PARROT_MALLOC PARROT_CANNOT_RETURN_NULL static Gc_gms_gen *gc_gms_create_gen(PARROT_INTERP, NOTNULL(Small_Object_Pool *pool), size_t gen_no)- Create a generation structure for the given generation number.
static void gc_gms_init_gen(PARROT_INTERP, NOTNULL(Small_Object_Pool *pool))- Initalize the generation system by creating the first two generations.
PARROT_WARN_UNUSED_RESULT PARROT_CANNOT_RETURN_NULL static Gc_gms_gen *gc_gms_find_gen(PARROT_INTERP, NOTNULL(Gc_gms_hdr *h), UINTVAL gen_no)- RT#48260: Not yet documented!!!
static void gc_gms_promote(PARROT_INTERP, NOTNULL(Gc_gms_hdr *h), UINTVAL gen_no)- RT#48260: Not yet documented!!!
static void gc_gms_store_hdr_list(PARROT_INTERP, NOTNULL(Gc_gms_hdr_list *l), NOTNULL(Gc_gms_hdr *h))- RT#48260: Not yet documented!!!
static void gc_gms_clear_hdr_list(PARROT_INTERP, NOTNULL(Gc_gms_hdr_list *l))- RT#48260: Not yet documented!!!
static void gc_gms_store_igp(PARROT_INTERP, NOTNULL(Gc_gms_hdr *h))- RT#48260: Not yet documented!!!
static void gc_gms_clear_igp(PARROT_INTERP, NOTNULL(Gc_gms_gen *gen))- RT#48260: Not yet documented!!!
void parrot_gc_gms_wb(PARROT_INTERP, NOTNULL(PMC *agg), NOTNULL(void *old), NOTNULL(void *new))- Called by the write barrier. The aggregate belongs to an older generation then the new value written into it. Put the header of the new value onto the IGP list for the current generation, if it contains pointers to other items, and promote it to the old generation.
void parrot_gc_gms_wb_key(PARROT_INTERP, NOTNULL(PMC *agg), NOTNULL(void *old), NOTNULL(void *old_key), NOTNULL(void *new), NOTNULL(void *new_key))- RT#48260: Not yet documented!!!
static void gc_gms_merge_gen(PARROT_INTERP, NOTNULL(Small_Object_Pool *pool), int flag, NOTNULL(Gc_gms_plan *plan))- RT#48260: Not yet documented!!!
static void gc_gms_use_gen(PARROT_INTERP, NOTNULL(Small_Object_Pool *pool), int flag, NOTNULL(Gc_gms_plan *plan))- RT#48260: Not yet documented!!!
PARROT_WARN_UNUSED_RESULT static int set_gen_cb(PARROT_INTERP, NOTNULL(Small_Object_Pool *pool), int flag, NOTNULL(void *arg))- RT#48260: Not yet documented!!!
static void gc_gms_set_gen(PARROT_INTERP)- RT#48260: Not yet documented!!!
Marking functions
Header chain layout
Init: gray := black := white
3) marking the root set
3a) the white 'h' is to be set to gray to be scanned for children
+---+---+---+---+---+---+-> +---+->
| b | b | g | g | g | w | h |
+---+---+---+---+---+---+ <-+---+
^ ^ ^
| | |
black gray white
3b) DFS if 'h' needs timely destruction
+---+---+---+---+---+---+---+->
| b | b | h | g | g | g | w
+---+---+---+---+---+---+---+
^ ^ ^
| | |
black gray white
3c) BFS in the normal case
+---+---+---+---+---+---+---+->
| b | b | g | g | g | h | w
+---+---+---+---+---+---+---+
^ ^ ^
| | |
black gray white
3d) the white is a scalar and immediately blackened
+---+---+---+---+---+---+---+->
| b | b | h | g | g | g | w
+---+---+---+---+---+---+---+
^ ^ ^
| | |
black gray white
3e) blacken the gray 'h' during trace_children
+---+---+---+---+---+---+---+->
| b | b | h | g | g | g | w
+---+---+---+---+---+---+---+
^ ^ ^
| | |
black gray white
+---+---+---+---+---+---+---+->
| b | b | h | g | g | g | w
+---+---+---+---+---+---+---+
^ ^ ^
| | |
black gray white
static void gc_gms_setto_gray(PARROT_INTERP, NOTNULL(Gc_gms_hdr *h), int priority)- Set the white header
hto gray. static void gc_gms_setto_black(PARROT_INTERP, NOTNULL(Gc_gms_hdr *h), int priority)- Set the white header
hto black. PARROT_API void parrot_gc_gms_pobject_lives(PARROT_INTERP, NOTNULL(PObj *obj))- Set the object live - called by the pobject_lives macro
static int init_mark_cb(PARROT_INTERP, NOTNULL(Small_Object_Pool *pool), int flag, NOTNULL(void *arg))- RT#48260: Not yet documented!!!
static void gc_gms_init_mark(PARROT_INTERP)- Initialize the mark phase of GC.
static int trace_igp_cb(PARROT_INTERP, NOTNULL(Small_Object_Pool *pool), int flag, NOTNULL(void *arg))- RT#48260: Not yet documented!!!
static int gc_gms_trace_root(PARROT_INTERP, int trace_stack)- Trace the root set. If
trace_stackis true, trace system areas. static int trace_children_cb(PARROT_INTERP, NOTNULL(Small_Object_Pool *pool), int flag, NOTNULL(void *arg))- RT#48260: Not yet documented!!!
static int gc_gms_trace_children(PARROT_INTERP)- Traverse gray objects: mark and blacken. Returns 0 if the trace was aborted lazily.
static int sweep_cb_pmc(PARROT_INTERP, NOTNULL(Small_Object_Pool *pool), int flag, NOTNULL(void *arg))- move everything from white up to the free_list to the free_list scan for active destroy objects TODO put these in front of the pool at pool->white_fin
static int sweep_cb_buf(PARROT_INTERP, NOTNULL(Small_Object_Pool *pool), int flag, NOTNULL(void *arg))- RT#48260: Not yet documented!!!
static void gc_gms_sweep(PARROT_INTERP)- Free unused resources, put white objects onto free_list.
static int end_cycle_cb(PARROT_INTERP, NOTNULL(Small_Object_Pool *pool), int flag, NOTNULL(void *arg))- RT#48260: Not yet documented!!!
static void gc_gms_end_cycle(PARROT_INTERP)- RT#48260: Not yet documented!!!
Interface function main entry
static void parrot_gc_gms_run(PARROT_INTERP, int flags)- Interface to
Parrot_do_dod_run.flagsis one of: static void gms_debug_verify(PARROT_INTERP, NOTNULL(Small_Object_Pool *pool), ARGIN(const char *action))- RT#48260: Not yet documented!!!
DOD_lazy_FLAG ... timely destruction
DOD_finish_FLAG ... run a final sweep to destruct objects at
interpreter shutdown
SEE ALSO
src/gc/dod.c, include/parrot/dod.h, include/parrot/pobj.h, src/gc/gc_ims.c
HISTORY
Initial version by leo (2005.01.12 - 2005.01.30)
