/[gcl]/gcl/o/unixtime.c
ViewVC logotype

Diff of /gcl/o/unixtime.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by mjthomas, Tue Nov 19 03:05:59 2002 UTC revision 1.16 by mjthomas, Mon Jan 13 05:34:55 2003 UTC
# Line 51  which is usually 60 maybe 100 or somethi Line 51  which is usually 60 maybe 100 or somethi
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;
# Line 141  Lsleep(void) Line 143  Lsleep(void)
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  }  }
# Line 225  init_unixtime(void) Line 232  init_unixtime(void)
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;

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26