|
@@ -47,7 +47,6 @@ use constant HIGH_KSWAPD_REWAKEUP => 21;
|
|
|
use constant HIGH_NR_SCANNED => 22;
|
|
|
use constant HIGH_NR_TAKEN => 23;
|
|
|
use constant HIGH_NR_RECLAIMED => 24;
|
|
|
-use constant HIGH_NR_CONTIG_DIRTY => 25;
|
|
|
|
|
|
my %perprocesspid;
|
|
|
my %perprocess;
|
|
@@ -105,7 +104,7 @@ my $regex_direct_end_default = 'nr_reclaimed=([0-9]*)';
|
|
|
my $regex_kswapd_wake_default = 'nid=([0-9]*) order=([0-9]*)';
|
|
|
my $regex_kswapd_sleep_default = 'nid=([0-9]*)';
|
|
|
my $regex_wakeup_kswapd_default = 'nid=([0-9]*) zid=([0-9]*) order=([0-9]*)';
|
|
|
-my $regex_lru_isolate_default = 'isolate_mode=([0-9]*) order=([0-9]*) nr_requested=([0-9]*) nr_scanned=([0-9]*) nr_taken=([0-9]*) contig_taken=([0-9]*) contig_dirty=([0-9]*) contig_failed=([0-9]*)';
|
|
|
+my $regex_lru_isolate_default = 'isolate_mode=([0-9]*) order=([0-9]*) nr_requested=([0-9]*) nr_scanned=([0-9]*) nr_taken=([0-9]*) file=([0-9]*)';
|
|
|
my $regex_lru_shrink_inactive_default = 'nid=([0-9]*) zid=([0-9]*) nr_scanned=([0-9]*) nr_reclaimed=([0-9]*) priority=([0-9]*) flags=([A-Z_|]*)';
|
|
|
my $regex_lru_shrink_active_default = 'lru=([A-Z_]*) nr_scanned=([0-9]*) nr_rotated=([0-9]*) priority=([0-9]*)';
|
|
|
my $regex_writepage_default = 'page=([0-9a-f]*) pfn=([0-9]*) flags=([A-Z_|]*)';
|
|
@@ -200,7 +199,7 @@ $regex_lru_isolate = generate_traceevent_regex(
|
|
|
$regex_lru_isolate_default,
|
|
|
"isolate_mode", "order",
|
|
|
"nr_requested", "nr_scanned", "nr_taken",
|
|
|
- "contig_taken", "contig_dirty", "contig_failed");
|
|
|
+ "file");
|
|
|
$regex_lru_shrink_inactive = generate_traceevent_regex(
|
|
|
"vmscan/mm_vmscan_lru_shrink_inactive",
|
|
|
$regex_lru_shrink_inactive_default,
|
|
@@ -375,7 +374,6 @@ EVENT_PROCESS:
|
|
|
}
|
|
|
my $isolate_mode = $1;
|
|
|
my $nr_scanned = $4;
|
|
|
- my $nr_contig_dirty = $7;
|
|
|
|
|
|
# To closer match vmstat scanning statistics, only count isolate_both
|
|
|
# and isolate_inactive as scanning. isolate_active is rotation
|
|
@@ -385,7 +383,6 @@ EVENT_PROCESS:
|
|
|
if ($isolate_mode != 2) {
|
|
|
$perprocesspid{$process_pid}->{HIGH_NR_SCANNED} += $nr_scanned;
|
|
|
}
|
|
|
- $perprocesspid{$process_pid}->{HIGH_NR_CONTIG_DIRTY} += $nr_contig_dirty;
|
|
|
} elsif ($tracepoint eq "mm_vmscan_lru_shrink_inactive") {
|
|
|
$details = $6;
|
|
|
if ($details !~ /$regex_lru_shrink_inactive/o) {
|
|
@@ -539,13 +536,6 @@ sub dump_stats {
|
|
|
}
|
|
|
}
|
|
|
}
|
|
|
- if ($stats{$process_pid}->{HIGH_NR_CONTIG_DIRTY}) {
|
|
|
- print " ";
|
|
|
- my $count = $stats{$process_pid}->{HIGH_NR_CONTIG_DIRTY};
|
|
|
- if ($count != 0) {
|
|
|
- print "contig-dirty=$count ";
|
|
|
- }
|
|
|
- }
|
|
|
|
|
|
print "\n";
|
|
|
}
|