From 8b79ad42d8bb2cf2352fb6465ed7d31ebb9b1f54 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 5 Aug 2008 10:41:30 +0200 Subject: adaint.c, [...]: Fix the Set_Read_Only Win32 implementation. 2008-08-05 Pascal Obry * adaint.c, adaint.h, s-os_lib.adb, s-os_lib.ads: Fix the Set_Read_Only Win32 implementation. From-SVN: r138676 --- gcc/ada/adaint.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/ada/adaint.c') 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__) -- cgit v1.1