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

Demonstrate initiatng GC

Browse source
This commit is contained in:
Justin Ethier 2018-10-13 18:03:26 -04:00
parent 27a9e7abd5
commit 3879759ccc
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tests/experimental/fac-test.c
View file

@ -3123,12 +3123,12 @@ static void __host_lambda_1(void *data, int argc, closure self) {
object *stack = ((gc_thread_data *)data)->args; // TODO: do it inline for benchmarks/production code object *stack = ((gc_thread_data *)data)->args; // TODO: do it inline for benchmarks/production code
top = alloca(sizeof(object)); // TODO: is there a more efficient way? top = alloca(sizeof(object)); // TODO: is there a more efficient way?
tmp++; tmp++;
if (tmp == 4) { // if (tmp%2) {
if ((tmp%2) || stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) {
printf("starting GC\n"); printf("starting GC\n");
// TODO: // TODO:
// if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { //mclosure0(c1, (function_type) __host_lambda_1);
mclosure0(c1, (function_type) __host_lambda_1); GC(data, self, ((gc_thread_data *)data)->args, argc);
GC(data, &c1, buf, ?);
return; return;
} }
// TODO: if exceeded stack limit, initiate minor GC // TODO: if exceeded stack limit, initiate minor GC