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

use unsigned-long comparison for detecting atomic tagged types

Browse Source 
svn: r3340
This commit is contained in:
Matthew Flatt 2006-06-12 15:52:39 +00:00
parent a009ba322d
commit bc086b3e3c
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/mzscheme/gc2/newgc.c
View File

@ -1802,8 +1802,8 @@ void GC_mark(const void *const_p)
/* first check to see if this is an atomic object masquerading /* first check to see if this is an atomic object masquerading
as a tagged object; if it is, then convert it */ as a tagged object; if it is, then convert it */
if(type == PAGE_TAGGED) if(type == PAGE_TAGGED)
if((long)mark_table[*(unsigned short*)p] < PAGE_TYPES) if((unsigned long)mark_table[*(unsigned short*)p] < PAGE_TYPES)
type = ohead->type = (int)(long)mark_table[*(unsigned short*)p]; type = ohead->type = (int)(unsigned long)mark_table[*(unsigned short*)p];
/* now set us up for the search for where to put this thing */ /* now set us up for the search for where to put this thing */
work = pages[type]; work = pages[type];