diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2018-04-02 16:40:50 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2018-04-02 16:40:50 +0300 |
| commit | db0ad810899edd82b68ac681a4b1111fc25b3e30 (patch) | |
| tree | 853bae05bcf28150f85b53976c505fda8eb40406 /node.c | |
| parent | 38126dd894446fdbdddded3f3d4bd807d1764ebc (diff) | |
| parent | 34021ae7b7b8662b41fe6feeced4cf619cb31c21 (diff) | |
| download | egawk-db0ad810899edd82b68ac681a4b1111fc25b3e30.tar.gz egawk-db0ad810899edd82b68ac681a4b1111fc25b3e30.tar.bz2 egawk-db0ad810899edd82b68ac681a4b1111fc25b3e30.zip | |
Merge branch 'master' into feature/fix-comments
Diffstat (limited to 'node.c')
| -rw-r--r-- | node.c | 20 |
1 files changed, 18 insertions, 2 deletions
@@ -306,8 +306,24 @@ r_dupnode(NODE *n) } #endif - getnode(r); - *r = *n; +#ifdef HAVE_MPFR + if ((n->flags & MPZN) != 0) { + r = mpg_integer(); + mpz_set(r->mpg_i, n->mpg_i); + r->flags = n->flags; + } else if ((n->flags & MPFN) != 0) { + r = mpg_float(); + int tval = mpfr_set(r->mpg_numbr, n->mpg_numbr, ROUND_MODE); + IEEE_FMT(r->mpg_numbr, tval); + r->flags = n->flags; + } else { +#endif + getnode(r); + *r = *n; +#ifdef HAVE_MPFR + } +#endif + r->flags |= MALLOC; r->valref = 1; /* |