diff options
author | dgp <dgp@users.sourceforge.net> | 2011-06-13 13:48:41 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2011-06-13 13:48:41 (GMT) |
commit | b38805471a51d410da8f770ebf78ef0776f4b04f (patch) | |
tree | bd8eb2efd964c008522c1d5f9dedadc7f9a27fa3 | |
parent | 2b5168b50a2657829ffc6687f1f13f87acb053ce (diff) | |
download | tcl-b38805471a51d410da8f770ebf78ef0776f4b04f.zip tcl-b38805471a51d410da8f770ebf78ef0776f4b04f.tar.gz tcl-b38805471a51d410da8f770ebf78ef0776f4b04f.tar.bz2 |
3315098 Mem leak fix from Gustaf Neumann.
-rw-r--r-- | ChangeLog | 4 | ||||
-rwxr-xr-x | generic/tclStrToD.c | 2 |
2 files changed, 5 insertions, 1 deletions
@@ -1,3 +1,7 @@ +2011-06-13 Don Porter <dgp@users.sourceforge.net> + + * generic/tclStrToD.c: [Bug 3315098] Mem leak fix from Gustaf Neumann. + 2011-06-02 Don Porter <dgp@users.sourceforge.net> * generic/tclBasic.c: Removed TclCleanupLiteralTable(), and old diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index e8b7538..421657c 100755 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -3790,7 +3790,7 @@ ShorteningBignumConversion(Double* dPtr, if (m2plus > m2minus) { mp_clear(&mplus); } - mp_clear_multi(&b, &mminus, &temp, NULL); + mp_clear_multi(&b, &mminus, &temp, &dig, &S, NULL); *s = '\0'; *decpt = k; if (endPtr) { |