2008-08-06 Pascal Obry <obry@adacore.com>

	* adaint.c: Another fix for ACL support on Windows.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138777 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c
index 1edcac2..b7fdd08 100644 (file)
--- a/gcc/ada/adaint.c
+++ b/gcc/ada/adaint.c
@@ -1920,7 +1920,10 @@ __gnat_set_non_writable (char *name)
 
   S2WSU (wname, name, GNAT_MAX_PATH_LEN + 2);
 
-  __gnat_set_OWNER_ACL (wname, DENY_ACCESS, FILE_GENERIC_WRITE);
+  __gnat_set_OWNER_ACL
+    (wname, DENY_ACCESS,
+     FILE_WRITE_DATA | FILE_APPEND_DATA |
+     FILE_WRITE_PROPERTIES | FILE_WRITE_ATTRIBUTES);
   SetFileAttributes
     (wname, GetFileAttributes (wname) | FILE_ATTRIBUTE_READONLY);
 #elif ! defined (__vxworks) && ! defined(__nucleus__)