Hack for THINK C time function.
Made more functions externally visible.
This commit is contained in:
parent
daa8bb334d
commit
6590d4a250
|
@ -48,11 +48,19 @@ time_time(self, args)
|
|||
object *self;
|
||||
object *args;
|
||||
{
|
||||
long secs;
|
||||
time_t secs;
|
||||
if (!getnoarg(args))
|
||||
return 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;
|
||||
|
@ -164,7 +172,6 @@ inittime()
|
|||
|
||||
#define MacTicks (* (long *)0x16A)
|
||||
|
||||
static
|
||||
sleep(msecs)
|
||||
int msecs;
|
||||
{
|
||||
|
@ -177,7 +184,6 @@ sleep(msecs)
|
|||
}
|
||||
}
|
||||
|
||||
static
|
||||
millisleep(msecs)
|
||||
long msecs;
|
||||
{
|
||||
|
@ -190,7 +196,7 @@ millisleep(msecs)
|
|||
}
|
||||
}
|
||||
|
||||
static long
|
||||
long
|
||||
millitimer()
|
||||
{
|
||||
return MacTicks * 50 / 3; /* MacTicks * 1000 / 60 */
|
||||
|
|
Loading…
Reference in New Issue