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

WIP

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

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

@ -3116,16 +3116,21 @@ static void __host_lambda_1(void *data, int argc, closure self) {
// // initialize "stack" here, and unload arguments. // // initialize "stack" here, and unload arguments.
// // assumes the compile can compute the stack's max size, since it knows the number of args each function has // // assumes the compile can compute the stack's max size, since it knows the number of args each function has
// memcpy(stack, args, sizeof(object) * argc); // memcpy(stack, args, sizeof(object) * argc);
static int tmp = 0;
while(1) { while(1) {
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++;
if (tmp == 4) {
printf("starting GC\n");
// TODO: // TODO:
// if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { // 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, &c1, buf, ?); GC(data, &c1, buf, ?);
// return; return;
// } }
// TODO: if exceeded stack limit, initiate minor GC // TODO: if exceeded stack limit, initiate minor GC
// bundle up args, pc, and pass them along // bundle up args, pc, and pass them along