From 77d953aa25ad6b0ba01489283cfa58ee86a2da03 Mon Sep 17 00:00:00 2001 From: Tvrtko Ursulin Date: Wed, 17 May 2017 12:34:56 +0100 Subject: media-bench: Store the trace file for later Makes sense to keep it around if a different type of analysis needs to be done later. Signed-off-by: Tvrtko Ursulin --- scripts/media-bench.pl | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'scripts/media-bench.pl') diff --git a/scripts/media-bench.pl b/scripts/media-bench.pl index 78f44522..ea0e0ed8 100755 --- a/scripts/media-bench.pl +++ b/scripts/media-bench.pl @@ -156,7 +156,7 @@ sub trace_workload my $min_batches = 16 + $r * $c / 2; my @skip_engine; my %engines; - my $cmd; + my ($cmd, $file); unshift @args, $b unless $b eq ''; unshift @args, '-q'; @@ -180,11 +180,17 @@ sub trace_workload } close CMD; - $cmd = "perf script | $tracepl --html -x ctxsave -s --squash-ctx-id "; - $cmd .= join ' ', map("-i $_", @skip_engine); $wrk =~ s/ /_/g; $b =~ s/[ <>]/_/g; - $cmd .= " > ${wrk}_${b}_-r${r}_-c${c}.html"; + $file = "${wrk}_${b}_-r${r}_-c${c}"; + + $cmd = "perf script > ${file}.trace"; + show_cmd($cmd); + system($cmd); + + $cmd = "perf script | $tracepl --html -x ctxsave -s --squash-ctx-id "; + $cmd .= join ' ', map("-i $_", @skip_engine); + $cmd .= " > ${file}.html"; show_cmd($cmd); system($cmd); -- cgit v1.2.3