From bc086b3e3ce5484c91b8f9f787f44ebcda2a00e2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 12 Jun 2006 15:52:39 +0000 Subject: [PATCH] use unsigned-long comparison for detecting atomic tagged types svn: r3340 --- src/mzscheme/gc2/newgc.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/mzscheme/gc2/newgc.c b/src/mzscheme/gc2/newgc.c index 64a051ed2c..a0985ea20e 100644 --- a/src/mzscheme/gc2/newgc.c +++ b/src/mzscheme/gc2/newgc.c @@ -1802,8 +1802,8 @@ void GC_mark(const void *const_p) /* first check to see if this is an atomic object masquerading as a tagged object; if it is, then convert it */ if(type == PAGE_TAGGED) - if((long)mark_table[*(unsigned short*)p] < PAGE_TYPES) - type = ohead->type = (int)(long)mark_table[*(unsigned short*)p]; + if((unsigned long)mark_table[*(unsigned short*)p] < PAGE_TYPES) + type = ohead->type = (int)(unsigned long)mark_table[*(unsigned short*)p]; /* now set us up for the search for where to put this thing */ work = pages[type];