diff options
author | Tvrtko Ursulin <tvrtko.ursulin@intel.com> | 2017-05-17 12:34:56 +0100 |
---|---|---|
committer | Tvrtko Ursulin <tvrtko.ursulin@intel.com> | 2017-05-17 12:37:00 +0100 |
commit | 77d953aa25ad6b0ba01489283cfa58ee86a2da03 (patch) | |
tree | c50f6f8339da533ae86d618764964f3aaf74c001 /scripts/media-bench.pl | |
parent | c2a15894eae56b02849008fafc8f6785783d12b1 (diff) |
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 <tvrtko.ursulin@intel.com>
Diffstat (limited to 'scripts/media-bench.pl')
-rwxr-xr-x | scripts/media-bench.pl | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/scripts/media-bench.pl b/scripts/media-bench.pl index 78f445220..ea0e0ed80 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 '<none>'; 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); |