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

fix problem with JIT and safe fl ops

Browse Source 
Closes PR 10982
This commit is contained in:
Matthew Flatt 2010-06-26 14:18:34 -06:00
parent dc98077ca4
commit 22d8ff470c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/racket/src/jit.c
View File

@ -5197,7 +5197,7 @@ static int generate_arith(mz_jit_state *jitter, Scheme_Object *rator, Scheme_Obj
/* Maybe they're both doubles... */ /* Maybe they're both doubles... */
if (unsafe_fl) mz_rs_sync(); if (unsafe_fl) mz_rs_sync();
generate_double_arith(jitter, rator, arith, cmp, reversed, 1, 0, &refd, &refdt, generate_double_arith(jitter, rator, arith, cmp, reversed, 1, 0, &refd, &refdt,
for_branch, branch_short, unsafe_fl, 0, 0); for_branch, branch_short, unsafe_fl, 0, unbox);
CHECK_LIMIT(); CHECK_LIMIT();
} }
@ -5247,7 +5247,7 @@ static int generate_arith(mz_jit_state *jitter, Scheme_Object *rator, Scheme_Obj
/* Maybe they're both doubles... */ /* Maybe they're both doubles... */
if (unsafe_fl) mz_rs_sync(); if (unsafe_fl) mz_rs_sync();
generate_double_arith(jitter, rator, arith, cmp, reversed, 1, 0, &refd, &refdt, generate_double_arith(jitter, rator, arith, cmp, reversed, 1, 0, &refd, &refdt,
for_branch, branch_short, unsafe_fl, 0, 0); for_branch, branch_short, unsafe_fl, 0, unbox);
CHECK_LIMIT(); CHECK_LIMIT();
} }
@ -5295,7 +5295,7 @@ static int generate_arith(mz_jit_state *jitter, Scheme_Object *rator, Scheme_Obj
&& ((arith != -2) || v || reversed))) { && ((arith != -2) || v || reversed))) {
/* Maybe it's a double... */ /* Maybe it's a double... */
generate_double_arith(jitter, rator, arith, cmp, reversed, 0, v, &refd, &refdt, generate_double_arith(jitter, rator, arith, cmp, reversed, 0, v, &refd, &refdt,
for_branch, branch_short, unsafe_fl, 0, 0); for_branch, branch_short, unsafe_fl, 0, unbox);
CHECK_LIMIT(); CHECK_LIMIT();
} }