diff options
| author | hobbs <hobbs> | 2000-03-31 08:52:25 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-03-31 08:52:25 (GMT) |
| commit | bfc465013806bbc8b695f2bbe20707a6b25ad961 (patch) | |
| tree | 98cafa8492f8f5cdc15405f98b3da66ac0f35396 /win/tclWinReg.c | |
| parent | 3c56f64822ed7b64de23a900456152fe8ee1fb60 (diff) | |
| download | tcl-bfc465013806bbc8b695f2bbe20707a6b25ad961.zip tcl-bfc465013806bbc8b695f2bbe20707a6b25ad961.tar.gz tcl-bfc465013806bbc8b695f2bbe20707a6b25ad961.tar.bz2 | |
* generic/tclInt.decls:
* generic/tclIntPlatDecls.h:
* generic/tclStubInit.c:
* win/tclWin32Dll.c: removed TclWinSynchSpawn (vestige of Win32s
support).
* win/tclWinReg.c: made use of TclWinGetPlatformId instead of
getting info again
* win/tclWinPort.h:
* win/Makefile.in:
* win/configure.in:
* win/tcl.m4: Added support for gcc/mingw on Windows [Bug: 4234]
Diffstat (limited to 'win/tclWinReg.c')
| -rw-r--r-- | win/tclWinReg.c | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/win/tclWinReg.c b/win/tclWinReg.c index 7d296a1..e5808c2 100644 --- a/win/tclWinReg.c +++ b/win/tclWinReg.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinReg.c,v 1.10 1999/10/05 22:47:05 hobbs Exp $ + * RCS: @(#) $Id: tclWinReg.c,v 1.11 2000/03/31 08:52:32 hobbs Exp $ */ #include <tclPort.h> @@ -213,8 +213,6 @@ int Registry_Init( Tcl_Interp *interp) { - OSVERSIONINFO os; - if (!Tcl_InitStubs(interp, "8.0", 0)) { return TCL_ERROR; } @@ -224,10 +222,7 @@ Registry_Init( * appropriate registry function table. */ - os.dwOSVersionInfoSize = sizeof(os); - GetVersionEx(&os); - - if (os.dwPlatformId == VER_PLATFORM_WIN32_NT) { + if (TclWinGetPlatformId() == VER_PLATFORM_WIN32_NT) { regWinProcs = &unicodeProcs; } else { regWinProcs = &asciiProcs; |