Changeset 7951


Ignore:
Timestamp:
Dec 26, 2007, 8:02:00 AM (12 years ago)
Author:
gb
Message:

Add timeval->microseconds.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/linux-files.lisp

    r7735 r7951  
    413413    (+ (* 1000 (pref tv :timeval.tv_sec)) (round (pref tv :timeval.tv_usec) 1000)))
    414414
     415(defun timeval->microseconds (tv)
     416    (+ (* 1000000 (pref tv :timeval.tv_sec)) (pref tv :timeval.tv_usec)))
    415417
    416418(defun %add-timevals (result a b)
Note: See TracChangeset for help on using the changeset viewer.