Ignore:
Timestamp:
Sep 22, 2008, 12:25:45 PM (11 years ago)
Author:
gb
Message:

Define GETTIMEOFDAY, which calls lisp_gettimeofday() in the kernel.
(gettimeofday() is prototyped in the mingw headers on Windows but
only available as statically linked code). Change other uses of
#_gettimeofday to call the GETTIMEOFDAY function. Remove some
Windows-specific code that was avoiding use of #_gettimeofday.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/linux-files.lisp

    r10707 r10822  
    18141814;;(assert (= (logcount *host-page-size*) 1))
    18151815
     1816(defun get-universal-time ()
     1817  "Return a single integer for the current time of
     1818   day in universal time format."
     1819  (rlet ((tv :timeval))
     1820    (gettimeofday tv)
     1821    (+ (pref tv :timeval.tv_sec) unix-to-universal-time)))
     1822
    18161823#-windows-target
    18171824(progn
Note: See TracChangeset for help on using the changeset viewer.