diff options
| author | hobbs <hobbs> | 1999-12-09 14:44:09 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 1999-12-09 14:44:09 (GMT) |
| commit | 2f64bc5e83126cf7aafe7ae267cf0b0f07386165 (patch) | |
| tree | d04f841fb433c9c7df6658ec08903cf37d61291a /win/tclWinInit.c | |
| parent | a5996b195198a34b211bf95fef59ae668c3e6d8e (diff) | |
| download | tcl-2f64bc5e83126cf7aafe7ae267cf0b0f07386165.zip tcl-2f64bc5e83126cf7aafe7ae267cf0b0f07386165.tar.gz tcl-2f64bc5e83126cf7aafe7ae267cf0b0f07386165.tar.bz2 | |
* win/tclWin32Dll.c:
* win/tclWinChan.c:
* win/tclWinFCmd.c:
* win/tclWinInit.c:
* win/tclWinPipe.c:
* win/tclWinSock.c: removed all code that supported Win32s. It
was no longer officially supported, and likely didn't work anyway.
* win/makefile.vc: removed 16 bit stuff, cleaned up.
* win/tcl16.rc:
* win/tclWin16.c:
* win/winDumpExts.c: these files have been removed from the
source tree (no longer necessary to build)
* win/aclocal.m4: made it just include tcl.m4
Diffstat (limited to 'win/tclWinInit.c')
| -rw-r--r-- | win/tclWinInit.c | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c index 70895ca..c56958a 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.20 1999/07/22 21:50:57 redman Exp $ + * RCS: @(#) $Id: tclWinInit.c,v 1.21 1999/12/09 14:44:11 hobbs Exp $ */ #include "tclWinInt.h" @@ -553,15 +553,7 @@ TclpSetVariables(interp) GetVersionExA(&osInfo); oemId = (OemId *) &sysInfo; - if (osInfo.dwPlatformId == VER_PLATFORM_WIN32s) { - /* - * Since Win32s doesn't support GetSystemInfo, we use a default value. - */ - - oemId->wProcessorArchitecture = PROCESSOR_ARCHITECTURE_INTEL; - } else { - GetSystemInfo(&sysInfo); - } + GetSystemInfo(&sysInfo); /* * Initialize the tclDefaultLibrary variable from the registry. |