/[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.2 by wfs, Sat Dec 9 07:10:35 2000 UTC revision 1.3 by mjthomas, Thu Jun 6 23:58:07 2002 UTC
# Line 45  which is usually 60 maybe 100 or somethi Line 45  which is usually 60 maybe 100 or somethi
45  #undef BSD  #undef BSD
46  #define ATT  #define ATT
47  #endif  #endif
48  #ifdef MINGW  #ifdef __MINGW32__
49  #include <sys/timeb.h>  #include <sys/timeb.h>
50  #endif  #endif
51    
# Line 142  Lget_internal_run_time() Line 142  Lget_internal_run_time()
142  DEFUN("GET-INTERNAL-REAL-TIME",int,fLget_internal_real_time,LISP,0,0,NONE,IO,OO,OO,OO,"Run time relative to beginning")  DEFUN("GET-INTERNAL-REAL-TIME",int,fLget_internal_real_time,LISP,0,0,NONE,IO,OO,OO,OO,"Run time relative to beginning")
143       ()       ()
144  {  {
145  #ifdef MINGW  #ifdef __MINGW32__
146    static struct timeb t0;    static struct timeb t0;
147    struct timeb t;    struct timeb t;
148      if (t0.time == 0) ftime(&t0);      if (t0.time == 0) ftime(&t0);
149      ftime(&t);      ftime(&t);
150      return (t.time - t0.time)*HZ1 + ((t.millitm)*HZ1)/1000;      return (t.time - t0.time)*HZ1 + ((t.millitm)*HZ1)/1000;
   
151  #endif    #endif  
152  #ifdef BSD  #ifdef BSD
153          static struct timeval begin_tzp;          static struct timeval begin_tzp;
# Line 172  DEFVAR("*DEFAULT-TIME-ZONE*",sSAdefault_ Line 171  DEFVAR("*DEFAULT-TIME-ZONE*",sSAdefault_
171    
172  init_unixtime()  init_unixtime()
173  {  {
 #ifdef MINGW  
   
 #endif    
174  #ifdef BSD  #ifdef BSD
175          ftime(&beginning);          ftime(&beginning);
176  #endif  #endif

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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