Hack for THINK C time function.

Made more functions externally visible.
This commit is contained in:
Guido van Rossum 1991-04-04 10:49:03 +00:00
parent daa8bb334d
commit 6590d4a250
1 changed files with 11 additions and 5 deletions

View File

@ -48,11 +48,19 @@ time_time(self, args)
object *self; object *self;
object *args; object *args;
{ {
long secs; time_t secs;
if (!getnoarg(args)) if (!getnoarg(args))
return NULL; return NULL;
secs = time((time_t *)NULL); secs = time((time_t *)NULL);
return newintobject(secs); #ifdef THINK_C
#ifndef THINK_C_3_0
/* Difference in origin between Mac and Unix clocks: */
#define TIMEDIFF ((time_t) \
(((1970-1904)*365L + (1970-1904)/4) * 24 * 3600))
secs -= TIMEDIFF;
#endif
#endif
return newintobject((long)secs);
} }
static jmp_buf sleep_intr; static jmp_buf sleep_intr;
@ -164,7 +172,6 @@ inittime()
#define MacTicks (* (long *)0x16A) #define MacTicks (* (long *)0x16A)
static
sleep(msecs) sleep(msecs)
int msecs; int msecs;
{ {
@ -177,7 +184,6 @@ sleep(msecs)
} }
} }
static
millisleep(msecs) millisleep(msecs)
long msecs; long msecs;
{ {
@ -190,7 +196,7 @@ millisleep(msecs)
} }
} }
static long long
millitimer() millitimer()
{ {
return MacTicks * 50 / 3; /* MacTicks * 1000 / 60 */ return MacTicks * 50 / 3; /* MacTicks * 1000 / 60 */