From 3e1055a7e583d96ad856de6598eca5d1ff3e7185 Mon Sep 17 00:00:00 2001 From: Pascal Obry Date: Wed, 6 Aug 2008 10:52:19 +0200 Subject: [PATCH] adaint.c: Another fix for ACL support on Windows. 2008-08-06 Pascal Obry * adaint.c: Another fix for ACL support on Windows. From-SVN: r138777 --- gcc/ada/adaint.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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__) -- 2.47.2