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

PR 66861 Fix null pointer crash on mingw.

Browse Source 
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>
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;
}
# endif
ret = (strcmp(path, u->filename) == 0);
if (u->filename)
ret = (strcmp(path, u->filename) == 0);
else
ret = 0;
#endif
done:
free (path);
@ -1570,7 +1573,7 @@ find_file0 (gfc_unit *u, FIND_FILE0_DECL)
}
else
# endif
if (strcmp (u->filename, path) == 0)
if (u->filename && strcmp (u->filename, path) == 0)
return u;
#endif