diff options
| author | Fritz Reese <fritzoreese@gmail.com> | 2016-10-11 18:44:05 +0000 |
|---|---|---|
| committer | Fritz Reese <foreese@gcc.gnu.org> | 2016-10-11 18:44:05 +0000 |
| commit | ec08df86cb5af4ab34f8251b38f52be7b99bfa20 (patch) | |
| tree | f9e2e3862d33f2698c4248f2939990e024a8a32e /gcc/fortran/simplify.c | |
| parent | e8e5329d0c32d897927b87db8cba2af9082d103f (diff) | |
| download | gcc-ec08df86cb5af4ab34f8251b38f52be7b99bfa20.zip gcc-ec08df86cb5af4ab34f8251b38f52be7b99bfa20.tar.gz gcc-ec08df86cb5af4ab34f8251b38f52be7b99bfa20.tar.bz2 | |
Fix bad commit for -fdec-math.
2016-10-11 Fritz Reese <fritzoreese@gmail.com>
Fix bad commit for -fdec-math.
* iresolve.c (get_radians, get_degrees): Fix sloppy commit.
* simplify.c (degrees_f, radians_f): Ditto.
From-SVN: r241001
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 18135d2..eb6e412 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -1754,7 +1754,7 @@ degrees_f (mpfr_t x, mp_rnd_t rnd_mode) mpfr_fmod (tmp, x, tmp, rnd_mode); /* Set x = x * 180. */ - mpfr_mul_d (x, x, 180.0, rnd_mode); + mpfr_mul_ui (x, x, 180, rnd_mode); /* Set x = x / pi. */ mpfr_const_pi (tmp, rnd_mode); @@ -1768,23 +1768,21 @@ degrees_f (mpfr_t x, mp_rnd_t rnd_mode) static void radians_f (mpfr_t x, mp_rnd_t rnd_mode) { - mpfr_t tmp, modtmp; + mpfr_t tmp; mpfr_init (tmp); - mpfr_init (modtmp); /* Set x = x % 360 to avoid offsets with large angles. */ - mpfr_set_d (modtmp, 360.0, GFC_RND_MODE); - mpfr_fmod (tmp, x, modtmp, rnd_mode); + mpfr_set_ui (tmp, 360, rnd_mode); + mpfr_fmod (tmp, x, tmp, rnd_mode); /* Set x = x * pi. */ mpfr_const_pi (tmp, rnd_mode); mpfr_mul (x, x, tmp, rnd_mode); /* Set x = x / 180. */ - mpfr_div_d (x, x, 180.0, rnd_mode); + mpfr_div_ui (x, x, 180, rnd_mode); mpfr_clear (tmp); - mpfr_clear (modtmp); } |