From: Pascal Obry <obry@adacore.com>
Date: Wed, 6 Aug 2008 08:52:19 +0000 (+0200)
Subject: adaint.c: Another fix for ACL support on Windows.
X-Git-Tag: releases/gcc-4.4.0~3305
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3e1055a7e583d96ad856de6598eca5d1ff3e7185;p=thirdparty%2Fgcc.git

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

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

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

From-SVN: r138777
---

diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c
index 1edcac2199ed..b7fdd08d2526 100644
--- 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__)