Changeset 7955


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

GCTIMES reported in INTERNAL-TIME-UNITS-PER-SECOND.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/time.lisp

    r6919 r7955  
    3232    (%stack-block ((copy (* timeval-size 5)))
    3333      (#_memmove copy *total-gc-microseconds* (* timeval-size 5))
    34       (values
    35        (timeval->milliseconds copy)
    36        (timeval->milliseconds (%incf-ptr copy timeval-size))
    37        (timeval->milliseconds (%incf-ptr copy timeval-size))
    38        (timeval->milliseconds (%incf-ptr copy timeval-size))
    39        (timeval->milliseconds (%incf-ptr copy timeval-size))))))
     34      (macrolet ((funk (arg)
     35                   (ecase internal-time-units-per-second
     36                    (1000000 `(timeval->microseconds ,arg))
     37                    (1000 `(timeval->milliseconds ,arg)))))
     38        (values
     39         (funk copy)
     40         (funk (%incf-ptr copy timeval-size))
     41         (funk (%incf-ptr copy timeval-size))
     42         (funk (%incf-ptr copy timeval-size))
     43         (funk (%incf-ptr copy timeval-size)))))))
    4044
    4145(defun get-universal-time ()
Note: See TracChangeset for help on using the changeset viewer.