diff options
Diffstat (limited to 'gcc/ada/adaint.c')
-rw-r--r-- | gcc/ada/adaint.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 67a457c35d2..58d955a7bbb 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -1472,6 +1472,20 @@ __gnat_set_writable (char *name) } void +__gnat_set_executable (char *name) +{ +#ifndef __vxworks + struct stat statbuf; + + if (stat (name, &statbuf) == 0) + { + statbuf.st_mode = statbuf.st_mode | S_IXUSR; + chmod (name, statbuf.st_mode); + } +#endif +} + +void __gnat_set_readonly (char *name) { #ifndef __vxworks |