diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2018-02-11 20:32:15 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2018-02-11 20:32:15 +0200 |
| commit | 1fd985df4c833381498094484cb8a18aa2b65730 (patch) | |
| tree | 10ab8de599afeb885b18a72867ee183aedde9b38 /mpfr.c | |
| parent | e25975137bf06b8ada724f989fff8112ab26355f (diff) | |
| parent | e988fbb61b477a61114e83bf988f10b397e641fb (diff) | |
| download | egawk-1fd985df4c833381498094484cb8a18aa2b65730.tar.gz egawk-1fd985df4c833381498094484cb8a18aa2b65730.tar.bz2 egawk-1fd985df4c833381498094484cb8a18aa2b65730.zip | |
Merge branch 'master' into feature/fts-skip
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: |