diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-06 08:52:19 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-06 08:52:19 +0000 |
| commit | b23dd297006af13005d9450f390fa91645c3bed0 (patch) | |
| tree | 94fc7e97b8f256a26558993f3b892e2d2d65ca60 /gcc/ada/adaint.c | |
| parent | 65acb0a75980eb51b54be66edc894a3dc40d4038 (diff) | |
| download | gcc-b23dd297006af13005d9450f390fa91645c3bed0.tar.gz | |
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
Diffstat (limited to 'gcc/ada/adaint.c')
| -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 1edcac2199e..b7fdd08d252 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__) |