diff options
| author | dgp <dgp@users.sourceforge.net> | 2015-07-02 13:46:56 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2015-07-02 13:46:56 (GMT) |
| commit | 39d7c094ed9109b6264d265808b69f5f99841693 (patch) | |
| tree | 55c12c515652a7ae2cdf2cf6f230c4c46294dbeb /generic/tclStrToD.c | |
| parent | d4d66c05ba64ebd9ae204c048eebebfd76a095c2 (diff) | |
| download | tcl-39d7c094ed9109b6264d265808b69f5f99841693.zip tcl-39d7c094ed9109b6264d265808b69f5f99841693.tar.gz tcl-39d7c094ed9109b6264d265808b69f5f99841693.tar.bz2 | |
Plug leak of two mp_ints.
Diffstat (limited to 'generic/tclStrToD.c')
| -rw-r--r-- | generic/tclStrToD.c | 2 |
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; } } |