From: Tvrtko Ursulin <tvrtko.ursu...@intel.com>

Incomplete requests (no notify, no context complete) have to be corrected
by looking at the engine timeline, and not the sorted-by-start-time view
as was previously used.

Per-engine timelines are generated on demand and cached for later use.

v2: Find end of current context on the engine timeline instead of just
    using the next request for adjusting the incomplete start time.

Signed-off-by: Tvrtko Ursulin <tvrtko.ursu...@intel.com>
Cc: John Harrison <john.c.harri...@intel.com>
---
 scripts/trace.pl | 86 ++++++++++++++++++++++++++++++++++++++++++--------------
 1 file changed, 65 insertions(+), 21 deletions(-)

diff --git a/scripts/trace.pl b/scripts/trace.pl
index ff61dea0768d..4d1da98daa0d 100755
--- a/scripts/trace.pl
+++ b/scripts/trace.pl
@@ -26,6 +26,8 @@ use strict;
 use warnings;
 use 5.010;
 
+use List::Util;
+
 my $gid = 0;
 my (%db, %queue, %submit, %notify, %rings, %ctxdb, %ringmap, %reqwait);
 my @freqs;
@@ -516,29 +518,71 @@ foreach my $key (keys %db) {
        }
 }
 
-# Fix up incompletes
 my $key_count = scalar(keys %db);
-foreach my $key (keys %db) {
-       next unless exists $db{$key}->{'incomplete'};
 
-       # End the incomplete batch at the time next one starts
-       my $ring = $db{$key}->{'ring'};
-       my $ctx = $db{$key}->{'ctx'};
-       my $seqno = $db{$key}->{'seqno'};
-       my $next_key;
-       my $i = 1;
+my %engine_timelines;
+
+sub sortEngine {
+       my $as = $db{$a}->{'global'};
+       my $bs = $db{$b}->{'global'};
+       my $val;
+
+       $val = $as <=> $bs;
+
+       die if $val == 0;
+
+       return $val;
+}
+
+sub get_engine_timeline {
+       my ($ring) = @_;
+       my @timeline;
+
+       return $engine_timelines{$ring} if exists $engine_timelines{$ring};
+
+       @timeline = grep { $db{$_}->{'ring'} == $ring } keys %db;
+       # FIXME seqno restart
+       @timeline = sort sortEngine @timeline;
+
+       $engine_timelines{$ring} = \@timeline;
+
+       return \@timeline;
+}
+
+# Fix up incompletes by ending them when the last request of a coalesced group
+# ends. Start by filtering out the incomplete requests.
+my @incompletes = sort grep { exists $db{$_}->{'incomplete'} } keys %db;
+
+foreach my $key (@incompletes) {
+       my $timeline;
+       my $last_key;
        my $end;
+       my $i;
 
-       do {
-               $next_key = db_key($ring, $ctx, $seqno + $i);
-               $i++;
-       } until ((exists $db{$next_key} and not exists 
$db{$next_key}->{'incomplete'})
-                or $i > $key_count);  # ugly stop hack
+       # Find the next request on the engine timeline.
+       $timeline = get_engine_timeline($db{$key}->{'ring'});
+       $i = List::Util::first { ${$timeline}[$_] eq $key } 0..$#{$timeline};
+
+       while ($i < $#{$timeline}) {
+               my $next;
+
+               $i = $i + 1;
+               $next = ${$timeline}[$i];
+
+               next if exists $db{$next}->{'incomplete'};
 
-       if (exists $db{$next_key}) {
-               $end = $db{$next_key}->{'end'};
+               $last_key = $next;
+               last;
+       }
+
+       if (defined $last_key) {
+               if ($db{$key}->{'ctx'} eq $db{$last_key}->{'ctx'}) {
+                       $end = $db{$last_key}->{'end'};
+               } else {
+                       $end = $db{$last_key}->{'start'};
+               }
        } else {
-               # No info at all, fake it:
+               # No next submission, fake it.
                $end = $db{$key}->{'start'} + 999;
        }
 
@@ -546,10 +590,6 @@ foreach my $key (keys %db) {
        $db{$key}->{'end'} = $end;
 }
 
-# GPU time accounting
-my (%running, %runnable, %queued, %batch_avg, %batch_total_avg, %batch_count);
-my (%submit_avg, %execute_avg, %ctxsave_avg);
-
 sub sortStart {
        my $as = $db{$a}->{'start'};
        my $bs = $db{$b}->{'start'};
@@ -597,6 +637,10 @@ foreach my $key (@sorted_keys) {
 
 @sorted_keys = sort sortStart keys %db if $re_sort;
 
+# GPU time accounting
+my (%running, %runnable, %queued, %batch_avg, %batch_total_avg, %batch_count);
+my (%submit_avg, %execute_avg, %ctxsave_avg);
+
 my $last_ts = 0;
 my $first_ts;
 my $min_ctx;
-- 
2.14.1

_______________________________________________
Intel-gfx mailing list
Intel-gfx@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/intel-gfx

Reply via email to