diff options
| author | Pascal Obry <obry@adacore.com> | 2008-08-05 16:37:10 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-05 16:37:10 +0200 |
| commit | c144ca8df7c7d54a934b2987a6945d7e75fe39a5 (patch) | |
| tree | b90930b4056aba55f15d6770228613fac771c15c /gcc | |
| parent | c80645abe50e15e49353b9d1bce69ff46ed8d948 (diff) | |
| download | gcc-c144ca8df7c7d54a934b2987a6945d7e75fe39a5.zip gcc-c144ca8df7c7d54a934b2987a6945d7e75fe39a5.tar.gz gcc-c144ca8df7c7d54a934b2987a6945d7e75fe39a5.tar.bz2 | |
adaint.c: Remove support for readable attribute on vxworks and nucleus
2008-08-05 Pascal Obry <obry@adacore.com>
* adaint.c: Remove support for readable attribute on vxworks and nucleus
From-SVN: r138721
Diffstat (limited to 'gcc')
| -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 242b82b..1edcac2 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) |