Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-09 22:17:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Pass Cyc_end_thread primitive

Browse source
This commit is contained in:
Justin Ethier 2015-12-17 23:24:23 -05:00
parent 62e4e5afe9
commit 7d57cec8a6
1 changed files with 54 additions and 58 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

112
runtime.c
View file

@ -2483,64 +2483,6 @@ void Cyc_apply_from_buf(void *data, int argc, object prim, object *buf) {
// longjmp(jmp_main,1); /* Return globals gc_cont, gc_ans. */
//}
/**
* Thread initialization function only called from within the runtime
*/
void *Cyc_init_thread(object thunk)
{
long stack_start;
gc_thread_data *thd;
// TODO: I don't think we want a closure here, but rather want to
// init the end-thread primitive, and call into that instead. that way
// we can explicitly provide the thread_data argument.
mclosure0(clo_end, Cyc_end_thread);
thd = malloc(sizeof(gc_thread_data));
gc_thread_data_init(thd, 0, (char *) &stack_start, global_stack_size);
thd->gc_cont = thunk;
thd->gc_num_args = 1;
thd->gc_args[0] = &clo_end;
gc_add_mutator(thd);
Cyc_start_thread(thd);
return NULL;
}
/**
* Spawn a new thread to execute the given thunk
*/
object Cyc_spawn_thread(object thunk)
{
// TODO: if we want to return mutator number to the caller, we need
// to reserve a number here. need to figure out how we are going to
// synchronize access to GC mutator fields, and then reserve one
// here. will need to pass it, along with thunk, to Cyc_init_thread.
// Then can use a new function up there to add the mutator, since we
// already have the number.
pthread_t thread;
pthread_attr_t attr;
pthread_attr_init(&attr);
pthread_attr_setdetachstate(&attr, PTHREAD_CREATE_DETACHED);
if (pthread_create(&thread, NULL, Cyc_init_thread, thunk)) {
fprintf(stderr, "Error creating a new thread\n");
exit(1);
}
return boolean_t;
}
/**
* Terminate a thread
*/
void Cyc_end_thread(gc_thread_data *thd)
{
// alternatively could call longjmp with a null continuation, but that seems
// more complicated than necessary. or does it... see next comment:
// TODO: what if there are any locals from the thread's stack still being
// referenced? might want to do one more minor GC to clear the stack before
// terminating the thread
pthread_exit(NULL); // For now, just a proof of concept
}
/**
* Start a thread's trampoline
@ -3187,3 +3129,57 @@ const object primitive_Cyc_91write = &Cyc_91write_primitive;
const object primitive_Cyc_91display = &Cyc_91display_primitive;
const object primitive_call_95cc = &call_95cc_primitive;
/**
* Thread initialization function only called from within the runtime
*/
void *Cyc_init_thread(object thunk)
{
long stack_start;
gc_thread_data *thd;
thd = malloc(sizeof(gc_thread_data));
gc_thread_data_init(thd, 0, (char *) &stack_start, global_stack_size);
thd->gc_cont = thunk;
thd->gc_num_args = 1;
thd->gc_args[0] = &Cyc_91end_91thread_127_primitive;
gc_add_mutator(thd);
Cyc_start_thread(thd);
return NULL;
}
/**
* Spawn a new thread to execute the given thunk
*/
object Cyc_spawn_thread(object thunk)
{
// TODO: if we want to return mutator number to the caller, we need
// to reserve a number here. need to figure out how we are going to
// synchronize access to GC mutator fields, and then reserve one
// here. will need to pass it, along with thunk, to Cyc_init_thread.
// Then can use a new function up there to add the mutator, since we
// already have the number.
pthread_t thread;
pthread_attr_t attr;
pthread_attr_init(&attr);
pthread_attr_setdetachstate(&attr, PTHREAD_CREATE_DETACHED);
if (pthread_create(&thread, NULL, Cyc_init_thread, thunk)) {
fprintf(stderr, "Error creating a new thread\n");
exit(1);
}
return boolean_t;
}
/**
* Terminate a thread
*/
void Cyc_end_thread(gc_thread_data *thd)
{
// alternatively could call longjmp with a null continuation, but that seems
// more complicated than necessary. or does it... see next comment:
// TODO: what if there are any locals from the thread's stack still being
// referenced? might want to do one more minor GC to clear the stack before
// terminating the thread
pthread_exit(NULL); // For now, just a proof of concept
}