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

fix ordering bug in place termination

Browse Source 
This bug was introduced in 94771f16ed, moving a local-variable
initialization to after its use.
This commit is contained in:
Matthew Flatt 2013-12-30 16:18:55 -07:00
parent 56483c8809
commit bce8fc84f8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2557,7 +2557,11 @@ static void terminate_current_place(Scheme_Object *result)
place_obj = place_object;
place_object = NULL;
mzrt_mutex_lock(place_obj->lock);
place_obj_die = place_obj->die;
mzrt_mutex_unlock(place_obj->lock);
/*printf("Leavin place: proc thread id%u\n", ptid);*/
/* Beware that the destroy operation might trigger a GC to cooperate
@ -2568,7 +2572,6 @@ static void terminate_current_place(Scheme_Object *result)
mzrt_mutex_lock(place_obj->lock);
place_obj_die = place_obj->die;
place_obj->refcount--;
refcount = place_obj->refcount;