Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 08:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added remaining types to scanning section

Browse source
This commit is contained in:
Justin Ethier 2015-10-16 21:53:26 -04:00
parent b08f68cf52
commit 9895029a90
1 changed files with 45 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
runtime.c
View file

@ -2463,8 +2463,52 @@ void GC(cont, args, num_args) closure cont; object *args; int num_args;
case cons_tag: { case cons_tag: {
gc_move2heap(car(obj)); gc_move2heap(car(obj));
gc_move2heap(cdr(obj)); gc_move2heap(cdr(obj));
break;
} }
// TODO: other types to move case closure1_tag:
gc_move2heap(((closure1) obj)->elt1);
break;
case closure2_tag:
gc_move2heap(((closure2) obj)->elt1);
gc_move2heap(((closure2) obj)->elt2);
case closure3_tag:
gc_move2heap(((closure3) obj)->elt1);
gc_move2heap(((closure3) obj)->elt2);
gc_move2heap(((closure3) obj)->elt3);
case closure4_tag:
gc_move2heap(((closure4) obj)->elt1);
gc_move2heap(((closure4) obj)->elt2);
gc_move2heap(((closure4) obj)->elt3);
gc_move2heap(((closure4) obj)->elt4);
break;
case closureN_tag: {
int i, n = ((closureN) obj)->num_elt;
for (i = 0; i < n; i++) {
gc_move2heap(((closureN) obj)->elts[i]);
}
break;
}
case vector_tag: {
int i, n = ((vector) obj)->num_elt;
for (i = 0; i < n; i++) {
gc_move2heap(((vector) obj)->elts[i]);
}
break;
}
// No child objects to move
case closure0_tag:
case macro_tag:
case string_tag:
case integer_tag:
case double_tag:
case port_tag:
case cvar_tag:
break;
// These types are not heap-allocated
case eof_tag:
case primitive_tag:
case symbol_tag:
case boolean_tag:
default: default:
fprintf(stderr, fprintf(stderr,
"GC: unexpected object type %ld for object %p\n", type_of(obj), obj); "GC: unexpected object type %ld for object %p\n", type_of(obj), obj);