diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-05-23 08:52:09 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-05-23 08:52:09 +0000 |
| commit | 5f9a44bd3d3f838543a6f0163c82a79220f56433 (patch) | |
| tree | c8b9a133380c614c48743cb758fae6bbe449faac /libgfortran | |
| parent | a8d8f72370f62b7bc9346104d1af4e2444e8cd2c (diff) | |
| download | gcc-5f9a44bd3d3f838543a6f0163c82a79220f56433.tar.gz | |
2012-05-23 Robert Mason <rbmj@verizon.net>
Tobias Burnus <burnus@net-b.de>
PR libfortran/53445
* intrinsics/chmod.c (chmod_func): Ignore S_ISVTX on VxWorks.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@187797 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/intrinsics/chmod.c | 6 |
2 files changed, 10 insertions, 2 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 12cf5f14d80..e5f79e0cd3d 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2012-05-23 Robert Mason <rbmj@verizon.net> + Tobias Burnus <burnus@net-b.de> + + PR libfortran/53445 + * intrinsics/chmod.c (chmod_func): Ignore S_ISVTX on VxWorks. + 2012-05-23 Tobias Burnus <burnus@net-b.de> PR libfortran/53444 diff --git a/libgfortran/intrinsics/chmod.c b/libgfortran/intrinsics/chmod.c index 91563033f13..e8a81d54ba2 100644 --- a/libgfortran/intrinsics/chmod.c +++ b/libgfortran/intrinsics/chmod.c @@ -459,17 +459,19 @@ clause_done: if ((ugo[2] || honor_umask) && !rwxXstugo[8]) file_mode = (file_mode & ~(S_IROTH | S_IWOTH | S_IXOTH)) | (new_mode & (S_IROTH | S_IWOTH | S_IXOTH)); +#ifndef __VXWORKS__ if (is_dir && rwxXstugo[5]) file_mode |= S_ISVTX; else if (!is_dir) file_mode &= ~S_ISVTX; #endif +#endif } else if (set_mode == 2) { /* Clear '-'. */ file_mode &= ~new_mode; -#ifndef __MINGW32__ +#if !defined( __MINGW32__) && !defined (__VXWORKS__) if (rwxXstugo[5] || !is_dir) file_mode &= ~S_ISVTX; #endif @@ -477,7 +479,7 @@ clause_done: else if (set_mode == 3) { file_mode |= new_mode; -#ifndef __MINGW32__ +#if !defined (__MINGW32__) && !defined (__VXWORKS__) if (rwxXstugo[5] && is_dir) file_mode |= S_ISVTX; else if (!is_dir) |