Changeset 13581 for trunk/source/lib/misc.lisp

Timestamp:

Apr 6, 2010, 12:54:11 AM (11 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:

• trunk/source/lib/misc.lisp (modified) (1 diff)

trunk/source/lib/misc.lisp

@@ -422 +422 @@
          (info #>task_events_info))
     (#_task_info (#_mach_task_self) #$TASK_EVENTS_INFO info count)
-    (values (pref info #>task_events_info.cow_faults)
-            (pref info #>task_events_info.faults)
-            (pref info #>task_events_info.pageins)))
+    (let* ((faults (pref info #>task_events_info.faults))
+           (pageins (pref info #>task_events_info.pageins)))
+      (values (- faults pageins)
+              pageins
+              0)))
   #+windows-target
   ;; Um, don't know how to determine this, or anything like it.