diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-05 10:41:30 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-05 10:41:30 +0200 |
| commit | 8b79ad42d8bb2cf2352fb6465ed7d31ebb9b1f54 (patch) | |
| tree | 98e8780cb32c9ae9f98d05ae4749128e492a59d2 /gcc/ada/adaint.c | |
| parent | 38b181d6c0e6db96732eec43f8ae31fd7f3e0c71 (diff) | |
| download | gcc-8b79ad42d8bb2cf2352fb6465ed7d31ebb9b1f54.zip gcc-8b79ad42d8bb2cf2352fb6465ed7d31ebb9b1f54.tar.gz gcc-8b79ad42d8bb2cf2352fb6465ed7d31ebb9b1f54.tar.bz2 | |
adaint.c, [...]: Fix the Set_Read_Only Win32 implementation.
2008-08-05 Pascal Obry <obry@adacore.com>
* adaint.c, adaint.h, s-os_lib.adb, s-os_lib.ads: Fix the
Set_Read_Only Win32 implementation.
From-SVN: r138676
Diffstat (limited to 'gcc/ada/adaint.c')
| -rw-r--r-- | gcc/ada/adaint.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 20f8d22..320d9b2 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -1927,14 +1927,14 @@ __gnat_set_executable (char *name) } void -__gnat_set_readonly (char *name) +__gnat_set_non_writable (char *name) { #if defined (_WIN32) && !defined (RTX) TCHAR wname [GNAT_MAX_PATH_LEN + 2]; S2WSU (wname, name, GNAT_MAX_PATH_LEN + 2); - __gnat_set_OWNER_ACL (wname, SET_ACCESS, GENERIC_READ); + __gnat_set_OWNER_ACL (wname, REVOKE_ACCESS, GENERIC_WRITE); SetFileAttributes (wname, GetFileAttributes (wname) | FILE_ATTRIBUTE_READONLY); #elif ! defined (__vxworks) && ! defined(__nucleus__) |