/netbsd-current/external/gpl3/gcc.old/dist/gcc/fortran/ |
H A D | trigd_fe.inc | 42 mpfr_set_ui (x, 3, GFC_RND_MODE); \ 43 mpfr_sqrt (x, x, GFC_RND_MODE); \ 44 mpfr_div_ui (x, x, 2, GFC_RND_MODE); \
|
H A D | arith.c | 173 mpfr_set_z (a, int_info->huge, GFC_RND_MODE); 174 mpfr_log10 (a, a, GFC_RND_MODE); 176 int_info->range = (int) mpfr_get_si (a, GFC_RND_MODE); 191 mpfr_set_ui (real_info->huge, 1, GFC_RND_MODE); 192 mpfr_set_ui (a, real_info->radix, GFC_RND_MODE); 193 mpfr_pow_si (a, a, -real_info->digits, GFC_RND_MODE); 194 mpfr_sub (real_info->huge, real_info->huge, a, GFC_RND_MODE); 197 mpfr_set_ui (a, real_info->radix, GFC_RND_MODE); 198 mpfr_pow_ui (a, a, real_info->max_exponent - 1, GFC_RND_MODE); 201 mpfr_mul (real_info->huge, real_info->huge, a, GFC_RND_MODE); [all...] |
H A D | simplify.c | 307 mpfr_set (e->value.real, gfc_real_kinds[i].huge, GFC_RND_MODE); 308 mpfr_neg (e->value.real, e->value.real, GFC_RND_MODE); 311 mpfr_set (e->value.real, gfc_real_kinds[i].huge, GFC_RND_MODE); 313 mpfr_set_si (e->value.real, init, GFC_RND_MODE); 720 mpfr_abs (result->value.real, e->value.real, GFC_RND_MODE); 726 mpc_abs (result->value.real, e->value.complex, GFC_RND_MODE); 818 mpfr_acos (result->value.real, x->value.real, GFC_RND_MODE); 852 mpfr_acosh (result->value.real, x->value.real, GFC_RND_MODE); 935 mpfr_set (result->value.real, mpc_imagref (e->value.complex), GFC_RND_MODE); 1000 mpc_real (result->value.real, e->value.complex, GFC_RND_MODE); 1762 y->value.integer, GFC_RND_MODE); local 1767 y->value.real, GFC_RND_MODE); local [all...] |
H A D | trans-const.c | 245 real_from_mpfr (&real, f, type, GFC_RND_MODE); 285 mpfr_from_real (f, TREE_REAL_CST_PTR (source), GFC_RND_MODE);
|
H A D | data.c | 518 GFC_RND_MODE); local 523 GFC_RND_MODE); local
|
H A D | frontend-passes.c | 3064 mpfr_set_si (inline_limit->value.real, limit, GFC_RND_MODE); 3066 GFC_RND_MODE); 3962 mpfr_set_si (zero_e->value.real, 0, GFC_RND_MODE); 3970 mpc_set_si_si (zero_e->value.complex, 0, 0, GFC_RND_MODE); 4707 mpfr_set_ui (next->expr->value.real, 1, GFC_RND_MODE); 4743 mpfr_set_ui (next->expr->value.real, 0, GFC_RND_MODE);
|
H A D | expr.c | 305 mpfr_set (q->value.real, p->value.real, GFC_RND_MODE); 1862 mpc_realref (tmp->value.complex), GFC_RND_MODE); 1874 mpc_imagref (tmp->value.complex), GFC_RND_MODE); 4712 mpfr_set_ui (init_expr->value.real, 0.0, GFC_RND_MODE);
|
H A D | trans-intrinsic.c | 495 mpfr_set_z (huge, gfc_integer_kinds[n].huge, GFC_RND_MODE); 500 mpfr_neg (huge, huge, GFC_RND_MODE); 4404 mpfr_set_si (t0, 180, GFC_RND_MODE); 4405 mpfr_const_pi (pi, GFC_RND_MODE); 4406 mpfr_div (t0, t0, pi, GFC_RND_MODE); 4486 mpfr_const_pi (pio2, GFC_RND_MODE); 4487 mpfr_div_ui (pio2, pio2, 2, GFC_RND_MODE); 4535 mpfr_init_set_ui (ninety, 90, GFC_RND_MODE);
|
H A D | gfortran.h | 2164 #define GFC_RND_MODE MPFR_RNDN macro
|
H A D | primary.c | 220 mpfr_set_str (e->value.real, buffer, 10, GFC_RND_MODE); 758 mpfr_neg (e->value.real, e->value.real, GFC_RND_MODE); 772 mpfr_set_ui (e->value.real, 0, GFC_RND_MODE); 817 mpfr_set_str (r, buffer, 10, GFC_RND_MODE); 819 mpfr_neg (r, r, GFC_RND_MODE); 821 mpfr_sub (r, r, e->value.real, GFC_RND_MODE);
|
H A D | module.c | 3357 mpfr_set_str (*real, atom_string, 16, GFC_RND_MODE); 3362 p = mpfr_get_str (NULL, &exponent, 16, 0, *real, GFC_RND_MODE);
|
H A D | check.c | 283 mpfr_set_z_2exp (x->value.real, em, ie - t, GFC_RND_MODE); 286 if (sgn) mpfr_neg (x->value.real, x->value.real, GFC_RND_MODE);
|
/netbsd-current/external/gpl3/gcc/dist/gcc/fortran/ |
H A D | trigd_fe.inc | 42 mpfr_set_ui (x, 3, GFC_RND_MODE); \ 43 mpfr_sqrt (x, x, GFC_RND_MODE); \ 44 mpfr_div_ui (x, x, 2, GFC_RND_MODE); \
|
H A D | arith.cc | 172 mpfr_set_z (a, int_info->huge, GFC_RND_MODE); 173 mpfr_log10 (a, a, GFC_RND_MODE); 175 int_info->range = (int) mpfr_get_si (a, GFC_RND_MODE); 190 mpfr_set_ui (real_info->huge, 1, GFC_RND_MODE); 191 mpfr_set_ui (a, real_info->radix, GFC_RND_MODE); 192 mpfr_pow_si (a, a, -real_info->digits, GFC_RND_MODE); 193 mpfr_sub (real_info->huge, real_info->huge, a, GFC_RND_MODE); 196 mpfr_set_ui (a, real_info->radix, GFC_RND_MODE); 197 mpfr_pow_ui (a, a, real_info->max_exponent - 1, GFC_RND_MODE); 200 mpfr_mul (real_info->huge, real_info->huge, a, GFC_RND_MODE); [all...] |
H A D | simplify.cc | 339 mpfr_set (e->value.real, gfc_real_kinds[i].huge, GFC_RND_MODE); 340 mpfr_neg (e->value.real, e->value.real, GFC_RND_MODE); 343 mpfr_set (e->value.real, gfc_real_kinds[i].huge, GFC_RND_MODE); 345 mpfr_set_si (e->value.real, init, GFC_RND_MODE); 752 mpfr_abs (result->value.real, e->value.real, GFC_RND_MODE); 758 mpc_abs (result->value.real, e->value.complex, GFC_RND_MODE); 850 mpfr_acos (result->value.real, x->value.real, GFC_RND_MODE); 884 mpfr_acosh (result->value.real, x->value.real, GFC_RND_MODE); 967 mpfr_set (result->value.real, mpc_imagref (e->value.complex), GFC_RND_MODE); 1032 mpc_real (result->value.real, e->value.complex, GFC_RND_MODE); 1794 y->value.integer, GFC_RND_MODE); local 1799 y->value.real, GFC_RND_MODE); local [all...] |
H A D | trans-const.cc | 245 real_from_mpfr (&real, f, type, GFC_RND_MODE); 285 mpfr_from_real (f, TREE_REAL_CST_PTR (source), GFC_RND_MODE);
|
H A D | data.cc | 538 GFC_RND_MODE); local 543 GFC_RND_MODE); local
|
H A D | frontend-passes.cc | 3332 mpfr_set_si (inline_limit->value.real, limit, GFC_RND_MODE); 3336 GFC_RND_MODE); 4240 mpfr_set_si (zero_e->value.real, 0, GFC_RND_MODE); 4248 mpc_set_si_si (zero_e->value.complex, 0, 0, GFC_RND_MODE); 4987 mpfr_set_ui (next->expr->value.real, 1, GFC_RND_MODE); 5023 mpfr_set_ui (next->expr->value.real, 0, GFC_RND_MODE);
|
H A D | expr.cc | 305 mpfr_set (q->value.real, p->value.real, GFC_RND_MODE); 1885 mpc_realref (tmp->value.complex), GFC_RND_MODE); 1897 mpc_imagref (tmp->value.complex), GFC_RND_MODE); 4743 mpfr_set_ui (init_expr->value.real, 0.0, GFC_RND_MODE);
|
H A D | trans-intrinsic.cc | 503 mpfr_set_z (huge, gfc_integer_kinds[n].huge, GFC_RND_MODE); 508 mpfr_neg (huge, huge, GFC_RND_MODE); 4553 mpfr_set_si (t0, 180, GFC_RND_MODE); 4554 mpfr_const_pi (pi, GFC_RND_MODE); 4555 mpfr_div (t0, t0, pi, GFC_RND_MODE); 4635 mpfr_const_pi (pio2, GFC_RND_MODE); 4636 mpfr_div_ui (pio2, pio2, 2, GFC_RND_MODE); 4684 mpfr_init_set_ui (ninety, 90, GFC_RND_MODE); 10186 type, GFC_RND_MODE); 10206 type, GFC_RND_MODE); [all...] |
H A D | primary.cc | 220 mpfr_set_str (e->value.real, buffer, 10, GFC_RND_MODE); 737 mpfr_neg (e->value.real, e->value.real, GFC_RND_MODE); 751 mpfr_set_ui (e->value.real, 0, GFC_RND_MODE); 796 mpfr_set_str (r, buffer, 10, GFC_RND_MODE); 798 mpfr_neg (r, r, GFC_RND_MODE); 800 mpfr_sub (r, r, e->value.real, GFC_RND_MODE);
|
H A D | gfortran.h | 2453 #define GFC_RND_MODE MPFR_RNDN macro
|
H A D | check.cc | 283 mpfr_set_z_2exp (x->value.real, em, ie - t, GFC_RND_MODE); 286 if (sgn) mpfr_neg (x->value.real, x->value.real, GFC_RND_MODE);
|
/netbsd-current/external/gpl3/gcc.old/dist/libgfortran/intrinsics/ |
H A D | trigd.inc | 101 mpfr_init_set_ui (one, 1, GFC_RND_MODE); 102 mpfr_copysign (s, one, x, GFC_RND_MODE); 109 mpfr_abs (ax, x, GFC_RND_MODE); 121 mpfr_abs (x, x, GFC_RND_MODE); 126 mpfr_init_set_ui (period, 360, GFC_RND_MODE); 127 mpfr_fmod (x, x, period, GFC_RND_MODE); 133 if (mpfr_get_z (n, x, GFC_RND_MODE) == 0 && mpz_divisible_ui_p (n, 30)) 139 mpfr_set_ui (x, 0, GFC_RND_MODE); 141 mpfr_neg (s, s, GFC_RND_MODE); 144 mpfr_set_si (x, (mpz_cmp_ui (n, 90) == 0 ? 1 : -1), GFC_RND_MODE); [all...] |
/netbsd-current/external/gpl3/gcc/dist/libgfortran/intrinsics/ |
H A D | trigd.inc | 101 mpfr_init_set_ui (one, 1, GFC_RND_MODE); 102 mpfr_copysign (s, one, x, GFC_RND_MODE); 109 mpfr_abs (ax, x, GFC_RND_MODE); 121 mpfr_abs (x, x, GFC_RND_MODE); 126 mpfr_init_set_ui (period, 360, GFC_RND_MODE); 127 mpfr_fmod (x, x, period, GFC_RND_MODE); 133 if (mpfr_get_z (n, x, GFC_RND_MODE) == 0 && mpz_divisible_ui_p (n, 30)) 139 mpfr_set_ui (x, 0, GFC_RND_MODE); 141 mpfr_neg (s, s, GFC_RND_MODE); 144 mpfr_set_si (x, (mpz_cmp_ui (n, 90) == 0 ? 1 : -1), GFC_RND_MODE); [all...] |