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

fix inline `eqv?' (affects PPC)

Browse Source
This commit is contained in:
Matthew Flatt 2011-04-25 07:23:38 -06:00
parent 8ad54552a1
commit 187e483204
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/racket/src/jitinline.c
View File

@ -1753,11 +1753,11 @@ int scheme_generate_inlined_binary(mz_jit_state *jitter, Scheme_App3_Rec *app, i
scheme_add_branch_false(for_branch, ref_f);
scheme_branch_for_true(jitter, for_branch);
} else {
jit_movi_p(JIT_R0, scheme_true);
(void)jit_movi_p(JIT_R0, scheme_true);
ref_d = jit_jmpi(jit_forward());
mz_patch_branch(ref_f);
jit_movi_p(JIT_R0, scheme_false);
(void)jit_movi_p(JIT_R0, scheme_false);
mz_patch_ucbranch(ref_d);
}
@ -1814,11 +1814,10 @@ int scheme_generate_inlined_binary(mz_jit_state *jitter, Scheme_App3_Rec *app, i
scheme_branch_for_true(jitter, for_branch);
} else {
(void)jit_calli(sjc.eqv_code);
jit_retval(JIT_R0);
ref_d1 = jit_jmpi(jit_forward());
mz_patch_branch(ref_t1);
jit_movi_p(JIT_R0, scheme_true);
(void)jit_movi_p(JIT_R0, scheme_true);
ref_d2 = jit_jmpi(jit_forward());
mz_patch_branch(ref_f1);
@ -1827,7 +1826,7 @@ int scheme_generate_inlined_binary(mz_jit_state *jitter, Scheme_App3_Rec *app, i
mz_patch_branch(ref_f4);
mz_patch_branch(ref_f5);
jit_movi_p(JIT_R0, scheme_false);
(void)jit_movi_p(JIT_R0, scheme_false);
mz_patch_ucbranch(ref_d1);
mz_patch_ucbranch(ref_d2);