From 509f7fdc0e4ae68b9be0d526fe3ca1a04edfcf39 Mon Sep 17 00:00:00 2001 From: Kai Tietz Date: Mon, 30 Nov 2009 15:12:33 +0100 Subject: unix.c (find_file): Add variable id conditionally for mingw targets. 2009-11-30 Kai Tietz * io/unix.c (find_file): Add variable id conditionally for mingw targets. From-SVN: r154806 --- libgfortran/io/unix.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'libgfortran/io') diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index 011d426..8b32475 100644 --- a/libgfortran/io/unix.c +++ b/libgfortran/io/unix.c @@ -1287,6 +1287,9 @@ find_file (const char *file, gfc_charlen_type file_len) char path[PATH_MAX + 1]; struct stat st[2]; gfc_unit *u; +#if defined(__MINGW32__) && !HAVE_WORKING_STAT + uint64_t id = 0ULL; +#endif if (unpack_filename (path, file, file_len)) return NULL; @@ -1295,7 +1298,7 @@ find_file (const char *file, gfc_charlen_type file_len) return NULL; #if defined(__MINGW32__) && !HAVE_WORKING_STAT - id_from_path (path); + id = id_from_path (path); #endif __gthread_mutex_lock (&unit_lock); -- cgit v1.1