diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-05 14:37:10 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-05 14:37:10 +0000 |
| commit | e31ad175024d9689e636f7fd3cafaf7dd9dfd255 (patch) | |
| tree | b90930b4056aba55f15d6770228613fac771c15c | |
| parent | 2eac3695c42cfcd80fa4b1a236fcc2c88632755f (diff) | |
| download | gcc-e31ad175024d9689e636f7fd3cafaf7dd9dfd255.tar.gz | |
2008-08-05 Pascal Obry <obry@adacore.com>
* 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
| -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 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) |