From c144ca8df7c7d54a934b2987a6945d7e75fe39a5 Mon Sep 17 00:00:00 2001 From: Pascal Obry Date: Tue, 5 Aug 2008 16:37:10 +0200 Subject: [PATCH] adaint.c: Remove support for readable attribute on vxworks and nucleus 2008-08-05 Pascal Obry * adaint.c: Remove support for readable attribute on vxworks and nucleus From-SVN: r138721 --- 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 242b82bd9c20..1edcac2199ed 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) -- 2.47.2