From 565f3a22ed8ecb1361305457f0d363cda53479cc Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 3 Apr 2008 11:11:03 +0000
Subject: [PATCH] fix 64-bit JIT-inlined comparison ops on 2^30 constant

svn: r9145
---
 src/mzscheme/src/jit.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/jit.c b/src/mzscheme/src/jit.c
index c6a3fecf80..fa34478604 100644
--- a/src/mzscheme/src/jit.c
+++ b/src/mzscheme/src/jit.c
@@ -2563,7 +2563,7 @@ static jit_insn *generate_arith_slow_path(mz_jit_state *jitter, Scheme_Object *r
 }
 
 #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
 # define SCHEME_INT_SMALL_ENOUGH(rand2) 1
 #endif