Changeset 8228

Timestamp:

Jan 19, 2008, 4:02:39 PM (17 years ago)

Author:

Gary Byers

Message:

Fix typo in #-DARWIN sample_paging_info.
Collect gc paging info on ppc, too.

Location:

branches/1.1/ccl/lisp-kernel

Files:

• pmcl-kernel.c (modified) (1 diff)
• ppc-gc.c (modified) (4 diffs)

branches/1.1/ccl/lisp-kernel/pmcl-kernel.c

@@ -1909 +1909 @@
 #ifndef WINDOWS
 void
-sample_paging_info(struct rusage *usage)
-{
-  getrusage(RUSAGE_SELF, rusage);
+sample_paging_info(paging_info *usage)
+{
+  getrusage(RUSAGE_SELF, usage);
 }
 

branches/1.1/ccl/lisp-kernel/ppc-gc.c

@@ -2457 +2457 @@
   area *a = active_dynamic_area, *to = NULL, *from = NULL, *note = NULL;
   unsigned timeidx = 1;
+  paging_info paging_info_start;
   xframe_list *x;
   LispObj
@@ -2511 +2512 @@
     char buf[16];
 
+    sample_paging_info(&paging_info_start);
     comma_output_decimal(buf,16,area_dnode(oldfree,a->low) << dnode_shift);
     if (GCephemeral_low) {
@@ -2826 +2828 @@
       if (GCverbose) {
         char buf[16];
+        paging_info paging_info_stop;
+
+        sample_paging_info(&paging_info_stop);
         if (justfreed <= heap_segment_size) {
           justfreed = 0;
@@ -2837 +2842 @@
                   elapsed.tv_sec, elapsed.tv_usec);
         }
+        report_paging_info_delta(stderr, &paging_info_start, &paging_info_stop);
       }
     }