From ca48eff84ca2fc7a8e611ec2f02bbd3d0cc06158 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 2 Jul 2010 18:52:13 -0600
Subject: [PATCH] fix JIT bug specific to x86_64 and PPC

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

diff --git a/src/racket/src/jit.c b/src/racket/src/jit.c
index 467efb1683..275d9ec578 100644
--- a/src/racket/src/jit.c
+++ b/src/racket/src/jit.c
@@ -4751,7 +4751,7 @@ static int generate_double_arith(mz_jit_state *jitter, Scheme_Object *rator,
           }
           (void)mz_tl_sti_d_fppop(tl_save_fp, JIT_FPR0, JIT_R2);
           mz_prepare(0);
-          mz_finish(f);
+          (void)mz_finish(f);
           (void)mz_tl_ldi_d_fppush(JIT_FPR0, tl_save_fp, JIT_R2);
         }
         break;
@@ -8174,7 +8174,9 @@ static int generate_inlined_binary(mz_jit_state *jitter, Scheme_App3_Rec *app, i
 
       allocate_rectangular(jitter);
 
+      __START_SHORT_JUMPS__(1);
       mz_patch_ucbranch(refdone);
+      __END_SHORT_JUMPS__(1);
 
       return 1;
     } else if (IS_NAMED_PRIM(rator, "make-flrectangular")) {