OSDN Git Service

PR libfortran/23802
authorfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 24 Sep 2005 08:55:37 +0000 (08:55 +0000)
committerfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 24 Sep 2005 08:55:37 +0000 (08:55 +0000)
* intrinsics/sleep.c: Add correct sleep macro for MinGW.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@104599 138bc75d-0d04-0410-961f-82ee72b054a4

libgfortran/ChangeLog
libgfortran/intrinsics/sleep.c

index 760d40b..9dd5da2 100644 (file)
@@ -1,5 +1,10 @@
 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.
index 05edc3f..a9f579c 100644 (file)
@@ -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