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

WIP - need to handle cont on the c thread

Browse source 
will probably need to use another setjmp/longjmp to be able to resume c_thread after scm call.
This commit is contained in:
Justin Ethier 2020-08-12 19:03:53 -04:00
parent 10630b4907
commit 56610b7869
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
examples/call-scm-from-c/full.c
View file

@ -47,8 +47,12 @@ void *c_thread(void *parent_thd)
*/
void after_call_scm(gc_thread_data *thd, int argc, object k, object result)
{
thd->gc_cont = result;
longjmp(*(thd->jmp_start), 1);
printf("after call scm\n");
// TODO: Cyc_end_thread logic to wind down thd
// TODO: other longjmp back before the scm trampoline, need to pass result (or something)
// thd->gc_cont = result;
// longjmp(*(thd->jmp_start), 1);
}
/**
@ -88,9 +92,10 @@ object scm_call_with_gc(gc_thread_data *parent_thd, object fnc, object arg)
make_utf8_string(NULL, name_str, "");
make_c_opaque(co_parent_thd, parent_thd);
mclosure0(after, (function_type)after_call_scm);
make_empty_vector(vec);
vec.num_elements = 6;
vec.num_elements = 7;
vec.elements = alloca(sizeof(object) * 5);
vec.elements[0] = find_or_add_symbol("cyc-thread-obj");
vec.elements[1] = fnc;
@ -98,6 +103,7 @@ object scm_call_with_gc(gc_thread_data *parent_thd, object fnc, object arg)
vec.elements[3] = &name_str;
vec.elements[4] = boolean_f;
vec.elements[5] = &co_parent_thd;
vec.elements[6] = &after;
make_pair(thread_and_thunk, &vec, fnc); // TODO: OK we are not clearing vec[5]? I think so...