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

more 64-bit 3m fixes

Browse Source 
svn: r2582
This commit is contained in:
Robby Findler 2006-04-03 16:59:21 +00:00
parent a28f1f0f1c
commit 230fcda959
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2103,7 +2103,7 @@ inline static void do_heap_compact(void)
gcWORDS_TO_BYTES(info->size), start+1, newplace+1));
memcpy(newplace, start, gcWORDS_TO_BYTES(info->size));
info->moved = 1;
*(PPTR(NUM(start) + 4)) = PTR(NUM(newplace) + 4);
*(PPTR(NUM(start) + WORD_SIZE)) = PTR(NUM(newplace) + WORD_SIZE);
newplace += info->size;
}
start += info->size;

6
src/mzscheme/src/hash.c
View File

@ -715,7 +715,8 @@ static long hash_general(Scheme_Object *o)
keygen += 4;
}
return *(long *) mzALIAS o;
/* Relies on int = two shorts: */
return *(int *) mzALIAS o;
}
static long hash_symbol(Scheme_Object *o)
@ -736,7 +737,8 @@ static long hash_symbol(Scheme_Object *o)
return hash_general(o);
}
return *(long *) mzALIAS o;
/* Relies on int = two shorts: */
return *(int *) mzALIAS o;
}
static long hash_prim(Scheme_Object *o)