diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-05 17:06:14 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-05 17:06:14 (GMT) |
| commit | 3b7c040233cbbfe0f1e1187325365597fed23d8d (patch) | |
| tree | ac81df2d2559d5ed400041d7f4d91fc6e30a6bea /unix/tclUnixInit.c | |
| parent | b24275a7c4fd64c8c556bc6f3176635e2f4c94af (diff) | |
| parent | c040d037ef8145575f4df9a31bf4d6c023e096d4 (diff) | |
| download | tcl-3b7c040233cbbfe0f1e1187325365597fed23d8d.zip tcl-3b7c040233cbbfe0f1e1187325365597fed23d8d.tar.gz tcl-3b7c040233cbbfe0f1e1187325365597fed23d8d.tar.bz2 | |
Merge 8.6: Add 4 processor-types to Win32/Cygwin. "platform" -> 1.0.16
Diffstat (limited to 'unix/tclUnixInit.c')
| -rw-r--r-- | unix/tclUnixInit.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c index 704224f..c480a56 100644 --- a/unix/tclUnixInit.c +++ b/unix/tclUnixInit.c @@ -46,10 +46,10 @@ DLLIMPORT extern __stdcall void GetSystemInfo(void *); } #endif -#define NUMPROCESSORS 11 +#define NUMPROCESSORS 15 static const char *const processors[NUMPROCESSORS] = { - "intel", "mips", "alpha", "ppc", "shx", "arm", "ia64", "alpha64", "msil", - "amd64", "ia32_on_win64" + "i686", "mips", "alpha", "ppc", "shx", "arm", "ia64", "alpha64", "msil", + "x86_64", "ia32_on_win64", "neutral", "arm64", "arm32_on_win64", "ia32_on_arm64" }; typedef struct { @@ -886,8 +886,7 @@ TclpSetVariables( GetSystemInfo(&sysInfo); - Tcl_SetVar2(interp, "tcl_platform", "os", - "Windows NT", TCL_GLOBAL_ONLY); + Tcl_SetVar2(interp, "tcl_platform", "os", "Windows NT", TCL_GLOBAL_ONLY); sprintf(buffer, "%d.%d", osInfo.dwMajorVersion, osInfo.dwMinorVersion); Tcl_SetVar2(interp, "tcl_platform", "osVersion", buffer, TCL_GLOBAL_ONLY); if (sysInfo.wProcessorArchitecture < NUMPROCESSORS) { |