plug-ins: remove last usage of GTimeVal and g_get_current_time().

Deprecated as not year-2038-safe, this was the last remnant of code
which was still using it.
This commit is contained in:
Jehan 2020-04-14 16:05:28 +02:00
parent db35080e75
commit 05556457df
1 changed files with 5 additions and 5 deletions

View File

@ -293,13 +293,13 @@ pointer foreign_time(scheme *sc, pointer args)
pointer foreign_gettimeofday(scheme *sc, pointer args) pointer foreign_gettimeofday(scheme *sc, pointer args)
{ {
GTimeVal tv; pointer ret;
pointer ret; gint64 time;
g_get_current_time(&tv); time = g_get_real_time ();
ret = sc->vptr->cons(sc, sc->vptr->mk_integer(sc,(long) tv.tv_sec), ret = sc->vptr->cons(sc, sc->vptr->mk_integer(sc,(long) time / G_USEC_PER_SEC),
sc->vptr->cons(sc, sc->vptr->mk_integer(sc,(long) tv.tv_usec), sc->vptr->cons(sc, sc->vptr->mk_integer(sc,(long) time % G_USEC_PER_SEC),
sc->NIL)); sc->NIL));
return ret; return ret;