summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
Diffstat (limited to 'win')
-rw-r--r--win/tclWinInit.c21
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 */