From 64d569f523c15727ce2f4fbb1a8fa8948660a596 Mon Sep 17 00:00:00 2001 From: sam Date: Thu, 25 Sep 2008 15:12:26 +0000 Subject: [PATCH] gcc/ada/ PR ada/37641 * adaint.c (__gnat_set_non_writable): Use FILE_WRITE_EA instead of deprecated FILE_WRITE_PROPERTIES. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@140665 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ChangeLog | 6 ++++++ gcc/ada/adaint.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index e808ca4..e5a43b2 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2008-09-25 Samuel Tardieu + + PR ada/37641 + * adaint.c (__gnat_set_non_writable): Use FILE_WRITE_EA + instead of deprecated FILE_WRITE_PROPERTIES. + 2008-09-22 Olivier Hainque * gcc-interface/decl.c (gnat_to_gnu_entity): Even when they diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 4a87a2b..f12cc54 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -1923,7 +1923,7 @@ __gnat_set_non_writable (char *name) __gnat_set_OWNER_ACL (wname, DENY_ACCESS, FILE_WRITE_DATA | FILE_APPEND_DATA | - FILE_WRITE_PROPERTIES | FILE_WRITE_ATTRIBUTES); + FILE_WRITE_EA | FILE_WRITE_ATTRIBUTES); SetFileAttributes (wname, GetFileAttributes (wname) | FILE_ATTRIBUTE_READONLY); #elif ! defined (__vxworks) && ! defined(__nucleus__) -- 2.7.4