From 0a6f85a49c9e70db213f0aa927003382d6887806 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 4 Feb 2010 18:11:32 +0000
Subject: [PATCH] fix JIT bug related to capturing flonum locals

svn: r17968
---
 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 027569b60f..09b8646b4a 100644
--- a/src/mzscheme/src/jit.c
+++ b/src/mzscheme/src/jit.c
@@ -8438,7 +8438,7 @@ static int generate_closure_prep(Scheme_Closure_Data *data, mz_jit_state *jitter
       if (CLOSURE_CONTENT_IS_FLONUM(data, j)) {
         pos = mz_remap(map[j]);
         jit_ldxi_p(JIT_R1, JIT_RUNSTACK, WORDS_TO_BYTES(pos));
-        generate_flonum_local_boxing(jitter, pos, map[j], JIT_R0);
+        generate_flonum_local_boxing(jitter, pos, map[j], JIT_R1);
         CHECK_LIMIT();
         retval = 1;
       }