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

Add flexpt to is_inline_unboxable_op list

Browse Source
This commit is contained in:
Gustavo Massaccesi 2015-02-02 17:04:39 -03:00 committed by Matthew Flatt
parent 8c545ae05a
commit 84543217f9
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -104,6 +104,7 @@ static int is_inline_unboxable_op(Scheme_Object *obj, int flag, int unsafely, in
if (IS_NAMED_PRIM(obj, "flatan")) return 1;
if (IS_NAMED_PRIM(obj, "fllog")) return 1;
if (IS_NAMED_PRIM(obj, "flexp")) return 1;
if (IS_NAMED_PRIM(obj, "flexpt")) return 1;
}
}
}
@ -147,6 +148,7 @@ static int is_inline_unboxable_op(Scheme_Object *obj, int flag, int unsafely, in
if (IS_NAMED_PRIM(obj, "extflatan")) return 1;
if (IS_NAMED_PRIM(obj, "extfllog")) return 1;
if (IS_NAMED_PRIM(obj, "extflexp")) return 1;
if (IS_NAMED_PRIM(obj, "extflexpt")) return 1;
}
}
}
@ -1132,6 +1134,7 @@ int scheme_generate_arith_for(mz_jit_state *jitter, Scheme_Object *rator, Scheme
arith = 13 -> sqrt
arith = 14 -> unary floating-point op (consult `rator')
arith = 15 -> inexact->exact
arith = 16 -> flexpt
cmp = 0 -> = or zero?
cmp = +/-1 -> >=/<=
cmp = +/-2 -> >/< or positive/negative?