From: Janne Blomqvist <jb@gcc.gnu.org>
Date: Thu, 1 Dec 2011 08:55:32 +0000 (+0200)
Subject: Don't call stat before opening a file.
X-Git-Tag: releases/gcc-4.7.0~1850
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=12f300a8aaec3eeb80a660e96d980faf37f607bf;p=thirdparty%2Fgcc.git

Don't call stat before opening a file.

2011-12-01  Janne Blomqvist  <jb@gcc.gnu.org>

	* misc.c (gfc_open_file): Don't call stat.

From-SVN: r181875
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 170c6fbdeff3..80f8d5b2c8d1 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2011-12-01  Janne Blomqvist  <jb@gcc.gnu.org>
+
+	* misc.c (gfc_open_file): Don't call stat.
+
 2011-11-29  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
 	PR fortran/40958
diff --git a/gcc/fortran/misc.c b/gcc/fortran/misc.c
index 127404782570..05aef9f02eab 100644
--- a/gcc/fortran/misc.c
+++ b/gcc/fortran/misc.c
@@ -58,17 +58,9 @@ gfc_clear_ts (gfc_typespec *ts)
 FILE *
 gfc_open_file (const char *name)
 {
-  struct stat statbuf;
-
   if (!*name)
     return stdin;
 
-  if (stat (name, &statbuf) < 0)
-    return NULL;
-
-  if (!S_ISREG (statbuf.st_mode))
-    return NULL;
-
   return fopen (name, "r");
 }