re PR fortran/47296 (I/O Segfault when running out of file descriptors)

2011-01-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/47296
	* io/unix.c (unpack_filename): Return non-zero if the filename passed
	in is NULL.

From-SVN: r168832
This commit is contained in:
Jerry DeLisle 2011-01-15 06:42:30 +00:00
parent 7c3e9502c3
commit 050d1a59d1
2 changed files with 8 additions and 0 deletions

View File

@ -1,3 +1,9 @@
2011-01-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/47296
* io/unix.c (unpack_filename): Return non-zero if the filename passed
in is NULL.
2011-01-04 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/47154

View File

@ -1000,6 +1000,8 @@ unit_to_fd (int unit)
int
unpack_filename (char *cstring, const char *fstring, int len)
{
if (fstring == NULL)
return 1;
len = fstrlen (fstring, len);
if (len >= PATH_MAX)
return 1;