summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-01-28 13:42:33 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-01-28 13:42:33 (GMT)
commit628d65bf41110410632aa9f7e3e4a42c67603f15 (patch)
treea3f2ea967ad91ff9d4f618f8221e0e7f0de4ebf9
parentcd18aecedc21c53646faaf9da9aa1cd2209eac2e (diff)
downloadtcl-628d65bf41110410632aa9f7e3e4a42c67603f15.zip
tcl-628d65bf41110410632aa9f7e3e4a42c67603f15.tar.gz
tcl-628d65bf41110410632aa9f7e3e4a42c67603f15.tar.bz2
RefineApproximation() leaked twoMv and twoMd in one of its exits.
-rw-r--r--generic/tclStrToD.c2
-rw-r--r--unix/tclConfig.h.in26
2 files changed, 8 insertions, 20 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c
index cff9bdd..d05fe5d 100644
--- a/generic/tclStrToD.c
+++ b/generic/tclStrToD.c
@@ -1903,6 +1903,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;
}
}
diff --git a/unix/tclConfig.h.in b/unix/tclConfig.h.in
index 710949f..9774ce9 100644
--- a/unix/tclConfig.h.in
+++ b/unix/tclConfig.h.in
@@ -4,9 +4,6 @@
#ifndef _TCLCONFIG
#define _TCLCONFIG
-/* Define if building universal (internal helper macro) */
-#undef AC_APPLE_UNIVERSAL_BUILD
-
/* Is pthread_attr_get_np() declared in <pthread.h>? */
#undef ATTRGETNP_NOT_DECLARED
@@ -199,10 +196,10 @@
/* Is 'struct stat64' in <sys/stat.h>? */
#undef HAVE_STRUCT_STAT64
-/* Define to 1 if `st_blksize' is a member of `struct stat'. */
+/* Define to 1 if `st_blksize' is member of `struct stat'. */
#undef HAVE_STRUCT_STAT_ST_BLKSIZE
-/* Define to 1 if `st_blocks' is a member of `struct stat'. */
+/* Define to 1 if `st_blocks' is member of `struct stat'. */
#undef HAVE_STRUCT_STAT_ST_BLOCKS
/* Define to 1 if you have the <sys/filio.h> header file. */
@@ -337,9 +334,6 @@
/* Define to the one symbol short name of this package. */
#undef PACKAGE_TARNAME
-/* Define to the home page for this package. */
-#undef PACKAGE_URL
-
/* Define to the version of this package. */
#undef PACKAGE_VERSION
@@ -433,17 +427,9 @@
/* Should we use vfork() instead of fork()? */
#undef USE_VFORK
-/* Define WORDS_BIGENDIAN to 1 if your processor stores words with the most
- significant byte first (like Motorola and SPARC, unlike Intel). */
-#if defined AC_APPLE_UNIVERSAL_BUILD
-# if defined __BIG_ENDIAN__
-# define WORDS_BIGENDIAN 1
-# endif
-#else
-# ifndef WORDS_BIGENDIAN
-# undef WORDS_BIGENDIAN
-# endif
-#endif
+/* Define to 1 if your processor stores words with the most significant byte
+ first (like Motorola and SPARC, unlike Intel and VAX). */
+#undef WORDS_BIGENDIAN
/* Are Darwin SUSv3 extensions available? */
#undef _DARWIN_C_SOURCE
@@ -498,7 +484,7 @@
/* Define to `int' if <sys/types.h> does not define. */
#undef pid_t
-/* Define to `unsigned int' if <sys/types.h> does not define. */
+/* Define to `unsigned' if <sys/types.h> does not define. */
#undef size_t
/* Define as int if socklen_t is not available */