Changeset 13581


Ignore:
Timestamp:
Apr 6, 2010, 12:54:11 AM (10 years ago)
Author:
gb
Message:

In the #+darwin-target version of %page-fault-info, try to do what
the 10.6 version of #_getrusage (which actually bothers to do something)
does.

File:
1 edited

Legend:

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

    r13533 r13581  
    422422         (info #>task_events_info))
    423423    (#_task_info (#_mach_task_self) #$TASK_EVENTS_INFO info count)
    424     (values (pref info #>task_events_info.cow_faults)
    425             (pref info #>task_events_info.faults)
    426             (pref info #>task_events_info.pageins)))
     424    (let* ((faults (pref info #>task_events_info.faults))
     425           (pageins (pref info #>task_events_info.pageins)))
     426      (values (- faults pageins)
     427              pageins
     428              0)))
    427429  #+windows-target
    428430  ;; Um, don't know how to determine this, or anything like it.
Note: See TracChangeset for help on using the changeset viewer.