/[cmucl]/src/code/time.lisp
ViewVC logotype

Diff of /src/code/time.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by ram, Fri Jul 12 19:19:10 1996 UTC revision 1.17.2.1 by pw, Tue Jun 23 11:22:34 1998 UTC
# Line 62  Line 62 
62    
63  ;;; Get-Internal-Run-Time  --  Public  ;;; Get-Internal-Run-Time  --  Public
64  ;;;  ;;;
65    #-(and sparc svr4)
66  (defun get-internal-run-time ()  (defun get-internal-run-time ()
67    "Return the run time in the internal time format.  This is useful for    "Return the run time in the internal time format.  This is useful for
68    finding CPU usage."    finding CPU usage."
# Line 78  Line 79 
79           (truncate (+ utime-usec stime-usec)           (truncate (+ utime-usec stime-usec)
80                     micro-seconds-per-internal-time-unit)))))                     micro-seconds-per-internal-time-unit)))))
81    
82    ;;; Get-Internal-Run-Time  --  Public
83    ;;;
84    #+(and sparc svr4)
85    (defun get-internal-run-time ()
86      "Return the run time in the internal time format.  This is useful for
87      finding CPU usage."
88      (declare (values (unsigned-byte 32)))
89      (locally (declare (optimize (speed 3) (safety 0)))
90        (multiple-value-bind (ignore utime stime cutime cstime)
91            (unix:unix-times)
92          (declare (ignore ignore cutime cstime)
93                   (type (unsigned-byte 31) utime stime))
94          (the (unsigned-byte 32) (+ utime stime)))))
95    
96    
97  ;;;; Encode and Decode universal times.  ;;;; Encode and Decode universal times.
98    

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.17.2.1

  ViewVC Help
Powered by ViewVC 1.1.5