trace/postprocess/trace-vmscan-postprocess.pl

269 	my $process_pid;
280 			$process_pid = $1;
284 			$process_pid =~ /(.*)-([0-9]*)$/;
290 				$process_pid = "$process-$pid";
297 					$process_pid = guess_process_pid($pid, $statline);
307 			$perprocesspid{$process_pid}->{MM_VMSCAN_DIRECT_RECLAIM_BEGIN}++;
308 			$perprocesspid{$process_pid}->{STATE_DIRECT_BEGIN} = $timestamp;
318 			$perprocesspid{$process_pid}->{MM_VMSCAN_DIRECT_RECLAIM_BEGIN_PERORDER}[$order]++;
319 			$perprocesspid{$process_pid}->{STATE_DIRECT_ORDER} = $order;
322 			my $index = $perprocesspid{$process_pid}->{MM_VMSCAN_DIRECT_RECLAIM_END};
323 			$perprocesspid{$process_pid}->{MM_VMSCAN_DIRECT_RECLAIM_END}++;
326 			if (defined $perprocesspid{$process_pid}->{STATE_DIRECT_BEGIN}) {
328 				my $order = $perprocesspid{$process_pid}->{STATE_DIRECT_ORDER};
329 				my $latency = ($timestamp - $perprocesspid{$process_pid}->{STATE_DIRECT_BEGIN});
330 				$perprocesspid{$process_pid}->{HIGH_DIRECT_RECLAIM_LATENCY}[$index] = "$order-$latency";
342 			$perprocesspid{$process_pid}->{STATE_KSWAPD_ORDER} = $order;
343 			if (!$perprocesspid{$process_pid}->{STATE_KSWAPD_BEGIN}) {
345 				$perprocesspid{$process_pid}->{MM_VMSCAN_KSWAPD_WAKE}++;
346 				$perprocesspid{$process_pid}->{STATE_KSWAPD_BEGIN} = $timestamp;
347 				$perprocesspid{$process_pid}->{MM_VMSCAN_KSWAPD_WAKE_PERORDER}[$order]++;
349 				$perprocesspid{$process_pid}->{HIGH_KSWAPD_REWAKEUP}++;
350 				$perprocesspid{$process_pid}->{HIGH_KSWAPD_REWAKEUP_PERORDER}[$order]++;
355 			my $index = $perprocesspid{$process_pid}->{MM_VMSCAN_KSWAPD_SLEEP};
356 			$perprocesspid{$process_pid}->{MM_VMSCAN_KSWAPD_SLEEP}++;
360 			my $order = $perprocesspid{$process_pid}->{STATE_KSWAPD_ORDER};
361 			my $latency = ($timestamp - $perprocesspid{$process_pid}->{STATE_KSWAPD_BEGIN});
362 			$perprocesspid{$process_pid}->{HIGH_KSWAPD_LATENCY}[$index] = "$order-$latency";
363 			$perprocesspid{$process_pid}->{STATE_KSWAPD_BEGIN} = 0;
365 			$perprocesspid{$process_pid}->{MM_VMSCAN_WAKEUP_KSWAPD}++;
375 			$perprocesspid{$process_pid}->{MM_VMSCAN_WAKEUP_KSWAPD_PERORDER}[$order]++;
394 				$perprocesspid{$process_pid}->{HIGH_NR_SCANNED} += $nr_scanned;
396 					$perprocesspid{$process_pid}->{HIGH_NR_FILE_SCANNED} += $nr_scanned;
398 					$perprocesspid{$process_pid}->{HIGH_NR_ANON_SCANNED} += $nr_scanned;
416 			$perprocesspid{$process_pid}->{HIGH_NR_RECLAIMED} += $nr_reclaimed;
418 				$perprocesspid{$process_pid}->{HIGH_NR_FILE_RECLAIMED} += $nr_reclaimed;
420 				$perprocesspid{$process_pid}->{HIGH_NR_ANON_RECLAIMED} += $nr_reclaimed;
442 					$perprocesspid{$process_pid}->{MM_VMSCAN_WRITEPAGE_FILE_SYNC}++;
444 					$perprocesspid{$process_pid}->{MM_VMSCAN_WRITEPAGE_ANON_SYNC}++;
448 					$perprocesspid{$process_pid}->{MM_VMSCAN_WRITEPAGE_FILE_ASYNC}++;
450 					$perprocesspid{$process_pid}->{MM_VMSCAN_WRITEPAGE_ANON_ASYNC}++;
454 			$perprocesspid{$process_pid}->{EVENT_UNKNOWN}++;
468 	my $process_pid;
472 	foreach $process_pid (keys %perprocesspid) {
473 		my $len = length($process_pid);
483 	foreach $process_pid (keys %stats) {
485 		if (!$stats{$process_pid}->{HIGH_DIRECT_RECLAIM_LATENCY}[0] &&
486 				!$stats{$process_pid}->{HIGH_KSWAPD_LATENCY}[0]) {
490 		printf "%-" . $max_strlen . "s ", $process_pid if !$opt_ignorepid;
492 		while (defined $stats{$process_pid}->{HIGH_DIRECT_RECLAIM_LATENCY}[$index] ||
493 			defined $stats{$process_pid}->{HIGH_KSWAPD_LATENCY}[$index]) {
495 			if ($stats{$process_pid}->{HIGH_DIRECT_RECLAIM_LATENCY}[$index]) {
496 				printf("%s ", $stats{$process_pid}->{HIGH_DIRECT_RECLAIM_LATENCY}[$index]) if !$opt_ignorepid;
497 				my ($dummy, $latency) = split(/-/, $stats{$process_pid}->{HIGH_DIRECT_RECLAIM_LATENCY}[$index]);
500 				printf("%s ", $stats{$process_pid}->{HIGH_KSWAPD_LATENCY}[$index]) if !$opt_ignorepid;
501 				my ($dummy, $latency) = split(/-/, $stats{$process_pid}->{HIGH_KSWAPD_LATENCY}[$index]);
513 	foreach $process_pid (keys %stats) {
515 		if (!$stats{$process_pid}->{MM_VMSCAN_DIRECT_RECLAIM_BEGIN}) {
519 		$total_direct_reclaim += $stats{$process_pid}->{MM_VMSCAN_DIRECT_RECLAIM_BEGIN};
520 		$total_wakeup_kswapd += $stats{$process_pid}->{MM_VMSCAN_WAKEUP_KSWAPD};
521 		$total_direct_nr_scanned += $stats{$process_pid}->{HIGH_NR_SCANNED};
522 		$total_direct_nr_file_scanned += $stats{$process_pid}->{HIGH_NR_FILE_SCANNED};
523 		$total_direct_nr_anon_scanned += $stats{$process_pid}->{HIGH_NR_ANON_SCANNED};
524 		$total_direct_nr_reclaimed += $stats{$process_pid}->{HIGH_NR_RECLAIMED};
525 		$total_direct_nr_file_reclaimed += $stats{$process_pid}->{HIGH_NR_FILE_RECLAIMED};
526 		$total_direct_nr_anon_reclaimed += $stats{$process_pid}->{HIGH_NR_ANON_RECLAIMED};
527 		$total_direct_writepage_file_sync += $stats{$process_pid}->{MM_VMSCAN_WRITEPAGE_FILE_SYNC};
528 		$total_direct_writepage_anon_sync += $stats{$process_pid}->{MM_VMSCAN_WRITEPAGE_ANON_SYNC};
529 		$total_direct_writepage_file_async += $stats{$process_pid}->{MM_VMSCAN_WRITEPAGE_FILE_ASYNC};
531 		$total_direct_writepage_anon_async += $stats{$process_pid}->{MM_VMSCAN_WRITEPAGE_ANON_ASYNC};
535 		while (defined $stats{$process_pid}->{HIGH_DIRECT_RECLAIM_LATENCY}[$index]) {
536 			 my ($dummy, $latency) = split(/-/, $stats{$process_pid}->{HIGH_DIRECT_RECLAIM_LATENCY}[$index]);
542 			$process_pid,
543 			$stats{$process_pid}->{MM_VMSCAN_DIRECT_RECLAIM_BEGIN},
544 			$stats{$process_pid}->{MM_VMSCAN_WAKEUP_KSWAPD},
545 			$stats{$process_pid}->{HIGH_NR_SCANNED},
546 			$stats{$process_pid}->{HIGH_NR_FILE_SCANNED},
547 			$stats{$process_pid}->{HIGH_NR_ANON_SCANNED},
548 			$stats{$process_pid}->{HIGH_NR_RECLAIMED},
549 			$stats{$process_pid}->{HIGH_NR_FILE_RECLAIMED},
550 			$stats{$process_pid}->{HIGH_NR_ANON_RECLAIMED},
551 …$stats{$process_pid}->{MM_VMSCAN_WRITEPAGE_FILE_SYNC} + $stats{$process_pid}->{MM_VMSCAN_WRITEPAGE…
552 …$stats{$process_pid}->{MM_VMSCAN_WRITEPAGE_FILE_ASYNC} + $stats{$process_pid}->{MM_VMSCAN_WRITEPAG…
555 		if ($stats{$process_pid}->{MM_VMSCAN_DIRECT_RECLAIM_BEGIN}) {
558 				my $count = $stats{$process_pid}->{MM_VMSCAN_DIRECT_RECLAIM_BEGIN_PERORDER}[$order];
564 		if ($stats{$process_pid}->{MM_VMSCAN_WAKEUP_KSWAPD}) {
567 				my $count = $stats{$process_pid}->{MM_VMSCAN_WAKEUP_KSWAPD_PERORDER}[$order];
581 	foreach $process_pid (keys %stats) {
583 		if (!$stats{$process_pid}->{MM_VMSCAN_KSWAPD_WAKE}) {
587 		$total_kswapd_wake += $stats{$process_pid}->{MM_VMSCAN_KSWAPD_WAKE};
588 		$total_kswapd_nr_scanned += $stats{$process_pid}->{HIGH_NR_SCANNED};
589 		$total_kswapd_nr_file_scanned += $stats{$process_pid}->{HIGH_NR_FILE_SCANNED};
590 		$total_kswapd_nr_anon_scanned += $stats{$process_pid}->{HIGH_NR_ANON_SCANNED};
591 		$total_kswapd_nr_reclaimed += $stats{$process_pid}->{HIGH_NR_RECLAIMED};
592 		$total_kswapd_nr_file_reclaimed += $stats{$process_pid}->{HIGH_NR_FILE_RECLAIMED};
593 		$total_kswapd_nr_anon_reclaimed += $stats{$process_pid}->{HIGH_NR_ANON_RECLAIMED};
594 		$total_kswapd_writepage_file_sync += $stats{$process_pid}->{MM_VMSCAN_WRITEPAGE_FILE_SYNC};
595 		$total_kswapd_writepage_anon_sync += $stats{$process_pid}->{MM_VMSCAN_WRITEPAGE_ANON_SYNC};
596 		$total_kswapd_writepage_file_async += $stats{$process_pid}->{MM_VMSCAN_WRITEPAGE_FILE_ASYNC};
597 		$total_kswapd_writepage_anon_async += $stats{$process_pid}->{MM_VMSCAN_WRITEPAGE_ANON_ASYNC};
600 			$process_pid,
601 			$stats{$process_pid}->{MM_VMSCAN_KSWAPD_WAKE},
602 			$stats{$process_pid}->{HIGH_KSWAPD_REWAKEUP},
603 			$stats{$process_pid}->{HIGH_NR_SCANNED},
604 			$stats{$process_pid}->{HIGH_NR_FILE_SCANNED},
605 			$stats{$process_pid}->{HIGH_NR_ANON_SCANNED},
606 			$stats{$process_pid}->{HIGH_NR_RECLAIMED},
607 			$stats{$process_pid}->{HIGH_NR_FILE_RECLAIMED},
608 			$stats{$process_pid}->{HIGH_NR_ANON_RECLAIMED},
609 …$stats{$process_pid}->{MM_VMSCAN_WRITEPAGE_FILE_SYNC} + $stats{$process_pid}->{MM_VMSCAN_WRITEPAGE…
610 …$stats{$process_pid}->{MM_VMSCAN_WRITEPAGE_FILE_ASYNC} + $stats{$process_pid}->{MM_VMSCAN_WRITEPAG…
612 		if ($stats{$process_pid}->{MM_VMSCAN_KSWAPD_WAKE}) {
615 				my $count = $stats{$process_pid}->{MM_VMSCAN_KSWAPD_WAKE_PERORDER}[$order];
621 		if ($stats{$process_pid}->{HIGH_KSWAPD_REWAKEUP}) {
624 				my $count = $stats{$process_pid}->{HIGH_KSWAPD_REWAKEUP_PERORDER}[$order];
666 	my $process_pid;
670 	foreach $process_pid (keys %perprocesspid) {
671 		$process = $process_pid;
677 …$perprocess{$process}->{MM_VMSCAN_DIRECT_RECLAIM_BEGIN} += $perprocesspid{$process_pid}->{MM_VMSCA…
678 …$perprocess{$process}->{MM_VMSCAN_KSWAPD_WAKE} += $perprocesspid{$process_pid}->{MM_VMSCAN_KSWAPD_…
679 …$perprocess{$process}->{MM_VMSCAN_WAKEUP_KSWAPD} += $perprocesspid{$process_pid}->{MM_VMSCAN_WAKEU…
680 …$perprocess{$process}->{HIGH_KSWAPD_REWAKEUP} += $perprocesspid{$process_pid}->{HIGH_KSWAPD_REWAKE…
681 		$perprocess{$process}->{HIGH_NR_SCANNED} += $perprocesspid{$process_pid}->{HIGH_NR_SCANNED};
682 …$perprocess{$process}->{HIGH_NR_FILE_SCANNED} += $perprocesspid{$process_pid}->{HIGH_NR_FILE_SCANN…
683 …$perprocess{$process}->{HIGH_NR_ANON_SCANNED} += $perprocesspid{$process_pid}->{HIGH_NR_ANON_SCANN…
684 		$perprocess{$process}->{HIGH_NR_RECLAIMED} += $perprocesspid{$process_pid}->{HIGH_NR_RECLAIMED};
685 …$perprocess{$process}->{HIGH_NR_FILE_RECLAIMED} += $perprocesspid{$process_pid}->{HIGH_NR_FILE_REC…
686 …$perprocess{$process}->{HIGH_NR_ANON_RECLAIMED} += $perprocesspid{$process_pid}->{HIGH_NR_ANON_REC…
687 …$perprocess{$process}->{MM_VMSCAN_WRITEPAGE_FILE_SYNC} += $perprocesspid{$process_pid}->{MM_VMSCAN…
688 …$perprocess{$process}->{MM_VMSCAN_WRITEPAGE_ANON_SYNC} += $perprocesspid{$process_pid}->{MM_VMSCAN…
689 …$perprocess{$process}->{MM_VMSCAN_WRITEPAGE_FILE_ASYNC} += $perprocesspid{$process_pid}->{MM_VMSCA…
690 …$perprocess{$process}->{MM_VMSCAN_WRITEPAGE_ANON_ASYNC} += $perprocesspid{$process_pid}->{MM_VMSCA…
693 …->{MM_VMSCAN_DIRECT_RECLAIM_BEGIN_PERORDER}[$order] += $perprocesspid{$process_pid}->{MM_VMSCAN_DI…
694 …$perprocess{$process}->{MM_VMSCAN_WAKEUP_KSWAPD_PERORDER}[$order] += $perprocesspid{$process_pid}-…
695 …$perprocess{$process}->{MM_VMSCAN_KSWAPD_WAKE_PERORDER}[$order] += $perprocesspid{$process_pid}->{…
702 		while (defined $perprocesspid{$process_pid}->{HIGH_DIRECT_RECLAIM_LATENCY}[$rd_index]) {
703 …$perprocess{$process}->{HIGH_DIRECT_RECLAIM_LATENCY}[$wr_index] = $perprocesspid{$process_pid}->{H…
712 		while (defined $perprocesspid{$process_pid}->{HIGH_KSWAPD_LATENCY}[$rd_index]) {
713 …$perprocess{$process}->{HIGH_KSWAPD_LATENCY}[$wr_index] = $perprocesspid{$process_pid}->{HIGH_KSWA…