suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

reliably clear signal_handle when a place ends

Browse Source
This commit is contained in:
Matthew Flatt 2011-07-06 15:53:07 -06:00
parent 79d5572153
commit 63ae1cabc4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/racket/src/place.c
View File

@ -1552,6 +1552,7 @@ void scheme_place_check_for_interruption()
} }
static void place_set_result(Scheme_Object *result) static void place_set_result(Scheme_Object *result)
/* always called as a place terminates */
{ {
intptr_t status; intptr_t status;
@ -1566,6 +1567,7 @@ static void place_set_result(Scheme_Object *result)
place_object->result = status; place_object->result = status;
scheme_signal_received_at(place_object->parent_signal_handle); scheme_signal_received_at(place_object->parent_signal_handle);
place_object->parent_signal_handle = NULL; place_object->parent_signal_handle = NULL;
place_object->signal_handle = NULL;
mzrt_mutex_unlock(place_object->lock); mzrt_mutex_unlock(place_object->lock);
} }
@ -1674,8 +1676,6 @@ static void *place_start_proc_after_stack(void *data_arg, void *stack_base) {
scheme_log(NULL, SCHEME_LOG_DEBUG, 0, "place %d: exiting", scheme_current_place_id); scheme_log(NULL, SCHEME_LOG_DEBUG, 0, "place %d: exiting", scheme_current_place_id);
place_obj->signal_handle = NULL;
/*printf("Leavin place: proc thread id%u\n", ptid);*/ /*printf("Leavin place: proc thread id%u\n", ptid);*/
scheme_place_instance_destroy(place_obj->die); scheme_place_instance_destroy(place_obj->die);