From 486debd70483427f0a90b53cb9c52cf51e899a37 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 10 Jan 2015 19:15:11 -0700
Subject: [PATCH] repair to recent JIT repair

Fix a jump-mode bug introduced with 3408209f66. The bug is most
visible on PPC.
---
 racket/src/racket/src/jitcommon.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/racket/src/racket/src/jitcommon.c b/racket/src/racket/src/jitcommon.c
index 48722c4a76..23bf0a220a 100644
--- a/racket/src/racket/src/jitcommon.c
+++ b/racket/src/racket/src/jitcommon.c
@@ -3802,8 +3802,10 @@ static int more_common1(mz_jit_state *jitter, void *_data)
       jit_rshi_ul(JIT_R1, JIT_R1, JIT_LOG_WORD_SIZE);
       jit_movr_i(JIT_R0, JIT_R1);
       reftop = jit_get_ip();
+      __END_SHORT_JUMPS__(1);
       scheme_generate_non_tail_call(jitter, -1, 0, 1, multi_ok, 0, 0, 1, 0, 0, NULL);
       CHECK_LIMIT();
+      __START_SHORT_JUMPS__(1);
 
       /***********************************/
       /* slow path: */