diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-02 11:58:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-02 11:58:18 (GMT) |
| commit | 3e6987856502d7a1c873cfa9de0abc2b09924476 (patch) | |
| tree | d47b49f5576e364c5de808232dd154f650b89841 /unix/tclUnixInit.c | |
| parent | 88eafacc822a9e546b2d075195d179e223a32296 (diff) | |
| parent | aef36bf11d4ad79a6f2e6691f132fd4c444822df (diff) | |
| download | tcl-3e6987856502d7a1c873cfa9de0abc2b09924476.zip tcl-3e6987856502d7a1c873cfa9de0abc2b09924476.tar.gz tcl-3e6987856502d7a1c873cfa9de0abc2b09924476.tar.bz2 | |
merge trunk.
tclStubLib.c: protect loading incompatible Tcl9 extensions in Tcl8
Diffstat (limited to 'unix/tclUnixInit.c')
| -rw-r--r-- | unix/tclUnixInit.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c index f07b123..39be160 100644 --- a/unix/tclUnixInit.c +++ b/unix/tclUnixInit.c @@ -42,12 +42,12 @@ static const char *const platforms[NUMPLATFORMS] = { }; #define NUMPROCESSORS 11 -static const char *const processors[NUMPROCESSORS] = { +static const char *const processors[NUMPROCESSORS] = { "intel", "mips", "alpha", "ppc", "shx", "arm", "ia64", "alpha64", "msil", "amd64", "ia32_on_win64" }; -typedef struct _SYSTEM_INFO { +typedef struct { union { DWORD dwOemId; struct { @@ -66,7 +66,7 @@ typedef struct _SYSTEM_INFO { int wProcessorRevision; } SYSTEM_INFO; -typedef struct _OSVERSIONINFOA { +typedef struct { DWORD dwOSVersionInfoSize; DWORD dwMajorVersion; DWORD dwMinorVersion; @@ -112,7 +112,7 @@ static char pkgPath[sizeof(TCL_PACKAGE_PATH)+200] = TCL_PACKAGE_PATH; * first list checked for a mapping from env encoding to Tcl encoding name. */ -typedef struct LocaleTable { +typedef struct { const char *lang; const char *encoding; } LocaleTable; |