re PR libfortran/23802 ([mingw32] sleep malfunction)

PR libfortran/23802 * intrinsics/sleep.c: Add correct sleep macro for MinGW. From-SVN: r104599

re PR libfortran/23802 ([mingw32] sleep malfunction)
PR libfortran/23802 * intrinsics/sleep.c: Add correct sleep macro for MinGW. From-SVN: r104599
26b7ebf6 · Francois-Xavier Coudert · François-Xavier Coudert · 399a39c7 · 26b7ebf6 · 26b7ebf6
Commit 26b7ebf6 authored Sep 24, 2005 by Francois-Xavier Coudert Committed by François-Xavier Coudert Sep 24, 2005
Hide whitespace changes
Inline Side-by-side

Showing with 12 additions and 0 deletions

libgfortran/ChangeLog
+5 -0

libgfortran/intrinsics/sleep.c
+7 -0

No files found.
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
 2005-09-24  Francois-Xavier Coudert  <coudert@clipper.ens.fr>

+	PR libfortran/23802
+	* intrinsics/sleep.c: Add correct sleep macro for MinGW.
+
+2005-09-24  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
 	PR libfortran/23380
 	* intrinsics/cpu_time.c (__cpu_time_1): Provide a MS Windows
 	version.

--- a/libgfortran/intrinsics/sleep.c
+++ b/libgfortran/intrinsics/sleep.c
@@ -39,6 +39,13 @@ Boston, MA 02110-1301, USA.  */
 #include <unistd.h>
 #endif

+#ifdef __MINGW32__
+# include <windows.h>
+# undef sleep
+# define sleep(x) Sleep(1000*(x))
+# define HAVE_SLEEP
+#endif
+
 /* SUBROUTINE SLEEP(SECONDS)
   INTEGER, INTENT(IN) :: SECONDS