diff options
| author | hobbs <hobbs> | 2001-10-01 20:58:51 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-10-01 20:58:51 (GMT) |
| commit | c622ab36f0c151a67ccaaa9ddc428330c9c460fa (patch) | |
| tree | dcfe61049844a4186b88ffc2c192688bac8f7a92 /win/tclWinInit.c | |
| parent | 4ee4aaf7de5f1236c6cb8df95db899e3815a23ea (diff) | |
| download | tcl-c622ab36f0c151a67ccaaa9ddc428330c9c460fa.zip tcl-c622ab36f0c151a67ccaaa9ddc428330c9c460fa.tar.gz tcl-c622ab36f0c151a67ccaaa9ddc428330c9c460fa.tar.bz2 | |
added Win64 SDK RC1 compilation support
Diffstat (limited to 'win/tclWinInit.c')
| -rw-r--r-- | win/tclWinInit.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c index 2e2c237..219f193 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.30 2001/09/20 18:35:25 hobbs Exp $ + * RCS: @(#) $Id: tclWinInit.c,v 1.31 2001/10/01 20:58:52 hobbs Exp $ */ #include "tclWinInt.h" @@ -42,14 +42,11 @@ typedef struct { #ifndef PROCESSOR_ARCHITECTURE_PPC #define PROCESSOR_ARCHITECTURE_PPC 3 #endif -#ifndef PROCESSOR_ARCHITECTURE_UNKNOWN -#define PROCESSOR_ARCHITECTURE_UNKNOWN 0xFFFF -#endif #ifndef PROCESSOR_ARCHITECTURE_SHX -#define PROCESSOR_ARCHITECTURE_SHX 4 +#define PROCESSOR_ARCHITECTURE_SHX 4 #endif #ifndef PROCESSOR_ARCHITECTURE_ARM -#define PROCESSOR_ARCHITECTURE_ARM 5 +#define PROCESSOR_ARCHITECTURE_ARM 5 #endif #ifndef PROCESSOR_ARCHITECTURE_IA64 #define PROCESSOR_ARCHITECTURE_IA64 6 @@ -60,6 +57,9 @@ typedef struct { #ifndef PROCESSOR_ARCHITECTURE_MSIL #define PROCESSOR_ARCHITECTURE_MSIL 8 #endif +#ifndef PROCESSOR_ARCHITECTURE_UNKNOWN +#define PROCESSOR_ARCHITECTURE_UNKNOWN 0xFFFF +#endif /* * The following arrays contain the human readable strings for the Windows @@ -459,7 +459,7 @@ ToUtf( wSrc++; } *dst = '\0'; - return dst - start; + return (int) (dst - start); } @@ -703,7 +703,7 @@ TclpFindVariable(name, lengthPtr) if (p1 == NULL) { continue; } - length = p1 - envUpper; + length = (int) (p1 - envUpper); Tcl_DStringSetLength(&envString, length+1); Tcl_UtfToUpper(envUpper); |