diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-05-17 13:49:39 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-05-17 13:49:39 (GMT) |
| commit | a88536e249e7c0d450e0719ee852a1fbb4a748fa (patch) | |
| tree | 7aa07258f7160bb507355861c24731f6677b70de /generic/tclBasic.c | |
| parent | 57e2c4bf7095c8d2277a617b9abd1132c8d75b35 (diff) | |
| parent | eb0b1becf70d4c82d3ebf9dc6abd28f0f5e3b4d6 (diff) | |
| download | tcl-a88536e249e7c0d450e0719ee852a1fbb4a748fa.zip tcl-a88536e249e7c0d450e0719ee852a1fbb4a748fa.tar.gz tcl-a88536e249e7c0d450e0719ee852a1fbb4a748fa.tar.bz2 | |
merge trunk
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 57dc0f5..e14efa5 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -469,6 +469,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) { |