diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2020-07-12 21:06:48 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2020-07-12 21:06:48 +0300 |
| commit | 6023694f7921a228142427ff99fffd3e72e74889 (patch) | |
| tree | 489479518bd619587326686beeac2369de7d88c5 /gawkapi.c | |
| parent | fafefc27c6f2fe4759156f2c1c56a35c79e876e0 (diff) | |
| parent | dd9a8ec89c51dba47e63640a9705017399ec32d0 (diff) | |
| download | egawk-6023694f7921a228142427ff99fffd3e72e74889.tar.gz egawk-6023694f7921a228142427ff99fffd3e72e74889.tar.bz2 egawk-6023694f7921a228142427ff99fffd3e72e74889.zip | |
Merge branch 'gawk-5.1-stable'
Diffstat (limited to 'gawkapi.c')
| -rw-r--r-- | gawkapi.c | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -177,8 +177,8 @@ awk_value_to_node(const awk_value_t *retval) if (! do_mpfr) fatal(_("awk_value_to_node: not in MPFR mode")); ext_ret_val = make_number_node(MPFN); - memcpy(&ext_ret_val->mpg_numbr, retval->num_ptr, sizeof(ext_ret_val->mpg_numbr)); - freempfr(retval->num_ptr); + int tval = mpfr_set(ext_ret_val->mpg_numbr, (mpfr_ptr) retval->num_ptr, ROUND_MODE); + IEEE_FMT(ext_ret_val->mpg_numbr, tval); #else fatal(_("awk_value_to_node: MPFR not supported")); #endif @@ -188,8 +188,7 @@ awk_value_to_node(const awk_value_t *retval) if (! do_mpfr) fatal(_("awk_value_to_node: not in MPFR mode")); ext_ret_val = make_number_node(MPZN); - memcpy(&ext_ret_val->mpg_i, retval->num_ptr, sizeof(ext_ret_val->mpg_i)); - freempz(retval->num_ptr); + mpz_set(ext_ret_val->mpg_i, (mpz_ptr) retval->num_ptr); #else fatal(_("awk_value_to_node: MPFR not supported")); #endif |