From 56d7e71677c745959782fe52c45fb6011b47de2d Mon Sep 17 00:00:00 2001
From: "dgp@users.sourceforge.net" <dgp>
Date: Thu, 2 Jul 2015 13:46:56 +0000
Subject: Plug leak of two mp_ints.

---
 generic/tclStrToD.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c
index 66640ea..2c34866 100644
--- a/generic/tclStrToD.c
+++ b/generic/tclStrToD.c
@@ -1922,6 +1922,8 @@ RefineApproximation(
 	rteSignificand = frexp(approxResult, &rteExponent);
 	rteSigWide = (Tcl_WideInt) ldexp(rteSignificand, FP_PRECISION);
 	if ((rteSigWide & 1) == 0) {
+	    mp_clear(&twoMd);
+	    mp_clear(&twoMv);
 	    return approxResult;
 	}
     }	
-- 
cgit v0.12