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

another place-channel finalization repair

Browse Source
This commit is contained in:
Matthew Flatt 2011-09-15 06:38:41 -06:00
parent f1e960c954
commit cc9514f8ca
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/racket/gc2/newgc.c
View File

@ -1558,22 +1558,26 @@ void GC_destroy_orphan_msg_memory(void *param) {
if (msgm->big_pages)
{
mpage *tmp = msgm->big_pages;
mpage *tmp = msgm->big_pages, *next;
next = tmp->next;
free_orphaned_page(gc, tmp);
while (tmp->next) {
tmp = tmp->next;
while (next) {
tmp = next;
next = tmp->next;
free_orphaned_page(gc, tmp);
}
}
if (msgm->pages)
{
mpage *tmp = msgm->pages;
mpage *tmp = msgm->pages, *next;
next = tmp->next;
free_orphaned_page(gc, tmp);
while (tmp->next) {
tmp = tmp->next;
while (next) {
tmp = next;
next = tmp->next;
free_orphaned_page(gc, tmp);
}