From 3ca37eb74b96a3ed2140831b356b01145f609fd1 Mon Sep 17 00:00:00 2001 From: Samuel Tardieu Date: Thu, 25 Sep 2008 15:12:26 +0000 Subject: [PATCH] re PR ada/37641 (FILE_WRITE_PROPERTIES is deprecated) gcc/ada/ PR ada/37641 * adaint.c (__gnat_set_non_writable): Use FILE_WRITE_EA instead of deprecated FILE_WRITE_PROPERTIES. From-SVN: r140665 --- 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