diff options
author | nijtmans <nijtmans> | 2008-10-07 20:51:46 (GMT) |
---|---|---|
committer | nijtmans <nijtmans> | 2008-10-07 20:51:46 (GMT) |
commit | dc5c90f4a6e01534ffc03e64ca44c034c87a68df (patch) | |
tree | d84545033e20f70a541fc73d622ffe6b8526b48c /win | |
parent | cdb3076a4c8510e94caadbdf9440a95fe580421b (diff) | |
download | tcl-dc5c90f4a6e01534ffc03e64ca44c034c87a68df.zip tcl-dc5c90f4a6e01534ffc03e64ca44c034c87a68df.tar.gz tcl-dc5c90f4a6e01534ffc03e64ca44c034c87a68df.tar.bz2 |
* tclWinTest.c: Fix compiler warning when compiling this file with mingw gcc:
tclWinTest.c:706: warning: dereferencing type-punned pointer will break
strict-aliasing rules
* generic/tclLoad.c: Make sure that any library which doesn't have an
unloadproc is only really unloaded when no library code is executed
yet. [Bug 2059262]
Diffstat (limited to 'win')
-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..adea787 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.22.2.1 2008/10/07 20:51:47 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; } |