diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-05-16 12:33:05 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-05-16 12:33:05 (GMT) |
| commit | a6b3146b87983fc0b4d81f371810c5dabf68bdbd (patch) | |
| tree | 2ce6286cd13d706c6b0acb2b13ef9ac8fea15311 /generic/tclBasic.c | |
| parent | a9dd569f8e5f2c3485e48f6314f03200876e0c2d (diff) | |
| parent | 303d07068735830dccf5632f8be0b526aa63837b (diff) | |
| download | tcl-a6b3146b87983fc0b4d81f371810c5dabf68bdbd.zip tcl-a6b3146b87983fc0b4d81f371810c5dabf68bdbd.tar.gz tcl-a6b3146b87983fc0b4d81f371810c5dabf68bdbd.tar.bz2 | |
Add support for the latest mingw-4.0-rc1. See: [http://sourceforge.net/p/mingw/mingw-org-wsl/ci/4.0-rc1/tree/NEWS]
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index bf0639e..aafbe71 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -486,6 +486,17 @@ Tcl_CreateInterp(void) Tcl_Panic("Tcl_CallFrame must not be smaller than CallFrame"); } +#if defined(_WIN32) && !defined(_WIN64) + if (sizeof(time_t) != 4) { + /*NOTREACHED*/ + Tcl_Panic("sys/time.h is not compatible with MSVC"); + } + if (sizeof(Tcl_StatBuf) != 48) { + /*NOTREACHED*/ + Tcl_Panic("sys/stat.h is not compatible with MSVC"); + } +#endif + if (cancelTableInitialized == 0) { Tcl_MutexLock(&cancelLock); if (cancelTableInitialized == 0) { |