git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

PR 66861 Fix null pointer crash on mingw. 

2015-07-14  Janne Blomqvist  <jb@gcc.gnu.org>

	PR libfortran/66861
	* io/unix.c (compare_file_filename): Verify that u->filename is
	non-NULL before strcmp.
	(find_file0): Likewise.

From-SVN: r225788
This commit is contained in:
Janne Blomqvist 2015-07-14 23:26:06 +03:00
parent 5faebb89f5
commit 5fd6ec3e4b
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgfortran/ChangeLog
View File

@ -1,3 +1,10 @@
2015-07-14 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/66861
* io/unix.c (compare_file_filename): Verify that u->filename is
non-NULL before strcmp.
(find_file0): Likewise.
2015-07-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> 2015-07-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR libfortran/40267 PR libfortran/40267

7
libgfortran/io/unix.c
View File

@ -1525,7 +1525,10 @@ compare_file_filename (gfc_unit *u, const char *name, int len)
goto done; goto done;
} }
# endif # endif
ret = (strcmp(path, u->filename) == 0); if (u->filename)
ret = (strcmp(path, u->filename) == 0);
else
ret = 0;
#endif #endif
done: done:
free (path); free (path);
@ -1570,7 +1573,7 @@ find_file0 (gfc_unit *u, FIND_FILE0_DECL)
} }
else else
# endif # endif
if (strcmp (u->filename, path) == 0) if (u->filename && strcmp (u->filename, path) == 0)
return u; return u;
#endif #endif