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

Fix GC of globals, using new table

Browse source
This commit is contained in:
Justin Ethier 2015-05-07 16:25:10 -04:00
parent 4b211430c4
commit 836725a88f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
runtime.c
View file

@ -1389,11 +1389,11 @@ void GC_loop(int major, closure cont, object *ans, int num_ans)
/* Transport global variables. */ /* Transport global variables. */
transp(Cyc_global_variables); /* Internal global used by the runtime */ transp(Cyc_global_variables); /* Internal global used by the runtime */
{ //JAE TODO: GC_GLOBALS {
list l = global_table; list l = global_table;
for(; !nullp(l); l = cdr(l)){ for(; !nullp(l); l = cdr(l)){
cvar_type *c = (cvar_type *)car(l); cvar_type *c = (cvar_type *)car(l);
transp((c->pvar)); // TODO: proper syntax here? transp(*(c->pvar)); // GC global, not the pvar
} }
} }
while (scanp<allocp) /* Scan the newspace. */ while (scanp<allocp) /* Scan the newspace. */