From 66aeef87da87d50a82fb8bf2675d1b08e7260795 Mon Sep 17 00:00:00 2001
From: Kevin B Kenny <kennykb@acm.org>
Date: Fri, 21 Oct 2005 22:14:02 +0000
Subject: Bug 1334461

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

diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c
index 039fbed..6762480 100755
--- a/generic/tclStrToD.c
+++ b/generic/tclStrToD.c
@@ -14,7 +14,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclStrToD.c,v 1.14 2005/10/21 20:52:16 kennykb Exp $
+ * RCS: @(#) $Id: tclStrToD.c,v 1.15 2005/10/21 22:14:02 kennykb Exp $
  *
  *----------------------------------------------------------------------
  */
@@ -1315,6 +1315,7 @@ MakeLowPrecisionDouble(
     TclBNInitBignumFromWideUInt(&significandBig, significand);
     retval = MakeHighPrecisionDouble(0, &significandBig, numSigDigs,
 	    exponent);
+    mp_clear(&significandBig);
     
     /*
      * Come here to return the computed value.
-- 
cgit v0.12