diff options
Diffstat (limited to 'gawkapi.c')
| -rw-r--r-- | gawkapi.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -176,6 +176,7 @@ awk_value_to_node(const awk_value_t *retval) mpfr_init(ext_ret_val->mpg_numbr); tval = mpfr_set(ext_ret_val->mpg_numbr, (mpfr_srcptr) retval->num_ptr, ROUND_MODE); IEEE_FMT(ext_ret_val->mpg_numbr, tval); + mpfr_clear(retval->num_ptr); #else fatal(_("awk_value_to_node: MPFR not supported")); #endif @@ -185,7 +186,9 @@ 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); + mpz_init(ext_ret_val->mpg_i); mpz_set(ext_ret_val->mpg_i, (mpz_ptr) retval->num_ptr); + mpz_clear(retval->num_ptr); #else fatal(_("awk_value_to_node: MPFR not supported")); #endif |