fix unboxing offset

svn: r17070
2009-11-26 15:44:43 +00:00 · 2009-11-26 15:44:43 +00:00 · 5e9ead0e26
commit 5e9ead0e26
parent 8365c0a938
1 changed files with 2 additions and 1 deletions
--- a/src/mzscheme/src/jit.c
+++ b/src/mzscheme/src/jit.c
@ -4067,6 +4067,7 @@ static int generate_arith(mz_jit_state *jitter, Scheme_Object *rator, Scheme_Obj
    }
    if (args_unboxed) {
      --jitter->unbox;
+      if (rand)
        jitter->unbox_depth -= (rand2 ? 2 : 1);
    }
    if (for_branch)