diff options
| author | hobbs <hobbs> | 2001-09-20 18:35:25 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-09-20 18:35:25 (GMT) |
| commit | a2ca8acedd3fd7649e2448632d71f4a10e00f6f9 (patch) | |
| tree | 7e16fc3ff72ecfd1eca19f826cf6cee8b4b4c342 /win/tclWinInit.c | |
| parent | e3380d820c2c495225d9dbffc3fad5e8e7c82aa0 (diff) | |
| download | tcl-a2ca8acedd3fd7649e2448632d71f4a10e00f6f9.zip tcl-a2ca8acedd3fd7649e2448632d71f4a10e00f6f9.tar.gz tcl-a2ca8acedd3fd7649e2448632d71f4a10e00f6f9.tar.bz2 | |
added extra processor definitions.
Diffstat (limited to 'win/tclWinInit.c')
| -rw-r--r-- | win/tclWinInit.c | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c index 8ea1655..2e2c237 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.29 2001/09/10 21:06:55 dgp Exp $ + * RCS: @(#) $Id: tclWinInit.c,v 1.30 2001/09/20 18:35:25 hobbs Exp $ */ #include "tclWinInt.h" @@ -45,6 +45,21 @@ typedef struct { #ifndef PROCESSOR_ARCHITECTURE_UNKNOWN #define PROCESSOR_ARCHITECTURE_UNKNOWN 0xFFFF #endif +#ifndef PROCESSOR_ARCHITECTURE_SHX +#define PROCESSOR_ARCHITECTURE_SHX 4 +#endif +#ifndef PROCESSOR_ARCHITECTURE_ARM +#define PROCESSOR_ARCHITECTURE_ARM 5 +#endif +#ifndef PROCESSOR_ARCHITECTURE_IA64 +#define PROCESSOR_ARCHITECTURE_IA64 6 +#endif +#ifndef PROCESSOR_ARCHITECTURE_ALPHA64 +#define PROCESSOR_ARCHITECTURE_ALPHA64 7 +#endif +#ifndef PROCESSOR_ARCHITECTURE_MSIL +#define PROCESSOR_ARCHITECTURE_MSIL 8 +#endif /* * The following arrays contain the human readable strings for the Windows @@ -57,9 +72,9 @@ static char* platforms[NUMPLATFORMS] = { "Win32s", "Windows 95", "Windows NT" }; -#define NUMPROCESSORS 4 +#define NUMPROCESSORS 9 static char* processors[NUMPROCESSORS] = { - "intel", "mips", "alpha", "ppc" + "intel", "mips", "alpha", "ppc", "shx", "arm", "ia64", "alpha64", "msil" }; /* Used to store the encoding used for binary files */ |