1
0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-15 04:06:19 +00:00

subr_settime should avoid settimeofday() completely in Emscripten environment

This commit is contained in:
Nick Briggs
2023-12-22 18:15:18 -08:00
parent 0cc8e4d71c
commit b21fbcbcb1

View File

@@ -73,11 +73,6 @@ extern int ether_fd;
extern DspInterface currentdsp;
#endif /* XWINDOW */
#ifdef MAIKO_OS_EMSCRIPTEN
/* We can't touch the system clock */
#define settimeofday(tv, tz)
#endif
#define LISP_UNIX_TIME_DIFF 29969152
#define LISP_ALTO_TIME_MASK 0x80000000
#define UNIX_ALTO_TIME_DIFF 2177452800U
@@ -293,6 +288,8 @@ void subr_settime(LispPTR args[])
dosday.year = uxtime.tm_year;
dosday.dayofweek = uxtime.tm_wday;
_dos_setdate(&dosday);
#elif defined(MAIKO_OS_EMSCRIPTEN)
(void)args[0];
#else
struct timeval timev;
timev.tv_sec = *((int *)NativeAligned4FromLAddr(args[0])) - UNIX_ALTO_TIME_DIFF;