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

[gc2] x86_64 fix

Browse Source 
svn: r12310
This commit is contained in:
Kevin Tew 2008-11-05 21:10:50 +00:00
parent 49fa1ab8ed
commit 851ef83218
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -249,7 +249,7 @@ inline static void pagemap_set(PageMap page_maps1, void *p, mpage *value) {
pos = PAGEMAP64_LEVEL1_BITS(p);
page_maps2 = page_maps1[pos];
if (!page_maps) {
if (!page_maps2) {
page_maps2 = (mpage ***)calloc(PAGEMAP64_LEVEL2_SIZE, sizeof(mpage **));
page_maps1[pos] = page_maps2;
}

8
src/mzscheme/gc2/platforms.h
View File

@ -4,6 +4,14 @@
# define inline _inline
#endif
#include "../mzconfig.h"
#ifdef SIZEOF_LONG
# if SIZEOF_LONG == 8
# define SIXTY_FOUR_BIT_INTEGERS
# endif
#endif
#if defined(sparc) || defined(__sparc) || defined(__sparc__)
/* Required for `double' operations: */
# define GC_ALIGN_EIGHT