diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2016-06-26 18:26:39 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2016-06-26 18:26:39 +0300 |
| commit | e18ebe10166e2c63f3385666978b678fe6ce67a2 (patch) | |
| tree | 7f6a2249dfda678c8651f0e24a273bb8b54bb886 /mpfr.c | |
| parent | 278767f062a9c6f8ae9ff777b1a41e094813fa09 (diff) | |
| download | egawk-e18ebe10166e2c63f3385666978b678fe6ce67a2.tar.gz egawk-e18ebe10166e2c63f3385666978b678fe6ce67a2.tar.bz2 egawk-e18ebe10166e2c63f3385666978b678fe6ce67a2.zip | |
Minor improvements after Andy's reworking of stuff.
Diffstat (limited to 'mpfr.c')
| -rw-r--r-- | mpfr.c | 16 |
1 files changed, 7 insertions, 9 deletions
@@ -1079,16 +1079,14 @@ do_mpfr_strtonum(int nargs) force_mpnum(r, true, use_lc_numeric); r->stptr = NULL; r->stlen = 0; + } else if (is_mpg_float(tmp)) { + int tval; + r = mpg_float(); + tval = mpfr_set(r->mpg_numbr, tmp->mpg_numbr, ROUND_MODE); + IEEE_FMT(r->mpg_numbr, tval); } else { - if (is_mpg_float(tmp)) { - int tval; - r = mpg_float(); - tval = mpfr_set(r->mpg_numbr, tmp->mpg_numbr, ROUND_MODE); - IEEE_FMT(r->mpg_numbr, tval); - } else { - r = mpg_integer(); - mpz_set(r->mpg_i, tmp->mpg_i); - } + r = mpg_integer(); + mpz_set(r->mpg_i, tmp->mpg_i); } DEREF(tmp); |