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

+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

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__)