Changeset 8228


Ignore:
Timestamp:
Jan 20, 2008, 12:02:39 AM (12 years ago)
Author:
gb
Message:

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

Location:
branches/1.1/ccl/lisp-kernel
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/1.1/ccl/lisp-kernel/pmcl-kernel.c

    r8227 r8228  
    19091909#ifndef WINDOWS
    19101910void
    1911 sample_paging_info(struct rusage *usage)
    1912 {
    1913   getrusage(RUSAGE_SELF, rusage);
     1911sample_paging_info(paging_info *usage)
     1912{
     1913  getrusage(RUSAGE_SELF, usage);
    19141914}
    19151915
  • branches/1.1/ccl/lisp-kernel/ppc-gc.c

    r7824 r8228  
    24572457  area *a = active_dynamic_area, *to = NULL, *from = NULL, *note = NULL;
    24582458  unsigned timeidx = 1;
     2459  paging_info paging_info_start;
    24592460  xframe_list *x;
    24602461  LispObj
     
    25112512    char buf[16];
    25122513
     2514    sample_paging_info(&paging_info_start);
    25132515    comma_output_decimal(buf,16,area_dnode(oldfree,a->low) << dnode_shift);
    25142516    if (GCephemeral_low) {
     
    28262828      if (GCverbose) {
    28272829        char buf[16];
     2830        paging_info paging_info_stop;
     2831
     2832        sample_paging_info(&paging_info_stop);
    28282833        if (justfreed <= heap_segment_size) {
    28292834          justfreed = 0;
     
    28372842                  elapsed.tv_sec, elapsed.tv_usec);
    28382843        }
     2844        report_paging_info_delta(stderr, &paging_info_start, &paging_info_stop);
    28392845      }
    28402846    }
Note: See TracChangeset for help on using the changeset viewer.