From: Tvrtko Ursulin <tvrtko.ursu...@intel.com>
Remove some inactive code which was only uised to support the old execlists
implementation. It is hidden behind a toggle which is not user accesible
anyway.
Signed-off-by: Tvrtko Ursulin <tvrtko.ursu...@intel.com>
Cc: John Harrison <john.c.harri...@intel.com>
---
scripts/trace.pl | 31 -------------------------------
1 file changed, 31 deletions(-)
diff --git a/scripts/trace.pl b/scripts/trace.pl
index 9b3fb6486fec..588126ad46ab 100755
--- a/scripts/trace.pl
+++ b/scripts/trace.pl
@@ -354,8 +354,6 @@ sub ts
# trace using a hash of requests and some auxilliary data structures.
my $prev_freq = 0;
my $prev_freq_ts = 0;
-my $oldkernelwa = 0;
-my ($no_queue, $no_in);
while (<>) {
my @fields;
my @tmp;
@@ -440,10 +438,6 @@ while (<>) {
$key = db_key($tp{'ring'}, $tp{'ctx'}, $tp{'seqno'});
die if exists $db{$key};
- if (not exists $queue{$key} and $oldkernelwa) {
- $no_queue++;
- next;
- }
die unless exists $queue{$key};
die unless exists $submit{$key};
@@ -467,10 +461,6 @@ while (<>) {
$tp{'ctx'} = sanitize_ctx($tp{'ctx'}, $tp{'ring'});
$key = db_key($tp{'ring'}, $tp{'ctx'}, $tp{'seqno'});
- if (not exists $db{$key} and $oldkernelwa) {
- $no_in++;
- next;
- }
die unless exists $db{$key};
die unless exists $db{$key}->{'start'};
die if exists $db{$key}->{'end'};
@@ -574,27 +564,6 @@ foreach my $key (sort {$db{$a}->{'start'} <=>
$db{$b}->{'start'}} keys %db) {
$first_ts = $db{$key}->{'queue'} if not defined $first_ts or
$db{$key}->{'queue'} < $first_ts;
$last_ts = $end if $end > $last_ts;
- # Adjust batch start with legacy execlists.
- # Port == 2 mean batch was merged udring queuing and hasn't actually
- # been submitted to the gpu until the batch with port < 2 is found.
- if ($correct_durations and $oldkernelwa and $db{$key}->{'port'} == 2) {
- my $ctx = $db{$key}->{'ctx'};
- my $seqno = $db{$key}->{'seqno'};
- my $next_key;
- my $i = 1;
-
- do {
- $next_key = db_key($ring, $ctx, $seqno + $i);
- $i++;
- } until ((exists $db{$next_key} and $db{$next_key}->{'port'} <
2) or $i > scalar(keys(%db))); # ugly stop hack
-
- if (exists $db{$next_key}) {
- $db{$key}->{'start'} = $db{$next_key}->{'start'};
- $db{$key}->{'end'} = $db{$next_key}->{'end'};
- die if $db{$key}->{'start'} > $db{$key}->{'end'};
- }
- }
-
$running{$ring} += $end - $db{$key}->{'start'} unless exists
$db{$key}->{'no-end'};
$runnable{$ring} += $db{$key}->{'execute-delay'};
$queued{$ring} += $db{$key}->{'start'} - $db{$key}->{'execute-delay'} -
$db{$key}->{'queue'};
--
2.14.1
_______________________________________________
Intel-gfx mailing list
Intel-gfx@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/intel-gfx
