diff options
Diffstat (limited to 'tests/tgeneric.c')
| -rw-r--r-- | tests/tgeneric.c | 35 |
1 files changed, 17 insertions, 18 deletions
diff --git a/tests/tgeneric.c b/tests/tgeneric.c index cf56997..002ea91 100644 --- a/tests/tgeneric.c +++ b/tests/tgeneric.c @@ -851,16 +851,15 @@ reuse_cuuc (mpc_function* function, unsigned long ul1, unsigned long ul2, } } - /* helper functions for iterating over mpfr rounding modes */ static mpfr_rnd_t -first_rnd_mode (void) +first_rounding_mode (void) { return MPFR_RNDN; } static mpfr_rnd_t -next_rnd_mode (mpfr_rnd_t curr) +next_rounding_mode (mpfr_rnd_t curr) /* assumes that all rounding modes are non-negative, and returns -1 when curr is the last rounding mode */ { @@ -882,7 +881,7 @@ next_rnd_mode (mpfr_rnd_t curr) } static int -is_valid_rnd_mode (mpfr_rnd_t curr) +is_valid_rounding_mode (mpfr_rnd_t curr) /* returns 1 if curr is a valid rounding mode, and 0otherwise */ { if ( curr == MPFR_RNDN || curr == MPFR_RNDZ @@ -1282,17 +1281,17 @@ tgeneric (mpc_function function, mpfr_prec_t prec_min, } } - for (rnd_re = first_rnd_mode (); is_valid_rnd_mode (rnd_re); rnd_re = next_rnd_mode (rnd_re)) + for (rnd_re = first_rounding_mode (); is_valid_rounding_mode (rnd_re); rnd_re = next_rounding_mode (rnd_re)) switch (function.type) { case C_CC: - for (rnd_im = first_rnd_mode (); is_valid_rnd_mode (rnd_im); rnd_im = next_rnd_mode (rnd_im)) + for (rnd_im = first_rounding_mode (); is_valid_rounding_mode (rnd_im); rnd_im = next_rounding_mode (rnd_im)) tgeneric_c_cc (&function, z1, z2, z3, zzzz, z4, MPC_RND (rnd_re, rnd_im)); reuse_c_cc (&function, z1, z2, z3, z4); break; case CCCC: - for (rnd_im = first_rnd_mode (); is_valid_rnd_mode (rnd_im); rnd_im = next_rnd_mode (rnd_im)) + for (rnd_im = first_rounding_mode (); is_valid_rounding_mode (rnd_im); rnd_im = next_rounding_mode (rnd_im)) tgeneric_cccc (&function, z1, z2, z3, z4, zzzz, z5, MPC_RND (rnd_re, rnd_im)); reuse_cccc (&function, z1, z2, z3, z4, z5); @@ -1302,57 +1301,57 @@ tgeneric (mpc_function function, mpfr_prec_t prec_min, reuse_fc (&function, z1, z2, x1); break; case CC: - for (rnd_im = first_rnd_mode (); is_valid_rnd_mode (rnd_im); rnd_im = next_rnd_mode (rnd_im)) + for (rnd_im = first_rounding_mode (); is_valid_rounding_mode (rnd_im); rnd_im = next_rounding_mode (rnd_im)) tgeneric_cc (&function, z1, z2, zzzz, z3, MPC_RND (rnd_re, rnd_im)); reuse_cc (&function, z1, z2, z3); break; case CC_C: - for (rnd_im = first_rnd_mode (); is_valid_rnd_mode (rnd_im); rnd_im = next_rnd_mode (rnd_im)) - for (rnd2_re = first_rnd_mode (); is_valid_rnd_mode (rnd2_re); rnd2_re = next_rnd_mode (rnd2_re)) - for (rnd2_im = first_rnd_mode (); is_valid_rnd_mode (rnd2_im); rnd2_im = next_rnd_mode (rnd2_im)) + for (rnd_im = first_rounding_mode (); is_valid_rounding_mode (rnd_im); rnd_im = next_rounding_mode (rnd_im)) + for (rnd2_re = first_rounding_mode (); is_valid_rounding_mode (rnd2_re); rnd2_re = next_rounding_mode (rnd2_re)) + for (rnd2_im = first_rounding_mode (); is_valid_rounding_mode (rnd2_im); rnd2_im = next_rounding_mode (rnd2_im)) tgeneric_cc_c (&function, z1, z2, z3, zzzz, zzzz2, z4, z5, MPC_RND (rnd_re, rnd_im), MPC_RND (rnd2_re, rnd2_im)); reuse_cc_c (&function, z1, z2, z3, z4, z5); break; case CFC: - for (rnd_im = first_rnd_mode (); is_valid_rnd_mode (rnd_im); rnd_im = next_rnd_mode (rnd_im)) + for (rnd_im = first_rounding_mode (); is_valid_rounding_mode (rnd_im); rnd_im = next_rounding_mode (rnd_im)) tgeneric_cfc (&function, x1, z1, z2, zzzz, z3, MPC_RND (rnd_re, rnd_im)); reuse_cfc (&function, z1, x1, z2, z3); break; case CCF: - for (rnd_im = first_rnd_mode (); is_valid_rnd_mode (rnd_im); rnd_im = next_rnd_mode (rnd_im)) + for (rnd_im = first_rounding_mode (); is_valid_rounding_mode (rnd_im); rnd_im = next_rounding_mode (rnd_im)) tgeneric_ccf (&function, z1, x1, z2, zzzz, z3, MPC_RND (rnd_re, rnd_im)); reuse_ccf (&function, z1, x1, z2, z3); break; case CCU: - for (rnd_im = first_rnd_mode (); is_valid_rnd_mode (rnd_im); rnd_im = next_rnd_mode (rnd_im)) + for (rnd_im = first_rounding_mode (); is_valid_rounding_mode (rnd_im); rnd_im = next_rounding_mode (rnd_im)) tgeneric_ccu (&function, z1, ul1, z2, zzzz, z3, MPC_RND (rnd_re, rnd_im)); reuse_ccu (&function, z1, ul1, z2, z3); break; case CUC: - for (rnd_im = first_rnd_mode (); is_valid_rnd_mode (rnd_im); rnd_im = next_rnd_mode (rnd_im)) + for (rnd_im = first_rounding_mode (); is_valid_rounding_mode (rnd_im); rnd_im = next_rounding_mode (rnd_im)) tgeneric_cuc (&function, ul1, z1, z2, zzzz, z3, MPC_RND (rnd_re, rnd_im)); reuse_cuc (&function, ul1, z1, z2, z3); break; case CCS: - for (rnd_im = first_rnd_mode (); is_valid_rnd_mode (rnd_im); rnd_im = next_rnd_mode (rnd_im)) + for (rnd_im = first_rounding_mode (); is_valid_rounding_mode (rnd_im); rnd_im = next_rounding_mode (rnd_im)) tgeneric_ccs (&function, z1, lo, z2, zzzz, z3, MPC_RND (rnd_re, rnd_im)); reuse_ccs (&function, z1, lo, z2, z3); break; case CCI: - for (rnd_im = first_rnd_mode (); is_valid_rnd_mode (rnd_im); rnd_im = next_rnd_mode (rnd_im)) + for (rnd_im = first_rounding_mode (); is_valid_rounding_mode (rnd_im); rnd_im = next_rounding_mode (rnd_im)) tgeneric_cci (&function, z1, i, z2, zzzz, z3, MPC_RND (rnd_re, rnd_im)); reuse_cci (&function, z1, i, z2, z3); break; case CUUC: - for (rnd_im = first_rnd_mode (); is_valid_rnd_mode (rnd_im); rnd_im = next_rnd_mode (rnd_im)) + for (rnd_im = first_rounding_mode (); is_valid_rounding_mode (rnd_im); rnd_im = next_rounding_mode (rnd_im)) tgeneric_cuuc (&function, ul1, ul2, z1, z2, zzzz, z3, MPC_RND (rnd_re, rnd_im)); reuse_cuuc (&function, ul1, ul2, z1, z2, z3); |