Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Handle block/runnable with a primitive as the cont

Browse source
This commit is contained in:
Justin Ethier 2016-02-23 23:25:53 -05:00
parent 51748fb957
commit 22814ffc52
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gc.c
View file

@ -1303,6 +1303,8 @@ void gc_mutator_thread_blocked(gc_thread_data *thd, object cont)
thd->gc_num_args = 0; // Will be set later, after collection
}
void Cyc_apply_from_buf(void *data, int argc, object prim, object *buf);
/**
* Called explicitly from a mutator thread to let the collector know
* that it has finished blocking. In addition, if the collector
@ -1336,7 +1338,13 @@ void gc_mutator_thread_runnable(gc_thread_data *thd, object result)
longjmp(*(thd->jmp_start), 1);
} else {
// Collector didn't do anything; make a normal continuation call
(((closure)(thd->gc_cont))->fn)(thd, 1, thd->gc_cont, result);
if (type_of(thd->gc_cont) == cons_tag || prim(thd->gc_cont)) {
object buf[1];
buf[0] = result;
Cyc_apply_from_buf(thd, 1, thd->gc_cont, buf);
} else {
(((closure)(thd->gc_cont))->fn)(thd, 1, thd->gc_cont, result);
}
}
}