/[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.7 by camm, Mon Sep 16 17:30:40 2002 UTC revision 1.8 by mjthomas, Thu Sep 19 23:19:31 2002 UTC
# Line 49  which is usually 60 maybe 100 or somethi Line 49  which is usually 60 maybe 100 or somethi
49  #endif  #endif
50  #ifdef __MINGW32__  #ifdef __MINGW32__
51  #include <sys/timeb.h>  #include <sys/timeb.h>
52    int usleep ( unsigned int microseconds );
53  #endif  #endif
54    
55  #ifdef BSD  #ifdef BSD
# Line 190  init_unixtime(void) Line 191  init_unixtime(void)
191          make_function("SLEEP", Lsleep);          make_function("SLEEP", Lsleep);
192          make_function("GET-INTERNAL-RUN-TIME", Lget_internal_run_time);          make_function("GET-INTERNAL-RUN-TIME", Lget_internal_run_time);
193  }  }
194    
195    #ifdef __MINGW32__
196    #include <windows.h>
197    int usleep ( unsigned int microseconds )
198    {
199        unsigned int milliseconds = microseconds / 1000;
200        return ( SleepEx ( milliseconds, TRUE ) );
201    }
202    #endif

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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