summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog6
-rw-r--r--generic/tclPosixStr.c4
-rwxr-xr-xgeneric/tclStrToD.c2
-rw-r--r--win/tclWinPort.h2
4 files changed, 10 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index bbe93e8..ada3045 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2011-08-15 Jan Nijtmans <nijtmans@users.sf.net>
+
+ * win/tclWinPort.h: [Bug 3388350] mingw64 compiler warnings
+ * generic/tclPosixStr.c
+ * generic/tclStrToD.c
+
2011-08-12 Don Porter <dgp@users.sourceforge.net>
* generic/tclPathObj.c: [Bug 3389764] Eliminate possibility that dup
diff --git a/generic/tclPosixStr.c b/generic/tclPosixStr.c
index d56a3bf..a11b532 100644
--- a/generic/tclPosixStr.c
+++ b/generic/tclPosixStr.c
@@ -35,7 +35,7 @@ CONST char *
Tcl_ErrnoId(void)
{
switch (errno) {
-#ifdef E2BIG
+#if defined(E2BIG) && (!defined(EOVERFLOW) || (E2BIG != EOVERFLOW))
case E2BIG: return "E2BIG";
#endif
#ifdef EACCES
@@ -482,7 +482,7 @@ Tcl_ErrnoMsg(
int err) /* Error number (such as in errno variable). */
{
switch (err) {
-#ifdef E2BIG
+#if defined(E2BIG) && (!defined(EOVERFLOW) || (E2BIG != EOVERFLOW))
case E2BIG: return "argument list too long";
#endif
#ifdef EACCES
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c
index 2db239e..aa78c51 100755
--- a/generic/tclStrToD.c
+++ b/generic/tclStrToD.c
@@ -3096,7 +3096,7 @@ ShouldBankerRoundUpPowD(mp_int* b,
/* 1 if the digit is odd, 0 if even */
{
int i;
- const static mp_digit topbit = (1<<(DIGIT_BIT-1));
+ static const mp_digit topbit = (1<<(DIGIT_BIT-1));
if (b->used < sd || (b->dp[sd-1] & topbit) == 0) {
return 0;
}
diff --git a/win/tclWinPort.h b/win/tclWinPort.h
index 1c88ab2..f29b560 100644
--- a/win/tclWinPort.h
+++ b/win/tclWinPort.h
@@ -107,7 +107,7 @@
/*
* Not all mingw32 versions have this struct.
*/
-#if !defined(__BORLANDC__) && !defined(_MSC_VER) && !defined(_WIN64) && !defined(HAVE_STRUCT_STAT32I64)
+#if !defined(__BORLANDC__) && !defined(_MSC_VER) && !defined(_WIN64) && !defined(HAVE_STRUCT_STAT32I64) && defined(BUILD_tcl)
struct _stat32i64 {
dev_t st_dev;
ino_t st_ino;