diff options
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | generic/tclPosixStr.c | 4 | ||||
| -rwxr-xr-x | generic/tclStrToD.c | 2 | ||||
| -rw-r--r-- | win/tclWinPort.h | 2 |
4 files changed, 10 insertions, 4 deletions
@@ -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; |