From 421ef327977ebfdd15ca1e654901ae30ae27379a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 7 Jul 2006 03:25:15 +0000 Subject: [PATCH] fix sgc collect() plausible range for 64 bits svn: r3644 --- src/mzscheme/sgc/collect.inc | 4 ++-- src/mzscheme/sgc/sgc.c | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/mzscheme/sgc/collect.inc b/src/mzscheme/sgc/collect.inc index cb3709819f..81acafdf25 100644 --- a/src/mzscheme/sgc/collect.inc +++ b/src/mzscheme/sgc/collect.inc @@ -49,8 +49,8 @@ static void COLLECT(OFFSET_ARG) #ifndef SIXTY_FOUR_BIT_INTEGERS SectorPage **local_sector_pagetables; #endif - unsigned local_low_plausible; - unsigned local_high_plausible; + unsigned long local_low_plausible; + unsigned long local_high_plausible; int local_collect_stack_size; int local_collect_stack_count; unsigned long *local_collect_stack; diff --git a/src/mzscheme/sgc/sgc.c b/src/mzscheme/sgc/sgc.c index 0dff7aa928..426fe87842 100644 --- a/src/mzscheme/sgc/sgc.c +++ b/src/mzscheme/sgc/sgc.c @@ -817,7 +817,7 @@ static void free_error(const char *msg) static SectorPage ***sector_pagetablesss[1 << 16]; # define DECL_SECTOR_PAGETABLES SectorPage **sector_pagetables; # define GET_SECTOR_PAGETABLES(p) sector_pagetables = create_sector_pagetables(p) -# define FIND_SECTOR_PAGETABLES(p) sector_pagetables = get_sector_pagetables(p); +# define FIND_SECTOR_PAGETABLES(p) sector_pagetables = get_sector_pagetables(p) static void *malloc_plain_sector(int count); inline static SectorPage **create_sector_pagetables(unsigned long p) { unsigned long pos;