diff options
| author | nijtmans <nijtmans> | 2008-07-19 22:16:57 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-07-19 22:16:57 (GMT) |
| commit | b14c3ce33c3768549ca86339c729e53054bd3cfd (patch) | |
| tree | 25fe86a4073108f0fa0430653d1cd81fae489cf3 | |
| parent | 5a293910f5794f27a11a9b465bf878e7632c8a71 (diff) | |
| download | tcl-b14c3ce33c3768549ca86339c729e53054bd3cfd.zip tcl-b14c3ce33c3768549ca86339c729e53054bd3cfd.tar.gz tcl-b14c3ce33c3768549ca86339c729e53054bd3cfd.tar.bz2 | |
Fix a gcc warning when compiling Tcl with mingw32
tclWinTest.c: In function `TestplatformChmod':
tclWinTest.c:706: warning: dereferencing type-punned pointer will break strict-a liasing rules
| -rw-r--r-- | win/tclWinTest.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/win/tclWinTest.c b/win/tclWinTest.c index 946f179..eb2ccf8 100644 --- a/win/tclWinTest.c +++ b/win/tclWinTest.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinTest.c,v 1.22 2007/12/13 15:28:44 dgp Exp $ + * RCS: @(#) $Id: tclWinTest.c,v 1.23 2008/07/19 22:16:57 nijtmans Exp $ */ #include "tclInt.h" @@ -700,10 +700,10 @@ TestplatformChmod( acl_readOnly_found = FALSE; for (j = 0; j < ACLSize.AceCount; j++) { - PACL *pACE2; + LPVOID pACE2; ACE_HEADER *phACE2; - if (!getAceProc(curAcl, j, (LPVOID *) &pACE2)) { + if (!getAceProc(curAcl, j, &pACE2)) { goto done; } @@ -736,7 +736,7 @@ TestplatformChmod( * Copy the current ACE from the old to the new ACL. */ - if (!addAceProc(newAcl, ACL_REVISION, MAXDWORD, pACE2, + if (!addAceProc(newAcl, ACL_REVISION, MAXDWORD, (PACL *) pACE2, ((PACE_HEADER) pACE2)->AceSize)) { goto done; } |