From 97c34905c12b3a74f9079205bf8167a44b6fba4c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 19 Feb 2013 16:40:51 -0700
Subject: [PATCH] racket/extflonum: fix JIT-inlined `extflvector-ref' in 32-bit
 mode

---
 src/racket/src/jitinline.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/racket/src/jitinline.c b/src/racket/src/jitinline.c
index a9da05260d..6d2a39c3b6 100644
--- a/src/racket/src/jitinline.c
+++ b/src/racket/src/jitinline.c
@@ -2931,8 +2931,10 @@ int scheme_generate_inlined_binary(mz_jit_state *jitter, Scheme_App3_Rec *app, i
             scheme_signal_error("internal error: bad depth for flvector-ref");
         }
         can_chaperone = 0;
-        if (MZ_LONG_DOUBLE_AND(IS_NAMED_PRIM(rator, "extflvector-ref")))
+        if (MZ_LONG_DOUBLE_AND(IS_NAMED_PRIM(rator, "extflvector-ref"))) {
           extfl = 1;
+          base_offset = ((int)&SCHEME_EXTFLVEC_ELS(0x0));
+        }
       } else if (IS_NAMED_PRIM(rator, "unsafe-struct*-ref")) {
 	which = 0;
         unsafe = 1;