diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2018-02-09 11:34:16 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2018-02-09 11:34:16 +0200 |
| commit | 96685ed2909ec198bf28ba81ccff755ea88ecda7 (patch) | |
| tree | 105d924a67f774a38225d4435ba11130c420f508 /mpfr.c | |
| parent | 7c32c835b7f15d2906a691fa7776d3fcd77be0f7 (diff) | |
| parent | a7512f3eb03ae2b6361e56518a2f405e386315a0 (diff) | |
| download | egawk-96685ed2909ec198bf28ba81ccff755ea88ecda7.tar.gz egawk-96685ed2909ec198bf28ba81ccff755ea88ecda7.tar.bz2 egawk-96685ed2909ec198bf28ba81ccff755ea88ecda7.zip | |
Merge branch 'master' into feature/fix-comments
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: |