[Bug libfortran/42420] libgfortran fails to open large files on MINGW32

[jpr at csc dot fi]

------- Comment #1 from jpr at csc dot fi  2009-12-18 00:35 -------
or rather this....


Index: unix.c
===================================================================
--- unix.c      (revision 155325)
+++ unix.c      (working copy)
@@ -781,7 +781,11 @@
 static stream *
 fd_to_stream (int fd, int prot)
 {
+#ifdef __MINGW32__
+  struct _stati64 statbuf;
+#else
   struct stat statbuf;
+#endif
   unix_stream *s;

   s = get_mem (sizeof (unix_stream));
@@ -795,7 +799,11 @@

   /* Get the current length of the file. */

+#ifdef __MINGW32__
+  _fstati64 (fd, &statbuf);
+#else
   fstat (fd, &statbuf);
+#endif

   if (lseek (fd, 0, SEEK_CUR) == (gfc_offset) -1)
     s->file_length = -1;


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42420