diff options
| author | Pascal Obry <obry@adacore.com> | 2008-08-06 10:52:19 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-06 10:52:19 +0200 |
| commit | 3e1055a7e583d96ad856de6598eca5d1ff3e7185 (patch) | |
| tree | 94fc7e97b8f256a26558993f3b892e2d2d65ca60 /gcc | |
| parent | 7bd98753254d319e7ecd890f227062dfe70b086c (diff) | |
| download | gcc-3e1055a7e583d96ad856de6598eca5d1ff3e7185.zip gcc-3e1055a7e583d96ad856de6598eca5d1ff3e7185.tar.gz gcc-3e1055a7e583d96ad856de6598eca5d1ff3e7185.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/adaint.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 1edcac2..b7fdd08 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__) |