From e31ad175024d9689e636f7fd3cafaf7dd9dfd255 Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 5 Aug 2008 14:37:10 +0000 Subject: 2008-08-05 Pascal Obry * adaint.c: Remove support for readable attribute on vxworks and nucleus git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138721 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/adaint.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 242b82bd9c2..1edcac2199e 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -1943,7 +1943,7 @@ __gnat_set_readable (char *name) S2WSU (wname, name, GNAT_MAX_PATH_LEN + 2); __gnat_set_OWNER_ACL (wname, GRANT_ACCESS, FILE_GENERIC_READ); -#else +#elif ! defined (__vxworks) && ! defined(__nucleus__) struct stat statbuf; if (stat (name, &statbuf) == 0) @@ -1962,7 +1962,7 @@ __gnat_set_non_readable (char *name) S2WSU (wname, name, GNAT_MAX_PATH_LEN + 2); __gnat_set_OWNER_ACL (wname, DENY_ACCESS, FILE_GENERIC_READ); -#else +#elif ! defined (__vxworks) && ! defined(__nucleus__) struct stat statbuf; if (stat (name, &statbuf) == 0) -- cgit v1.2.1