diff options
| author | sayle <sayle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-03-31 14:30:29 +0000 |
|---|---|---|
| committer | sayle <sayle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-03-31 14:30:29 +0000 |
| commit | 77e8926908df33778b3152c8f9e653b67462bdef (patch) | |
| tree | ae8fad7cd3fde47e1b9f8cb921dd6289d19b33cf /gcc/real.c | |
| parent | 503cb1bd228d5d0fe73f0508984e050df7e9f342 (diff) | |
| download | gcc-77e8926908df33778b3152c8f9e653b67462bdef.tar.gz | |
* emit-rtl.c (dconstm2, dconsthalf): New real constants.
(init_emit_once): Initialize dconstm2 and dconsthalf here.
* real.h (dconstm2, dconsthalf): Add prototypes here.
* real.c (real_sqrt): Use dconsthalf rather than local copy.
* builtins.c (fold_builtin): When optimizing sqrt(exp(x)) as
exp(x/2.0) remember to fold the division if possible.
Fold sin(0.0) as 0.0, cos(0.0) as 1.0, pow(x,1.0) as x,
pow(x,-1.0) as 1.0/x, pow(x,2.0) as x*x, pow(x,-2.0) as
1.0/(x*x) and pow(x,0.5) as sqrt(x).
* gcc.dg/builtins-3.c: Add new tests for sin and cos.
* gcc.dg/builtins-7.c: New test case.
* gcc.dg/builtins-8.c: New test case.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@65088 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/real.c')
| -rw-r--r-- | gcc/real.c | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/gcc/real.c b/gcc/real.c index f6074f99639..04bf718a743 100644 --- a/gcc/real.c +++ b/gcc/real.c @@ -4423,7 +4423,6 @@ real_sqrt (r, mode, x) const REAL_VALUE_TYPE *x; { static REAL_VALUE_TYPE halfthree; - static REAL_VALUE_TYPE half; static bool init = false; REAL_VALUE_TYPE h, t, i; int iter, exp; @@ -4452,8 +4451,7 @@ real_sqrt (r, mode, x) if (!init) { - real_arithmetic (&half, RDIV_EXPR, &dconst1, &dconst2); - real_arithmetic (&halfthree, PLUS_EXPR, &dconst1, &half); + real_arithmetic (&halfthree, PLUS_EXPR, &dconst1, &dconsthalf); init = true; } @@ -4467,7 +4465,7 @@ real_sqrt (r, mode, x) /* i(n+1) = i(n) * (1.5 - 0.5*i(n)*i(n)*x). */ real_arithmetic (&t, MULT_EXPR, x, &i); real_arithmetic (&h, MULT_EXPR, &t, &i); - real_arithmetic (&t, MULT_EXPR, &h, &half); + real_arithmetic (&t, MULT_EXPR, &h, &dconsthalf); real_arithmetic (&h, MINUS_EXPR, &halfthree, &t); real_arithmetic (&t, MULT_EXPR, &i, &h); @@ -4484,7 +4482,7 @@ real_sqrt (r, mode, x) real_arithmetic (&h, MULT_EXPR, &t, &i); real_arithmetic (&i, MINUS_EXPR, &dconst1, &h); real_arithmetic (&h, MULT_EXPR, &t, &i); - real_arithmetic (&i, MULT_EXPR, &half, &h); + real_arithmetic (&i, MULT_EXPR, &dconsthalf, &h); real_arithmetic (&h, PLUS_EXPR, &t, &i); /* ??? We need a Tuckerman test to get the last bit. */ |