[Openmcl-cvs-notifications] r10817 - in /trunk/source/lisp-kernel: imports.s unix-calls.c windows-calls.c

[gb at clozure.com]

Author: gb
Date: Sun Sep 21 20:20:29 2008
New Revision: 10817

Log:
Add lisp-gettimeofday kernel import.  (Hopefully, this is the last
one of these, for a while at least.)

Modified:
    trunk/source/lisp-kernel/imports.s
    trunk/source/lisp-kernel/unix-calls.c
    trunk/source/lisp-kernel/windows-calls.c

Modified: trunk/source/lisp-kernel/imports.s
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/imports.s (original)
+++ trunk/source/lisp-kernel/imports.s Sun Sep 21 20:20:29 2008
@@ -97,6 +97,7 @@
         defimport(lisp_readdir)
         defimport(lisp_closedir)
         defimport(lisp_pipe)
+        defimport(lisp_gettimeofday)
         =

    =

         .globl C(import_ptrs_base)

Modified: trunk/source/lisp-kernel/unix-calls.c
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/unix-calls.c (original)
+++ trunk/source/lisp-kernel/unix-calls.c Sun Sep 21 20:20:29 2008
@@ -120,3 +120,9 @@
 {
   return pipe(pipefd);
 }
+
+int
+lisp_gettimeofday(struct timeval *tp, void *tzp)
+{
+  return gettimeofday(tp, tzp);
+}

Modified: trunk/source/lisp-kernel/windows-calls.c
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/windows-calls.c (original)
+++ trunk/source/lisp-kernel/windows-calls.c Sun Sep 21 20:20:29 2008
@@ -425,6 +425,12 @@
   return 0;
 }
 =

+int
+lisp_gettimeofday(struct timeval *tp, void *tzp)
+{
+  return gettimeofday(tp, tzp);
+}
+
 =

 HMODULE *modules =3D NULL;
 DWORD cbmodules =3D 0;