suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix unboxing offset

Browse Source 
svn: r17070
This commit is contained in:
Matthew Flatt 2009-11-26 15:44:43 +00:00
parent 8365c0a938
commit 5e9ead0e26
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/mzscheme/src/jit.c
View File

@ -4067,6 +4067,7 @@ static int generate_arith(mz_jit_state *jitter, Scheme_Object *rator, Scheme_Obj
} }
if (args_unboxed) { if (args_unboxed) {
--jitter->unbox; --jitter->unbox;
if (rand)
jitter->unbox_depth -= (rand2 ? 2 : 1); jitter->unbox_depth -= (rand2 ? 2 : 1);
} }
if (for_branch) if (for_branch)