projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.8.8: restore reuse-sap value after incomplete writes in FROB-OUTPUT-LATER
[sbcl.git]
/
src
/
code
/
linux-os.lisp
diff --git
a/src/code/linux-os.lisp
b/src/code/linux-os.lisp
index
7b1b5f4
..
640320e
100644
(file)
--- a/
src/code/linux-os.lisp
+++ b/
src/code/linux-os.lisp
@@
-33,7
+33,7
@@
(sb!ext:run-program "/bin/uname" `("-r")
:output stream))))))
(sb!ext:run-program "/bin/uname" `("-r")
:output stream))))))
-;;; Return system time, user time and number of page faults.
+;;; Return user time, system time, and number of page faults.
(defun get-system-info ()
(multiple-value-bind
(err? utime stime maxrss ixrss idrss isrss minflt majflt)
(defun get-system-info ()
(multiple-value-bind
(err? utime stime maxrss ixrss idrss isrss minflt majflt)
@@
-45,7
+45,4
@@
;;; Return the system page size.
(defun get-page-size ()
;;; Return the system page size.
(defun get-page-size ()
- ;; probably should call getpagesize()
- ;; FIXME: Or we could just get rid of this, since the uses of it look
- ;; disposable.
- 4096)
+ sb!c:*backend-page-size*)
\ No newline at end of file