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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index e808ca4..e5a43b2 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2008-09-25  Samuel Tardieu  <sam@rfc1149.net>
+
+       PR ada/37641
+       * adaint.c (__gnat_set_non_writable): Use FILE_WRITE_EA
+       instead of deprecated FILE_WRITE_PROPERTIES.
+
 2008-09-22  Olivier Hainque  <hainque@adacore.com>
 
        * 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 (file)
--- 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__)