OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

chmod.c (chmod_internal): Fix case where mode_t is different from unsigned int.

Browse Source 
* intrinsics/chmod.c (chmod_internal): Fix case where mode_t is
	different from unsigned int.

From-SVN: r243796
This commit is contained in:
Francois-Xavier Coudert 2016-12-19 13:41:32 +00:00 committed by François-Xavier Coudert
parent 4b21c3ea03
commit dc31c238bd
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2016-12-19 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
* intrinsics/chmod.c (chmod_internal): Fix case where mode_t is
different from unsigned int.
2016-12-18 Dominique d'Humieres <dominiq@lps.ens.fr>
PR fortran/78545

8
libgfortran/intrinsics/chmod.c
View File

@ -82,16 +82,10 @@ chmod_internal (char *file, char *mode, gfc_charlen_type mode_len)
if (mode[0] >= '0' && mode[0] <= '9')
{
#ifdef __MINGW32__
unsigned fmode;
if (sscanf (mode, "%o", &fmode) != 1)
return 1;
file_mode = (mode_t) fmode;
#else
if (sscanf (mode, "%o", &file_mode) != 1)
return 1;
#endif
return chmod (file, file_mode);
return chmod (file, (mode_t) fmode);
}
/* Read the current file mode. */