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

fix JIT bug related to re-boxing flonums

Browse Source 
svn: r18554
This commit is contained in:
Matthew Flatt 2010-03-17 12:51:04 +00:00
parent 2804c57264
commit 00114d2f3e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5094,7 +5094,8 @@ static int generate_arith(mz_jit_state *jitter, Scheme_Object *rator, Scheme_Obj
simple_rand = (ok_to_move_local(rand)
|| SCHEME_INTP(rand));
if (!simple_rand)
simple_rand2 = SAME_TYPE(SCHEME_TYPE(rand2), scheme_local_type);
simple_rand2 = (SAME_TYPE(SCHEME_TYPE(rand2), scheme_local_type)
&& (SCHEME_GET_LOCAL_FLAGS(rand2) != SCHEME_LOCAL_FLONUM));
else
simple_rand2 = 0;
} else {