Attachment "tclStrToD.c.diff" to
ticket [1334461fff]
added by
melbardis
2005-10-22 03:38:05.
--- net-src/tcl/generic/tclStrToD.c 2005-10-13 08:23:22.000000000 -0700
+++ src/tcl/generic/tclStrToD.c 2005-10-21 13:35:34.271528400 -0700
@@ -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.12 2005/10/13 15:23:22 dkf Exp $
+ * RCS: @(#) $Id: tclStrToD.c 782 2005-10-20 00:55:38Z [email protected] $
*
*----------------------------------------------------------------------
*/
@@ -1316,6 +1316,8 @@
retval = MakeHighPrecisionDouble(0, &significandBig, numSigDigs,
exponent);
+ mp_clear(&significandBig); //EPM NETKIT
+
/*
* Come here to return the computed value.
*/
@@ -1616,6 +1618,8 @@
*/
if (mp_cmp_mag(&twoMd, &twoMv) == MP_LT) {
+ mp_clear(&twoMd); //EPM
+ mp_clear(&twoMv); //EPM
return approxResult;
}
@@ -2080,7 +2084,7 @@
maxpow10_wide = (int)
floor(sizeof(Tcl_WideUInt) * CHAR_BIT * log(2.) / log(10.));
pow10_wide = (Tcl_WideUInt *)
- Tcl_Alloc((maxpow10_wide + 1) * sizeof(Tcl_WideUInt));
+ ckalloc((maxpow10_wide + 1) * sizeof(Tcl_WideUInt)); //EPM NETKIT
u = 1;
for (i = 0; i < maxpow10_wide; ++i) {
pow10_wide[i] = u;
