(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.
;;; Try to compile the closure arg to %TIME if it is interpreted.
(defun massage-time-function (fun)
- (cond
- ((sb!eval:interpreted-function-p fun)
- (multiple-value-bind (def env-p) (function-lambda-expression fun)
- (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.")
- fun)
- (t
- (compile nil fun)))))
- (t fun)))
+ ;; This is just a placeholder as of the switch from IR1 interpreter
+ ;; to bytecode interpreter. Someday it might make sense to complain
+ ;; about bytecoded FUN and/or compile it to native code, so I've
+ ;; left the placeholder in place, but as of sbcl-0.7.0 it's not
+ ;; obvious how to do the right thing easily, so I haven't actually
+ ;; done it. -- WHN
+ 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))))