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

fix bug related to CGC, 'flvector-set', a bad first or second argument, and an unboxable third argument

Browse Source 
svn: r17916
This commit is contained in:
Matthew Flatt 2010-01-31 16:50:36 +00:00
parent e8c97a5102
commit de98d4fd79
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7857,9 +7857,16 @@ static int generate_inlined_nary(mz_jit_state *jitter, Scheme_App_Rec *app, int
if ((which == 3) if ((which == 3)
&& (can_unbox_inline(app->args[3], 5, JIT_FPR_NUM-3, 0) && (can_unbox_inline(app->args[3], 5, JIT_FPR_NUM-3, 0)
|| can_unbox_directly(app->args[3]))) || can_unbox_directly(app->args[3]))) {
flonum_arg = 1; # if !defined(INLINE_FP_OPS) || !defined(CAN_INLINE_ALLOC)
/* Error handling will have to box flonum, so don't unbox if
that cannot be done inline: */
if (!unsafe)
flonum_arg = 0;
else else
# endif
flonum_arg = 1;
} else
flonum_arg = 0; flonum_arg = 0;
if (flonum_arg) { if (flonum_arg) {