Searched refs:GFC_RND_MODE (Results 1 - 25 of 26) sorted by relevance

12

/netbsd-current/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dtrigd_fe.inc42 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 Darith.c173 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 Dsimplify.c307 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 Dtrans-const.c245 real_from_mpfr (&real, f, type, GFC_RND_MODE);
285 mpfr_from_real (f, TREE_REAL_CST_PTR (source), GFC_RND_MODE);
H A Ddata.c518 GFC_RND_MODE); local
523 GFC_RND_MODE); local
H A Dfrontend-passes.c3064 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 Dexpr.c305 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 Dtrans-intrinsic.c495 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 Dgfortran.h2164 #define GFC_RND_MODE MPFR_RNDN macro
H A Dprimary.c220 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 Dmodule.c3357 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 Dcheck.c283 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 Dtrigd_fe.inc42 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 Darith.cc172 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 Dsimplify.cc339 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 Dtrans-const.cc245 real_from_mpfr (&real, f, type, GFC_RND_MODE);
285 mpfr_from_real (f, TREE_REAL_CST_PTR (source), GFC_RND_MODE);
H A Ddata.cc538 GFC_RND_MODE); local
543 GFC_RND_MODE); local
H A Dfrontend-passes.cc3332 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 Dexpr.cc305 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 Dtrans-intrinsic.cc503 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 Dprimary.cc220 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 Dgfortran.h2453 #define GFC_RND_MODE MPFR_RNDN macro
H A Dcheck.cc283 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 Dtrigd.inc101 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 Dtrigd.inc101 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...]

Completed in 620 milliseconds

12