aboutsummaryrefslogtreecommitdiffstats
path: root/gawkapi.c
diff options
context:
space:
mode:
authorArnold D. Robbins <arnold@skeeve.com>2021-11-18 21:15:59 +0200
committerArnold D. Robbins <arnold@skeeve.com>2021-11-18 21:15:59 +0200
commit0c02a53775a80fe10dcd2b0ae5e857c1f22f8727 (patch)
tree735ff5700eef7c8ee97e7758fe7de94f958ed90b /gawkapi.c
parent6892647d502182ca383a4934c20bb0457fc44a51 (diff)
parentdc2613b0af11a8cf97232d55c322d40eda35c224 (diff)
downloadegawk-0c02a53775a80fe10dcd2b0ae5e857c1f22f8727.tar.gz
egawk-0c02a53775a80fe10dcd2b0ae5e857c1f22f8727.tar.bz2
egawk-0c02a53775a80fe10dcd2b0ae5e857c1f22f8727.zip
Merge branch 'gawk-5.1-stable'
Diffstat (limited to 'gawkapi.c')
-rw-r--r--gawkapi.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/gawkapi.c b/gawkapi.c
index cdae4d55..c42803ba 100644
--- a/gawkapi.c
+++ b/gawkapi.c
@@ -173,7 +173,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);
- tval = mpfr_set(ext_ret_val->mpg_numbr, (mpfr_ptr) retval->num_ptr, ROUND_MODE);
+ 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);
#else
fatal(_("awk_value_to_node: MPFR not supported"));