diff options
| author | dgp <dgp@noemail.net> | 2011-06-13 13:48:41 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2011-06-13 13:48:41 (GMT) |
| commit | 5cf8bbee658b3ee15ef6988217cb11771818f5f9 (patch) | |
| tree | bd8eb2efd964c008522c1d5f9dedadc7f9a27fa3 /generic/tclStrToD.c | |
| parent | 7617c70883b97780bafa73646c5ba8c78ebcef85 (diff) | |
| download | tcl-5cf8bbee658b3ee15ef6988217cb11771818f5f9.zip tcl-5cf8bbee658b3ee15ef6988217cb11771818f5f9.tar.gz tcl-5cf8bbee658b3ee15ef6988217cb11771818f5f9.tar.bz2 | |
3315098 Mem leak fix from Gustaf Neumann.
FossilOrigin-Name: a04865ea8e9e38bd69d31a90376f8804bb505fe1
Diffstat (limited to 'generic/tclStrToD.c')
| -rwxr-xr-x | generic/tclStrToD.c | 2 |
1 files changed, 1 insertions, 1 deletions
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) { |