diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-05-16 12:22:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-05-16 12:22:51 (GMT) |
| commit | 87d602d36b02b1d85ffa0ee5a11b00d508f46d4e (patch) | |
| tree | fc529af33d77973c27a568e90d035a6cc6a9c8c0 /generic/tclBasic.c | |
| parent | bf048c05748240e4834d1ecee4a23f3b788d6a18 (diff) | |
| parent | 472c40ee512ac5d71191c2b1a6948982f1ac05d8 (diff) | |
| download | tcl-87d602d36b02b1d85ffa0ee5a11b00d508f46d4e.zip tcl-87d602d36b02b1d85ffa0ee5a11b00d508f46d4e.tar.gz tcl-87d602d36b02b1d85ffa0ee5a11b00d508f46d4e.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 | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index d3b5490..c691018 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -15,6 +15,10 @@ * this file, and for a DISCLAIMER OF ALL WARRANTIES. */ +#if defined(_WIN32) && !defined(_WIN64) +# define _USE_32BIT_TIME_T +#endif + #include "tclInt.h" #include "tclCompile.h" #include <float.h> @@ -410,6 +414,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 + /* * Initialize support for namespaces and create the global namespace * (whose name is ""; an alias is "::"). This also initializes the Tcl |