From 00114d2f3eda0980c2a2df416f4fd4fa31bb068d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 17 Mar 2010 12:51:04 +0000
Subject: [PATCH] fix JIT bug related to re-boxing flonums

svn: r18554
---
 src/mzscheme/src/jit.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/jit.c b/src/mzscheme/src/jit.c
index cc50548173..18da266195 100644
--- a/src/mzscheme/src/jit.c
+++ b/src/mzscheme/src/jit.c
@@ -5094,7 +5094,8 @@ static int generate_arith(mz_jit_state *jitter, Scheme_Object *rator, Scheme_Obj
         simple_rand = (ok_to_move_local(rand)
                        || SCHEME_INTP(rand));
         if (!simple_rand)
-          simple_rand2 = SAME_TYPE(SCHEME_TYPE(rand2), scheme_local_type);
+          simple_rand2 = (SAME_TYPE(SCHEME_TYPE(rand2), scheme_local_type)
+                          && (SCHEME_GET_LOCAL_FLAGS(rand2) != SCHEME_LOCAL_FLONUM));
         else
           simple_rand2 = 0;
       } else {