summaryrefslogtreecommitdiffstats
path: root/generic/tclBasic.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-05-16 12:22:51 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-05-16 12:22:51 (GMT)
commit65dd4e6fd7b8fb775cc64a3c846153190ddd01b1 (patch)
treefc529af33d77973c27a568e90d035a6cc6a9c8c0 /generic/tclBasic.c
parent2c13dd7338d32cd3691df3d31100b0c760712afc (diff)
parent880f2f98f5cb2c020219b568c53c4e03d4d28633 (diff)
downloadtcl-65dd4e6fd7b8fb775cc64a3c846153190ddd01b1.zip
tcl-65dd4e6fd7b8fb775cc64a3c846153190ddd01b1.tar.gz
tcl-65dd4e6fd7b8fb775cc64a3c846153190ddd01b1.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.c15
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