diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-05-05 07:23:17 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-05-05 07:23:17 (GMT) |
| commit | e3a939a3c254481c00ee564e3e5bb4306ddeb7bf (patch) | |
| tree | 0f68a112345f6cef2485826de8d571e5a2f7fb1e /win/tclWinInit.c | |
| parent | 0124908d1b4b7a74d2f692318929f8c53093baaf (diff) | |
| download | tcl-e3a939a3c254481c00ee564e3e5bb4306ddeb7bf.zip tcl-e3a939a3c254481c00ee564e3e5bb4306ddeb7bf.tar.gz tcl-e3a939a3c254481c00ee564e3e5bb4306ddeb7bf.tar.bz2 | |
More type-pun warning squelches
Diffstat (limited to 'win/tclWinInit.c')
| -rw-r--r-- | win/tclWinInit.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c index 7824ebf..a179365 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinInit.c,v 1.72 2007/04/17 14:49:54 dkf Exp $ + * RCS: @(#) $Id: tclWinInit.c,v 1.73 2007/05/05 07:23:18 dkf Exp $ */ #include "tclWinInt.h" @@ -499,7 +499,7 @@ TclpSetVariables( { CONST char *ptr; char buffer[TCL_INTEGER_SPACE * 2]; - SYSTEM_INFO sysInfo; + SYSTEM_INFO sysInfo, *sysInfoPtr = &sysInfo; OemId *oemId; OSVERSIONINFOA osInfo; Tcl_DString ds; @@ -512,7 +512,7 @@ TclpSetVariables( osInfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFOA); GetVersionExA(&osInfo); - oemId = (OemId *) &sysInfo; + oemId = (OemId *) sysInfoPtr; GetSystemInfo(&sysInfo); /* |