(defun get-internal-real-time ()
#!+sb-doc
"Return the real time in the internal time format. This is useful for
- finding elapsed time. See Internal-Time-Units-Per-Second."
+ finding elapsed time. See INTERNAL-TIME-UNITS-PER-SECOND."
;; FIXME: See comment on OPTIMIZE declaration in GET-INTERNAL-RUN-TIME.
(declare (optimize (speed 3) (safety 3)))
(multiple-value-bind (ignore seconds useconds) (sb!unix:unix-gettimeofday)
(setq *internal-real-time-base-seconds* seconds)
uint)))))
-#!-(and sparc svr4)
(defun get-internal-run-time ()
#!+sb-doc
"Return the run time in the internal time format. This is useful for
;; documented anywhere and the observed behavior is to
;; sometimes return 1000000 exactly.)
(type (integer 0 1000000) utime-usec stime-usec))
- (+ (the (unsigned-byte 32)
- (* (the (unsigned-byte 32) (+ utime-sec stime-sec))
- internal-time-units-per-second))
- (truncate (+ utime-usec stime-usec)
- micro-seconds-per-internal-time-unit))))
-#!+(and sparc svr4)
-(defun get-internal-run-time ()
- #!+sb-doc
- "Return the run time in the internal time format. This is useful for
- finding CPU usage."
- (declare (values (unsigned-byte 32)))
- ;; FIXME: See comment on OPTIMIZE declaration in other
- ;; version of GET-INTERNAL-RUN-TIME.
- (declare (optimize (speed 3) (safety 3)))
- (multiple-value-bind (ignore utime stime cutime cstime)
- (sb!unix:unix-times)
- (declare (ignore ignore cutime cstime)
- (type (unsigned-byte 31) utime stime))
- (the (unsigned-byte 32) (+ utime stime))))
+ (let ((result (+ (the (unsigned-byte 32)
+ (* (the (unsigned-byte 32) (+ utime-sec stime-sec))
+ internal-time-units-per-second))
+ (floor (+ utime-usec
+ stime-usec
+ (floor micro-seconds-per-internal-time-unit 2))
+ micro-seconds-per-internal-time-unit))))
+ result)))
\f
;;;; Encode and decode universal times.
(minutes-west sb!c-call:int :out)
(daylight-savings-p sb!alien:boolean :out))
-;;; Subtract from the returned Internal-Time to get the universal time.
-;;; The offset between our time base and the Perq one is 2145 weeks and
-;;; five days.
+;;; Subtract from the returned Internal-Time to get the universal
+;;; time. The offset between our time base and the Perq one is 2145
+;;; weeks and five days.
(defconstant seconds-in-week (* 60 60 24 7))
(defconstant weeks-offset 2145)
(defconstant seconds-offset 432000)
(declare (ignore def))
(cond
(env-p
- (warn "TIME form in a non-null environment, forced to interpret.~@
- Compiling entire form will produce more accurate times.")
+ (warn "non-null environment for TIME form, forced to interpret.~@
+ Compiling the entire form will produce more accurate times.")
fun)
(t
(compile nil fun)))))
(t fun)))
-;;; Return all the files that we want time to report.
+;;; Return all the data that we want TIME to report.
(defun time-get-sys-info ()
(multiple-value-bind (user sys faults) (sb!sys:get-system-info)
(values user sys faults (get-bytes-consed))))