guile/guile-core/libguile scmsigs.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/11/01 19:16:57

Modified files:
        guile-core/libguile: scmsigs.c 

Log message:
        Made `usleep()' avalable on MinGW.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/scmsigs.c.diff?cvsroot=OldCVS&tr1=1.63&tr2=1.64&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/scmsigs.c
diff -u guile/guile-core/libguile/scmsigs.c:1.63 
guile/guile-core/libguile/scmsigs.c:1.64
--- guile/guile-core/libguile/scmsigs.c:1.63    Sat Jul 21 17:11:16 2001
+++ guile/guile-core/libguile/scmsigs.c Thu Nov  1 19:16:57 2001
@@ -81,6 +81,7 @@
 #define alarm(sec) (0)
 /* This weird comma expression is because Sleep is void under Windows. */
 #define sleep(sec) (Sleep ((sec) * 1000), 0)
+#define usleep(usec) (Sleep ((usec) / 1000), 0)
 #define kill(pid, sig) raise (sig)
 #endif
 
@@ -534,7 +535,7 @@
 }
 #undef FUNC_NAME
 
-#if defined(USE_THREADS) || defined(HAVE_USLEEP)
+#if defined(USE_THREADS) || defined(HAVE_USLEEP) || defined(__MINGW32__)
 SCM_DEFINE (scm_usleep, "usleep", 1, 0, 0,
            (SCM i),
            "Sleep for I microseconds.  @code{usleep} is not available on\n"
@@ -562,7 +563,7 @@
 #endif
 }
 #undef FUNC_NAME
-#endif /* GUILE_ISELECT || HAVE_USLEEP */
+#endif /* USE_THREADS || HAVE_USLEEP || __MINGW32__ */
 
 SCM_DEFINE (scm_raise, "raise", 1, 0, 0,
            (SCM sig),