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

fix 64-bit JIT-inlined comparison ops on 2^30 constant

Browse Source 
svn: r9145
This commit is contained in:
Matthew Flatt 2008-04-03 11:11:03 +00:00
parent 694502515f
commit 565f3a22ed
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/jit.c
View File

@ -2563,7 +2563,7 @@ static jit_insn *generate_arith_slow_path(mz_jit_state *jitter, Scheme_Object *r
} }
#ifdef SIXTY_FOUR_BIT_INTEGERS #ifdef SIXTY_FOUR_BIT_INTEGERS
# define SCHEME_INT_SMALL_ENOUGH(rand2) ((((long)rand2 & 0xFFFFFFFF) == (long)rand2) || (((long)rand2 & 0xFFFFFFFFF0000000) == 0xFFFFFFFFF0000000)) # define SCHEME_INT_SMALL_ENOUGH(rand2) ((((long)rand2 & 0x7FFFFFFF) == (long)rand2) || (((long)rand2 & 0xFFFFFFFFF8000000) == 0xFFFFFFFFF8000000))
#else #else
# define SCHEME_INT_SMALL_ENOUGH(rand2) 1 # define SCHEME_INT_SMALL_ENOUGH(rand2) 1
#endif #endif