diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-06-11 07:58:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-06-11 07:58:01 (GMT) |
| commit | a9614d87b805cb106c4876c73858300e3c4359a3 (patch) | |
| tree | 8c818c6541faf545fff407bc6b6633c6f8329bf9 /generic/tclBasic.c | |
| parent | 68d9ec32251e4fef72df8960441ff9784a7b8381 (diff) | |
| download | tcl-a9614d87b805cb106c4876c73858300e3c4359a3.zip tcl-a9614d87b805cb106c4876c73858300e3c4359a3.tar.gz tcl-a9614d87b805cb106c4876c73858300e3c4359a3.tar.bz2 | |
Improve compatibility detection for <time.h> and <sys/stat.h>:
- Move <time.h> before other includes on Windows, so we are sure the time_t definition being checked doesn't come from <sys/types.h>.
- Padding at the end of Tcl_StatBuf doesn't influcence binary compatibility, so relax panic check accordingly.
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 5e6b500..4f24515 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -413,11 +413,12 @@ Tcl_CreateInterp(void) #if defined(_WIN32) && !defined(_WIN64) if (sizeof(time_t) != 4) { /*NOTREACHED*/ - Tcl_Panic("sys/time.h is not compatible with MSVC"); + Tcl_Panic("<time.h> is not compatible with MSVC"); } - if (sizeof(Tcl_StatBuf) != 48) { + if ((TclOffset(Tcl_StatBuf,st_atime) != 32) + || (TclOffset(Tcl_StatBuf,st_ctime) != 40)) { /*NOTREACHED*/ - Tcl_Panic("sys/stat.h is not compatible with MSVC"); + Tcl_Panic("<sys/stat.h> is not compatible with MSVC"); } #endif |