Skip to content

R
riscv-gcc-1
Commit 3e1055a7 by Pascal Obry Committed by Arnaud Charlet
Options

adaint.c: Another fix for ACL support on Windows. 

2008-08-06  Pascal Obry  <obry@adacore.com>

	* adaint.c: Another fix for ACL support on Windows.

From-SVN: r138777
parent 7bd98753
Showing with 4 additions and 1 deletions
gcc/ada/adaint.c
...@@ -1920,7 +1920,10 @@ __gnat_set_non_writable (char *name) ...@@ -1920,7 +1920,10 @@ __gnat_set_non_writable (char *name)
S2WSU (wname, name, GNAT_MAX_PATH_LEN + 2); 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 SetFileAttributes
(wname, GetFileAttributes (wname) | FILE_ATTRIBUTE_READONLY); (wname, GetFileAttributes (wname) | FILE_ATTRIBUTE_READONLY);
#elif ! defined (__vxworks) && ! defined(__nucleus__) #elif ! defined (__vxworks) && ! defined(__nucleus__)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment