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

fix potential refcount bug

Browse Source 
In the unlikely case that a receiving place ends while a
message is being sent.
This commit is contained in:
Matthew Flatt 2011-10-03 06:13:53 -06:00
parent 753dfa3cb2
commit 664b95465d
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

@ -2679,7 +2679,7 @@ static void place_async_send(Scheme_Place_Async_Channel *ch, Scheme_Object *uo)
ch->wakeup_signal = NULL; ch->wakeup_signal = NULL;
for (i = 0; i < size; i++) { for (i = 0; i < size; i++) {
Scheme_Place_Object *o2 = (Scheme_Place_Object *)SCHEME_VEC_ELS(v)[i]; Scheme_Place_Object *o2 = (Scheme_Place_Object *)SCHEME_VEC_ELS(v)[i];
if (o2 && o2->signal_handle != NULL) { if (o2) {
ch->wakeup_signal = (Scheme_Object *)o2; ch->wakeup_signal = (Scheme_Object *)o2;
break; break;
} }
@ -2691,7 +2691,7 @@ static void place_async_send(Scheme_Place_Async_Channel *ch, Scheme_Object *uo)
nv = GC_master_make_vector(size/2); nv = GC_master_make_vector(size/2);
for (i = 0; i < size; i++) { for (i = 0; i < size; i++) {
Scheme_Place_Object *o2 = (Scheme_Place_Object *)SCHEME_VEC_ELS(v)[i]; Scheme_Place_Object *o2 = (Scheme_Place_Object *)SCHEME_VEC_ELS(v)[i];
if (o2 && o2->signal_handle != NULL) { if (o2) {
SCHEME_VEC_ELS(nv)[ncnt] = (Scheme_Object *)o2; SCHEME_VEC_ELS(nv)[ncnt] = (Scheme_Object *)o2;
ncnt++; ncnt++;
} }