diff options
Diffstat (limited to 'mpfr.c')
| -rw-r--r-- | mpfr.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -1186,7 +1186,7 @@ do_mpfr_srand(int nargs) return res; } -/* do_mpfr_div --- do integer division, return quotient and remainder in dest array */ +/* do_mpfr_intdiv --- do integer division, return quotient and remainder in dest array */ /* * We define the semantics as: @@ -1197,7 +1197,7 @@ do_mpfr_srand(int nargs) */ NODE * -do_mpfr_div(int nargs) +do_mpfr_intdiv(int nargs) { NODE *numerator, *denominator, *result; NODE *num, *denom; @@ -1206,7 +1206,7 @@ do_mpfr_div(int nargs) result = POP_PARAM(); if (result->type != Node_var_array) - fatal(_("div: third argument is not an array")); + fatal(_("intdiv: third argument is not an array")); assoc_clear(result); denominator = POP_SCALAR(); @@ -1214,9 +1214,9 @@ do_mpfr_div(int nargs) if (do_lint) { if ((numerator->flags & (NUMCUR|NUMBER)) == 0) - lintwarn(_("div: received non-numeric first argument")); + lintwarn(_("intdiv: received non-numeric first argument")); if ((denominator->flags & (NUMCUR|NUMBER)) == 0) - lintwarn(_("div: received non-numeric second argument")); + lintwarn(_("intdiv: received non-numeric second argument")); } (void) force_number(numerator); @@ -1250,7 +1250,7 @@ do_mpfr_div(int nargs) } if (mpz_sgn(denom->mpg_i) == 0) - fatal(_("div: division by zero attempted")); + fatal(_("intdiv: division by zero attempted")); quotient = mpg_integer(); remainder = mpg_integer(); |