mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-16 17:27:33 +02:00
Fix GC of globals, using new table
This commit is contained in:
parent
4b211430c4
commit
836725a88f
1 changed files with 2 additions and 2 deletions
|
@ -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. */
|
||||||
|
|
Loading…
Add table
Reference in a new issue