Changeset 15561


Ignore:
Timestamp:
Jan 5, 2013, 3:53:35 AM (6 years ago)
Author:
rme
Message:

In %page-fault-info, have Darwin systems use #_getrusage instead
of Mach calls.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/misc.lisp

    r15396 r15561  
    417417
    418418(defun %page-fault-info ()
    419   #-(or darwin-target windows-target)
     419  #-windows-target
    420420  (rlet ((usage :rusage))
    421421    (%%rusage usage)
     
    423423            (pref usage :rusage.ru_majflt)
    424424            (pref usage :rusage.ru_nswap)))
    425   #+darwin-target
    426   (rlet ((count #>mach_msg_type_number_t #$TASK_EVENTS_INFO_COUNT)
    427          (info #>task_events_info))
    428     (#_task_info (#_mach_task_self) #$TASK_EVENTS_INFO info count)
    429     (let* ((faults (pref info #>task_events_info.faults))
    430            (pageins (pref info #>task_events_info.pageins)))
    431       (values (- faults pageins)
    432               pageins
    433               0)))
    434425  #+windows-target
    435426  ;; Um, don't know how to determine this, or anything like it.
Note: See TracChangeset for help on using the changeset viewer.