summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2015-07-02 13:46:56 (GMT)
committerdgp <dgp@users.sourceforge.net>2015-07-02 13:46:56 (GMT)
commit39d7c094ed9109b6264d265808b69f5f99841693 (patch)
tree55c12c515652a7ae2cdf2cf6f230c4c46294dbeb
parentd4d66c05ba64ebd9ae204c048eebebfd76a095c2 (diff)
downloadtcl-39d7c094ed9109b6264d265808b69f5f99841693.zip
tcl-39d7c094ed9109b6264d265808b69f5f99841693.tar.gz
tcl-39d7c094ed9109b6264d265808b69f5f99841693.tar.bz2
Plug leak of two mp_ints.
-rw-r--r--generic/tclStrToD.c2
1 files changed, 2 insertions, 0 deletions
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;
}
}