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

fix for Win64 build

Browse Source 
Repairs a problem introduced by recent JIT changes.
This commit is contained in:
Matthew Flatt 2012-11-12 06:06:45 -07:00
parent 8c47dbba01
commit 4c3ee9c3c9
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/racket/src/jitstate.c
View File

@ -107,8 +107,10 @@ double *scheme_mz_retain_double(mz_jit_state *jitter, double d)
#endif #endif
#ifdef SET_DEFAULT_LONG_JUMPS #ifdef SET_DEFAULT_LONG_JUMPS
static int check_long_mode(uintptr_t low, uintptr_t high) static int check_long_mode(uintptr_t low, uintptr_t size)
{ {
uintptr_t high = low + size;
if (default_long_jumps) if (default_long_jumps)
return 1; return 1;
@ -257,7 +259,7 @@ void *scheme_generate_one(mz_jit_state *old_jitter,
/* In the case that we start allocating so much that the address /* In the case that we start allocating so much that the address
moves beyond the 32-bit half where code normally resides, moves beyond the 32-bit half where code normally resides,
then switch over to long-jump mode. */ then switch over to long-jump mode. */
if (check_long_mode((uintptr_t)buffer, (uintptr_t)(buffer+size))) { if (check_long_mode((uintptr_t)buffer, size)) {
/* start over */ /* start over */
known_size = 0; known_size = 0;
use_long_jumps = 1; use_long_jumps = 1;
@ -310,7 +312,7 @@ void *scheme_generate_one(mz_jit_state *old_jitter,
/* Check again after generate, because we may have /* Check again after generate, because we may have
generated new code blocks along the way. */ generated new code blocks along the way. */
if (!use_long_jumps) { if (!use_long_jumps) {
if (check_long_mode((uintptr_t)buffer, (uintptr_t)(buffer+size))) { if (check_long_mode((uintptr_t)buffer, size)) {
/* start over */ /* start over */
known_size = 0; known_size = 0;
use_long_jumps = 1; use_long_jumps = 1;