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

refactored gc marked to clearly show fallthrough

Browse Source 
svn: r18454
This commit is contained in:
Kevin Tew 2010-03-03 21:42:14 +00:00
parent 6fc4add369
commit bf71d2a8af
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/mzscheme/gc2/newgc.c
View File

@ -1192,15 +1192,23 @@ inline static int marked(NewGC *gc, void *p)
if(!p) return 0;
if(!(page = pagemap_find_page(gc->page_maps, p))) return 1;
if (page->size_class) {
if (page->size_class > 1) {
return (page->size_class > 2);
}
} else if (page->generation) {
if((NUM(page->addr) + page->previous_size) > NUM(p))
switch(page->size_class) {
case SIZE_CLASS_BIG_PAGE_MARKED:
return 1;
case SIZE_CLASS_SMALL_PAGE:
if (page->generation) {
if((NUM(page->addr) + page->previous_size) > NUM(p))
return 1;
}
/* else FALLTHROUGH */
case SIZE_CLASS_MED_PAGE: /* FALLTHROUGH */
case SIZE_CLASS_BIG_PAGE:
return OBJPTR_TO_OBJHEAD(p)->mark;
break;
default:
fprintf(stderr, "ABORTING! INVALID SIZE_CLASS %i\n", page->size_class);
exit(EXIT_FAILURE);
}
return OBJPTR_TO_OBJHEAD(p)->mark;
}
/*****************************************************************************/