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

fix JIT bug specific to x86_64 and PPC

Browse Source
This commit is contained in:
Matthew Flatt 2010-07-02 18:52:13 -06:00
parent e989631d56
commit ca48eff84c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4751,7 +4751,7 @@ static int generate_double_arith(mz_jit_state *jitter, Scheme_Object *rator,
} }
(void)mz_tl_sti_d_fppop(tl_save_fp, JIT_FPR0, JIT_R2); (void)mz_tl_sti_d_fppop(tl_save_fp, JIT_FPR0, JIT_R2);
mz_prepare(0); mz_prepare(0);
mz_finish(f); (void)mz_finish(f);
(void)mz_tl_ldi_d_fppush(JIT_FPR0, tl_save_fp, JIT_R2); (void)mz_tl_ldi_d_fppush(JIT_FPR0, tl_save_fp, JIT_R2);
} }
break; break;
@ -8174,7 +8174,9 @@ static int generate_inlined_binary(mz_jit_state *jitter, Scheme_App3_Rec *app, i
allocate_rectangular(jitter); allocate_rectangular(jitter);
__START_SHORT_JUMPS__(1);
mz_patch_ucbranch(refdone); mz_patch_ucbranch(refdone);
__END_SHORT_JUMPS__(1);
return 1; return 1;
} else if (IS_NAMED_PRIM(rator, "make-flrectangular")) { } else if (IS_NAMED_PRIM(rator, "make-flrectangular")) {