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)
{
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),
sc->vptr->cons(sc, sc->vptr->mk_integer(sc,(long) tv.tv_usec),
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) time % G_USEC_PER_SEC),
sc->NIL));
return ret;