procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR middle-end/30447 (Evaluate complex math functions at compile-time)

Browse source 
PR middle-end/30447
	* builtins.c (fold_builtin_cabs): Use MPFR to evaluate a
	constant argument to cabs and do it without checking for
	-funsafe-math-optimizations.

From-SVN: r121163
This commit is contained in:
Kaveh R. Ghazi 2007-01-25 04:15:26 +00:00 • committed by Kaveh Ghazi
parent e1f1ee86a8
commit 01ffa37015
2 changed files with 14 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gcc/ChangeLog
View file

@ -1,3 +1,10 @@
2007-01-24 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
PR middle-end/30447
* builtins.c (fold_builtin_cabs): Use MPFR to evaluate a
constant argument to cabs and do it without checking for
-funsafe-math-optimizations.
2007-01-24 Douglas Gregor <dgregor@osl.iu.edu>
* c-common.h (RID_FIRST_CXX0X): New.

29
gcc/builtins.c
View file

@ -7021,7 +7021,7 @@ fold_fixed_mathfn (tree fndecl, tree arglist)
static tree
fold_builtin_cabs (tree arglist, tree type, tree fndecl)
{
tree arg;
tree arg, res;
if (!arglist || TREE_CHAIN (arglist))
return NULL_TREE;
@ -7031,27 +7031,12 @@ fold_builtin_cabs (tree arglist, tree type, tree fndecl)
|| TREE_CODE (TREE_TYPE (TREE_TYPE (arg))) != REAL_TYPE)
return NULL_TREE;
/* Evaluate cabs of a constant at compile-time. */
if (flag_unsafe_math_optimizations
&& TREE_CODE (arg) == COMPLEX_CST
&& TREE_CODE (TREE_REALPART (arg)) == REAL_CST
&& TREE_CODE (TREE_IMAGPART (arg)) == REAL_CST
&& !TREE_OVERFLOW (TREE_REALPART (arg))
&& !TREE_OVERFLOW (TREE_IMAGPART (arg)))
{
REAL_VALUE_TYPE r, i;
r = TREE_REAL_CST (TREE_REALPART (arg));
i = TREE_REAL_CST (TREE_IMAGPART (arg));
real_arithmetic (&r, MULT_EXPR, &r, &r);
real_arithmetic (&i, MULT_EXPR, &i, &i);
real_arithmetic (&r, PLUS_EXPR, &r, &i);
if (real_sqrt (&r, TYPE_MODE (type), &r)
|| ! flag_trapping_math)
return build_real (type, r);
}
/* Calculate the result when the argument is a constant. */
if (TREE_CODE (arg) == COMPLEX_CST
&& (res = do_mpfr_arg2 (TREE_REALPART (arg), TREE_IMAGPART (arg),
type, mpfr_hypot)))
return res;
/* If either part is zero, cabs is fabs of the other. */
if (TREE_CODE (arg) == COMPLEX_EXPR
&& real_zerop (TREE_OPERAND (arg, 0)))