Lines Matching refs:f
46 string_to_fp (mpfr_t f, const char *s, mpfr_rnd_t rnd) in string_to_fp() argument
53 int r = mpfr_set (f, f2, rnd); in string_to_fp()
54 r |= mpfr_subnormalize (f, r, rnd); in string_to_fp()
58 int r = mpfr_strtofr (f, s, NULL, 0, rnd); in string_to_fp()
59 r |= mpfr_subnormalize (f, r, rnd); in string_to_fp()
65 print_fp (FILE *fout, mpfr_t f, const char *suffix) in print_fp() argument
67 if (mpfr_inf_p (f)) in print_fp()
68 mpfr_fprintf (fout, "\t%sINF%s", mpfr_signbit (f) ? "-" : "", suffix); in print_fp()
70 mpfr_fprintf (fout, "\t%Ra%s", f, suffix); in print_fp()
78 mpfr_t f; in round_str() local
82 mpfr_init (f); in round_str()
83 int r = string_to_fp (f, s, MPFR_RNDD); in round_str()
93 if (mpfr_cmpabs (f, max_value) > 0) in round_str()
100 print_fp (fout, f, overflow ? ", true,\n" : ", false,\n"); in round_str()
101 string_to_fp (f, s, MPFR_RNDN); in round_str()
103 || (ibm_ld && mpfr_cmpabs (f, max_value) > 0)); in round_str()
104 print_fp (fout, f, overflow ? ", true,\n" : ", false,\n"); in round_str()
105 string_to_fp (f, s, MPFR_RNDZ); in round_str()
107 || (ibm_ld && mpfr_cmpabs (f, max_value) > 0)); in round_str()
108 print_fp (fout, f, overflow ? ", true,\n" : ", false,\n"); in round_str()
109 string_to_fp (f, s, MPFR_RNDU); in round_str()
111 || (ibm_ld && mpfr_cmpabs (f, max_value) > 0)); in round_str()
112 print_fp (fout, f, overflow ? ", true" : ", false"); in round_str()
113 mpfr_clear (f); in round_str()