Skip to content

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

adaint.c: In UNIX cases do not call __gnat_stat but stat directly. 

2008-08-05  Pascal Obry  <obry@adacore.com>

	* adaint.c: In UNIX cases do not call __gnat_stat but stat directly.

From-SVN: r138703
parent 0c78ce5a
Showing with 3 additions and 3 deletions
gcc/ada/adaint.c
...@@ -1828,7 +1828,7 @@ __gnat_is_readable_file (char *name) ...@@ -1828,7 +1828,7 @@ __gnat_is_readable_file (char *name)
int mode; int mode;
struct stat statbuf; struct stat statbuf;
ret = __gnat_stat (name, &statbuf); ret = stat (name, &statbuf);
mode = statbuf.st_mode & S_IRUSR; mode = statbuf.st_mode & S_IRUSR;
return (!ret && mode); return (!ret && mode);
#endif #endif
...@@ -1854,7 +1854,7 @@ __gnat_is_writable_file (char *name) ...@@ -1854,7 +1854,7 @@ __gnat_is_writable_file (char *name)
int mode; int mode;
struct stat statbuf; struct stat statbuf;
ret = __gnat_stat (name, &statbuf); ret = stat (name, &statbuf);
mode = statbuf.st_mode & S_IWUSR; mode = statbuf.st_mode & S_IWUSR;
return (!ret && mode); return (!ret && mode);
#endif #endif
...@@ -1878,7 +1878,7 @@ __gnat_is_executable_file (char *name) ...@@ -1878,7 +1878,7 @@ __gnat_is_executable_file (char *name)
int mode; int mode;
struct stat statbuf; struct stat statbuf;
ret = __gnat_stat (name, &statbuf); ret = stat (name, &statbuf);
mode = statbuf.st_mode & S_IXUSR; mode = statbuf.st_mode & S_IXUSR;
return (!ret && mode); return (!ret && mode);
#endif #endif
......
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