Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |