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

add `flexpt' to compiler's table of flonum functions

Browse Source 
Relevant to PR 13052 - works around the problem while improving
the optimizer, but doesn't fix the real problem, I think.
This commit is contained in:
Matthew Flatt 2012-08-22 10:28:01 -06:00
parent ef525233a2
commit 2d1cf47636
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/racket/src/optimize.c
View File

@ -1452,6 +1452,7 @@ int scheme_wants_flonum_arguments(Scheme_Object *rator, int argpos, int rotate_m
|| IS_NAMED_PRIM(rator, "flatan") || IS_NAMED_PRIM(rator, "flatan")
|| IS_NAMED_PRIM(rator, "fllog") || IS_NAMED_PRIM(rator, "fllog")
|| IS_NAMED_PRIM(rator, "flexp") || IS_NAMED_PRIM(rator, "flexp")
|| IS_NAMED_PRIM(rator, "flexpt")
|| IS_NAMED_PRIM(rator, "fl+") || IS_NAMED_PRIM(rator, "fl+")
|| IS_NAMED_PRIM(rator, "fl-") || IS_NAMED_PRIM(rator, "fl-")
|| IS_NAMED_PRIM(rator, "fl*") || IS_NAMED_PRIM(rator, "fl*")
@ -1535,6 +1536,7 @@ static int produces_unboxed(Scheme_Object *rator, int *non_fl_args, int argc, in
|| IS_NAMED_PRIM(rator, "fl/") || IS_NAMED_PRIM(rator, "fl/")
|| IS_NAMED_PRIM(rator, "flmin") || IS_NAMED_PRIM(rator, "flmin")
|| IS_NAMED_PRIM(rator, "flmax") || IS_NAMED_PRIM(rator, "flmax")
|| IS_NAMED_PRIM(rator, "flexpt")
|| (for_args || (for_args
&& (IS_NAMED_PRIM(rator, "fl<") && (IS_NAMED_PRIM(rator, "fl<")
|| IS_NAMED_PRIM(rator, "fl<=") || IS_NAMED_PRIM(rator, "fl<=")