diff options
| author | john haque <j.eh@mchsi.com> | 2012-04-12 06:17:30 -0500 |
|---|---|---|
| committer | john haque <j.eh@mchsi.com> | 2012-04-12 06:17:30 -0500 |
| commit | 1673eabb64f93c4d24b0ef7d9d0d8444d6ad5056 (patch) | |
| tree | 54c032619df96bd3bab6fd84cdc16dde4723bccd /awkgram.c | |
| parent | 98c342179faae6afd0341e5ca65eae00a79c86b7 (diff) | |
| download | egawk-1673eabb64f93c4d24b0ef7d9d0d8444d6ad5056.tar.gz egawk-1673eabb64f93c4d24b0ef7d9d0d8444d6ad5056.tar.bz2 egawk-1673eabb64f93c4d24b0ef7d9d0d8444d6ad5056.zip | |
Change MPFR variable RND_MODE to ROUND_MODE.
Diffstat (limited to 'awkgram.c')
| -rw-r--r-- | awkgram.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -4606,7 +4606,7 @@ negate_num(NODE *n) #ifdef HAVE_MPFR if (is_mpg_float(n)) { int tval; - tval = mpfr_neg(n->mpg_numbr, n->mpg_numbr, RND_MODE); + tval = mpfr_neg(n->mpg_numbr, n->mpg_numbr, ROUND_MODE); IEEE_FMT(n->mpg_numbr, tval); } else if (is_mpg_integer(n)) { mpz_neg(n->mpg_i, n->mpg_i); @@ -6092,7 +6092,7 @@ retry: } else { int tval; r = mpg_float(); - tval = mpfr_strtofr(r->mpg_numbr, tokstart, NULL, base, RND_MODE); + tval = mpfr_strtofr(r->mpg_numbr, tokstart, NULL, base, ROUND_MODE); errno = 0; IEEE_FMT(r->mpg_numbr, tval); } @@ -6603,7 +6603,7 @@ valinfo(NODE *n, Func_print print_func, FILE *fp) } else if (n->flags & NUMBER) { #ifdef HAVE_MPFR if (is_mpg_float(n)) - print_func(fp, "%s\n", mpg_fmt("%.17R*g", RND_MODE, n->mpg_numbr)); + print_func(fp, "%s\n", mpg_fmt("%.17R*g", ROUND_MODE, n->mpg_numbr)); else if (is_mpg_integer(n)) print_func(fp, "%s\n", mpg_fmt("%Zd", n->mpg_i)); else @@ -6615,7 +6615,7 @@ valinfo(NODE *n, Func_print print_func, FILE *fp) } else if (n->flags & NUMCUR) { #ifdef HAVE_MPFR if (is_mpg_float(n)) - print_func(fp, "%s\n", mpg_fmt("%.17R*g", RND_MODE, n->mpg_numbr)); + print_func(fp, "%s\n", mpg_fmt("%.17R*g", ROUND_MODE, n->mpg_numbr)); else if (is_mpg_integer(n)) print_func(fp, "%s\n", mpg_fmt("%Zd", n->mpg_i)); else |