Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
-
29cb2f47
by Raymond Toy at 2016-12-06T21:07:21-08:00
-
f10c6b6f
by Raymond Toy at 2016-12-08T03:34:12+00:00
3 changed files:
Changes:
| ... | ... | @@ -58,7 +58,6 @@ |
| 58 | 58 |
;;;
|
| 59 | 59 |
;;; Return system time, user time and number of page faults.
|
| 60 | 60 |
;;;
|
| 61 |
#-(and sparc svr4)
|
|
| 62 | 61 |
(defun get-system-info ()
|
| 63 | 62 |
(multiple-value-bind
|
| 64 | 63 |
(err? utime stime maxrss ixrss idrss isrss minflt majflt)
|
| ... | ... | @@ -70,19 +69,6 @@ |
| 70 | 69 |
(T
|
| 71 | 70 |
(values utime stime majflt)))))
|
| 72 | 71 |
|
| 73 |
;;; GET-SYSTEM-INFO -- Interface
|
|
| 74 |
;;;
|
|
| 75 |
;;; Return system time, user time and number of page faults.
|
|
| 76 |
;;;
|
|
| 77 |
#+(and sparc svr4)
|
|
| 78 |
(defun get-system-info ()
|
|
| 79 |
(multiple-value-bind
|
|
| 80 |
(err? utime stime cutime cstime)
|
|
| 81 |
(unix:unix-times)
|
|
| 82 |
(declare (ignore err? cutime cstime))
|
|
| 83 |
;; Return times in microseconds; page fault statistics not supported.
|
|
| 84 |
(values (* utime 10000) (* stime 10000) 0)))
|
|
| 85 |
|
|
| 86 | 72 |
;;; GET-PAGE-SIZE -- Interface
|
| 87 | 73 |
;;;
|
| 88 | 74 |
;;; Return the system page size.
|
| ... | ... | @@ -64,7 +64,6 @@ |
| 64 | 64 |
|
| 65 | 65 |
;;; Get-Internal-Run-Time -- Public
|
| 66 | 66 |
;;;
|
| 67 |
#-(and sparc svr4)
|
|
| 68 | 67 |
(defun get-internal-run-time ()
|
| 69 | 68 |
_N"Return the run time in the internal time format. This is useful for
|
| 70 | 69 |
finding CPU usage."
|
| ... | ... | @@ -81,20 +80,6 @@ |
| 81 | 80 |
(truncate (+ utime-usec stime-usec)
|
| 82 | 81 |
micro-seconds-per-internal-time-unit)))))
|
| 83 | 82 |
|
| 84 |
;;; Get-Internal-Run-Time -- Public
|
|
| 85 |
;;;
|
|
| 86 |
#+(and sparc svr4)
|
|
| 87 |
(defun get-internal-run-time ()
|
|
| 88 |
_N"Return the run time in the internal time format. This is useful for
|
|
| 89 |
finding CPU usage."
|
|
| 90 |
(declare (values (unsigned-byte 32)))
|
|
| 91 |
(locally (declare (optimize (speed 3) (safety 0)))
|
|
| 92 |
(multiple-value-bind (ignore utime stime cutime cstime)
|
|
| 93 |
(unix:unix-times)
|
|
| 94 |
(declare (ignore ignore cutime cstime)
|
|
| 95 |
(type (unsigned-byte 31) utime stime))
|
|
| 96 |
(the (unsigned-byte 32) (+ utime stime)))))
|
|
| 97 |
|
|
| 98 | 83 |
|
| 99 | 84 |
;;;; Encode and Decode universal times.
|
| 100 | 85 |
|
| 1 |
;; Cross bootstrap file for cross-compiling from x86 to sparc.
|
|
| 2 |
;; Use this file with the -B option for bin/cross-build-world.sh
|
|
| 3 |
|
|
| 4 |
(export 'unix::unix-times "UNIX")
|
|
| \ No newline at end of file |