fix bug in inlined unsafe arithmetic branch

svn: r16431
2009-10-26 16:40:18 +00:00 · 2009-10-26 16:40:18 +00:00 · 535958988c
commit 535958988c
parent c84296c42d
1 changed files with 2 additions and 0 deletions
--- 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();