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

better JIT repair

Browse Source 
I'm fairly certain that the change in commit 25e9bd2a190acf861 isn't
right, but I'm having trouble generating tests to demonstrate the
original bug or this correction.
This commit is contained in:
Matthew Flatt 2012-01-08 13:18:19 -07:00
parent b24e0d52ea
commit 8d9614c41c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -952,7 +952,8 @@ int scheme_generate_arith(mz_jit_state *jitter, Scheme_Object *rator, Scheme_Obj
jitter->unbox_depth -= flonum_depth;
if (!jitter->unbox && jitter->unbox_depth && rand)
scheme_signal_error("internal error: broken unbox depth");
if (for_branch)
if (for_branch
|| (arith == ARITH_INEX_EX)) /* has slow path */
mz_rs_sync(); /* needed if arguments were unboxed */
generate_double_arith(jitter, rator, arith, cmp, reversed, !!rand2, 0,
@ -966,7 +967,6 @@ int scheme_generate_arith(mz_jit_state *jitter, Scheme_Object *rator, Scheme_Obj
if ((arith == ARITH_INEX_EX) && (unsafe_fl < 1)) {
/* need a slow path */
mz_rs_sync(); /* needed if arguments were unboxed */
if (args_unboxed) {
(void)jit_calli(sjc.box_flonum_from_reg_code);
}