From c31e4636edc5e444f9815295f373d4b1170ef260 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Sun, 5 Jul 2020 21:36:01 +0300
Subject: MPFR bug fixes in some corner cases.

---
 node.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'node.c')

diff --git a/node.c b/node.c
index bcb9a4a5..04a90adc 100644
--- a/node.c
+++ b/node.c
@@ -316,11 +316,13 @@ r_dupnode(NODE *n)
 		r = mpg_integer();
 		mpz_set(r->mpg_i, n->mpg_i);
 		r->flags = n->flags;
+		r->strndmode = MPFR_round_mode;
 	} 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;
+		r->strndmode = MPFR_round_mode;
 	} else {
 #endif
 		getnode(r);
@@ -343,6 +345,7 @@ r_dupnode(NODE *n)
 		emalloc(r->stptr, char *, n->stlen + 1, "r_dupnode");
 		memcpy(r->stptr, n->stptr, n->stlen);
 		r->stptr[n->stlen] = '\0';
+		r->stlen = n->stlen;
 		if ((n->flags & WSTRCUR) != 0) {
 			r->wstlen = n->wstlen;
 			emalloc(r->wstptr, wchar_t *, sizeof(wchar_t) * (n->wstlen + 1), "r_dupnode");
-- 
cgit v1.2.3