[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile scmsigs.c
From: |
Marius Vollmer |
Subject: |
guile/guile-core/libguile scmsigs.c |
Date: |
Thu, 01 Nov 2001 19:16:57 -0500 |
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),
- guile/guile-core/libguile scmsigs.c,
Marius Vollmer <=