diff --git a/src/code/sunos-os.lisp b/src/code/sunos-os.lisp index 4971a82f513ab6fe239e18e99b76163d62fc63f7..517c38be8f6b0677880307b6a395a669b0c8f1f9 100644 --- a/src/code/sunos-os.lisp +++ b/src/code/sunos-os.lisp @@ -58,7 +58,6 @@ ;;; ;;; Return system time, user time and number of page faults. ;;; -#-(and sparc svr4) (defun get-system-info () (multiple-value-bind (err? utime stime maxrss ixrss idrss isrss minflt majflt) @@ -70,19 +69,6 @@ (T (values utime stime majflt))))) -;;; GET-SYSTEM-INFO -- Interface -;;; -;;; Return system time, user time and number of page faults. -;;; -#+(and sparc svr4) -(defun get-system-info () - (multiple-value-bind - (err? utime stime cutime cstime) - (unix:unix-times) - (declare (ignore err? cutime cstime)) - ;; Return times in microseconds; page fault statistics not supported. - (values (* utime 10000) (* stime 10000) 0))) - ;;; GET-PAGE-SIZE -- Interface ;;; ;;; Return the system page size. diff --git a/src/code/time.lisp b/src/code/time.lisp index bf853a2b6a4d6cebb2e541931797a7346a6f36ea..8558ebe0aacff2c3caca0398bd0dc2b7a2c9a747 100644 --- a/src/code/time.lisp +++ b/src/code/time.lisp @@ -64,7 +64,6 @@ ;;; Get-Internal-Run-Time -- Public ;;; -#-(and sparc svr4) (defun get-internal-run-time () _N"Return the run time in the internal time format. This is useful for finding CPU usage." @@ -81,20 +80,6 @@ (truncate (+ utime-usec stime-usec) micro-seconds-per-internal-time-unit))))) -;;; Get-Internal-Run-Time -- Public -;;; -#+(and sparc svr4) -(defun get-internal-run-time () - _N"Return the run time in the internal time format. This is useful for - finding CPU usage." - (declare (values (unsigned-byte 32))) - (locally (declare (optimize (speed 3) (safety 0))) - (multiple-value-bind (ignore utime stime cutime cstime) - (unix:unix-times) - (declare (ignore ignore cutime cstime) - (type (unsigned-byte 31) utime stime)) - (the (unsigned-byte 32) (+ utime stime))))) - ;;;; Encode and Decode universal times. diff --git a/src/tools/cross-scripts/cross-x86-sparc-bootstrap.lisp b/src/tools/cross-scripts/cross-x86-sparc-bootstrap.lisp deleted file mode 100644 index e7d17c3c23c65bb4159c8c8952d2673702a0cff1..0000000000000000000000000000000000000000 --- a/src/tools/cross-scripts/cross-x86-sparc-bootstrap.lisp +++ /dev/null @@ -1,4 +0,0 @@ -;; Cross bootstrap file for cross-compiling from x86 to sparc. -;; Use this file with the -B option for bin/cross-build-world.sh - -(export 'unix::unix-times "UNIX") \ No newline at end of file