Changeset 8946


Ignore:
Timestamp:
Mar 30, 2008, 7:58:26 AM (11 years ago)
Author:
gb
Message:

Windows time stuff.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/level-1/l1-lisp-threads.lisp

    r8839 r8946  
    7272     (round (pref tv :timeval.tv_usec) (floor 1000000 *ticks-per-second*))))
    7373
     74#-windows-target
    7475(defloadvar *lisp-start-timeval*
    7576    (progn
     
    8586  "Return the real time in the internal time format. (See
    8687  INTERNAL-TIME-UNITS-PER-SECOND.) This is useful for finding elapsed time."
     88  #-windows-target
    8789  (rlet ((tv :timeval))
    8890    (#_gettimeofday tv (%null-ptr))
     
    100102          (setq *internal-real-time-session-seconds*
    101103                (pref tv :timeval.tv_sec))
    102           units)))))
     104          units))))
     105  #+windows-target
     106  (rlet ((ft #>FILETIME))
     107    (#_GetSystemTimeAsFileTime ft)
     108    (floor (dpb (pref ft #>FILETIME.dwHighDateTime) (byte 32 32)
     109                (pref ft #>FILETIME.dwLowDateTime))
     110           (floor 10000000 internal-time-units-per-second))))
    103111
    104112(defun get-tick-count ()
Note: See TracChangeset for help on using the changeset viewer.