diff options
| author | hobbs <hobbs> | 2003-08-06 23:50:06 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2003-08-06 23:50:06 (GMT) |
| commit | 3f8d9162c4a63b45762caa5a49356411f606678c (patch) | |
| tree | ee59a9d41a5b87a7ee75e00230047d85efe05899 /win | |
| parent | 19a49f579c4a8e2fb5c4cc8da333de09e8f11395 (diff) | |
| download | tcl-3f8d9162c4a63b45762caa5a49356411f606678c.zip tcl-3f8d9162c4a63b45762caa5a49356411f606678c.tar.gz tcl-3f8d9162c4a63b45762caa5a49356411f606678c.tar.bz2 | |
* win/tclWinInit.c: recognize amd64 and ia32_on_win64 cpus and
Windows CE platform.
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWinInit.c | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c index 2ab64a3..f3f0865 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -7,7 +7,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclWinInit.c,v 1.40 2003/02/27 03:47:09 chengyemao Exp $ + * RCS: @(#) $Id: tclWinInit.c,v 1.40.2.1 2003/08/06 23:50:06 hobbs Exp $ */ #include "tclWinInt.h" @@ -58,6 +58,12 @@ typedef struct { #ifndef PROCESSOR_ARCHITECTURE_MSIL #define PROCESSOR_ARCHITECTURE_MSIL 8 #endif +#ifndef PROCESSOR_ARCHITECTURE_AMD64 +#define PROCESSOR_ARCHITECTURE_AMD64 9 +#endif +#ifndef PROCESSOR_ARCHITECTURE_IA32_ON_WIN64 +#define PROCESSOR_ARCHITECTURE_IA32_ON_WIN64 10 +#endif #ifndef PROCESSOR_ARCHITECTURE_UNKNOWN #define PROCESSOR_ARCHITECTURE_UNKNOWN 0xFFFF #endif @@ -68,14 +74,15 @@ typedef struct { */ -#define NUMPLATFORMS 3 +#define NUMPLATFORMS 4 static char* platforms[NUMPLATFORMS] = { - "Win32s", "Windows 95", "Windows NT" + "Win32s", "Windows 95", "Windows NT", "Windows CE" }; -#define NUMPROCESSORS 9 +#define NUMPROCESSORS 11 static char* processors[NUMPROCESSORS] = { - "intel", "mips", "alpha", "ppc", "shx", "arm", "ia64", "alpha64", "msil" + "intel", "mips", "alpha", "ppc", "shx", "arm", "ia64", "alpha64", "msil", + "amd64", "ia32_on_win64" }; /* Used to store the encoding used for binary files */ |