diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2018-02-09 11:33:36 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2018-02-09 11:33:36 +0200 |
| commit | a7512f3eb03ae2b6361e56518a2f405e386315a0 (patch) | |
| tree | 141e85f9b2fee728883e3851628da02f72ef639c /mpfr.c | |
| parent | 4f92f35791d975671881e21f6b79b71050fd2787 (diff) | |
| parent | c1e55fde1a4bb72a0627ab37fe5ba1493cbf91eb (diff) | |
| download | egawk-a7512f3eb03ae2b6361e56518a2f405e386315a0.tar.gz egawk-a7512f3eb03ae2b6361e56518a2f405e386315a0.tar.bz2 egawk-a7512f3eb03ae2b6361e56518a2f405e386315a0.zip | |
Merge branch 'gawk-4.2-stable'
Diffstat (limited to 'mpfr.c')
| -rw-r--r-- | mpfr.c | 14 |
1 files changed, 14 insertions, 0 deletions
@@ -1682,6 +1682,20 @@ mod: REPLACE(r); break; + case Op_unary_plus: + t1 = TOP_NUMBER(); + if (is_mpg_float(t1)) { + r = mpg_float(); + tval = mpfr_set(r->mpg_numbr, t1->mpg_numbr, ROUND_MODE); + IEEE_FMT(r->mpg_numbr, tval); + } else { + r = mpg_integer(); + mpz_set(r->mpg_i, t1->mpg_i); + } + DEREF(t1); + REPLACE(r); + break; + case Op_assign_plus: case Op_assign_minus: case Op_assign_times: |