Skip to content

R
riscv-gcc-1
Commit c144ca8d by Pascal Obry Committed by Arnaud Charlet
Options

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
parent c80645ab
Showing with 2 additions and 2 deletions
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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment