From 535958988c67381d4a332cb5010e7375bb9636c9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 26 Oct 2009 16:40:18 +0000
Subject: [PATCH] fix bug in inlined unsafe arithmetic branch

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

diff --git a/src/mzscheme/src/jit.c b/src/mzscheme/src/jit.c
index 3a984c66a1..5c49ac84cc 100644
--- a/src/mzscheme/src/jit.c
+++ b/src/mzscheme/src/jit.c
@@ -3818,6 +3818,8 @@ static int generate_arith(mz_jit_state *jitter, Scheme_Object *rator, Scheme_Obj
     }
     --jitter->unbox;
     jitter->unbox_depth -= (rand2 ? 2 : 1);
+    if (for_branch)
+      mz_rs_sync(); /* needed if arguments were unboxed */
     generate_double_arith(jitter, arith, cmp, 0, !!rand2, 0,
                           &refd, &refdt, branch_short, 1, 1, jitter->unbox);
     CHECK_LIMIT();