51 |
#if defined __MINGW32__ || !defined NO_SYSTEM_TIME_ZONE |
#if defined __MINGW32__ || !defined NO_SYSTEM_TIME_ZONE |
52 |
|
|
53 |
# ifdef __MINGW32__ |
# ifdef __MINGW32__ |
54 |
|
# include <windows.h> |
55 |
|
# include <time.h> |
56 |
# include <sys/timeb.h> |
# include <sys/timeb.h> |
57 |
|
|
58 |
static struct timeb t0; |
static struct timeb t0; |
143 |
if (type_of(z) == t_fixnum) |
if (type_of(z) == t_fixnum) |
144 |
usleep(fix(z)); |
usleep(fix(z)); |
145 |
else |
else |
146 |
|
/* What is this for? -- MJT */ |
147 |
for(;;) |
for(;;) |
148 |
|
#ifdef __MINGW32__ |
149 |
|
Sleep ( 10000 ); |
150 |
|
#else |
151 |
sleep(1000); |
sleep(1000); |
152 |
|
#endif |
153 |
vs_top = vs_base; |
vs_top = vs_base; |
154 |
vs_push(Cnil); |
vs_push(Cnil); |
155 |
} |
} |
232 |
} |
} |
233 |
|
|
234 |
#ifdef __MINGW32__ |
#ifdef __MINGW32__ |
|
#include <windows.h> |
|
235 |
int usleep ( unsigned int microseconds ) |
int usleep ( unsigned int microseconds ) |
236 |
{ |
{ |
237 |
unsigned int milliseconds = microseconds / 1000; |
unsigned int milliseconds = microseconds / 1000; |