summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorJohn Harrison <John.C.Harrison@Intel.com>2018-03-06 12:43:09 +0000
committerTvrtko Ursulin <tvrtko.ursulin@intel.com>2018-04-18 15:39:40 +0100
commit7e5553b0e3758eea93944e19ded88b92cf9b6477 (patch)
tree705f8e823285d0d9d139dccef9a240eef5c19399 /scripts
parent17bbff4149b2dbf54be846a9eb937379e1ce3250 (diff)
scripts/trace.pl: Simplify 'end' & 'notify' generation
Delay the auto-generation of end/notify values until the point where everything is known. As opposed to potentially generating them multiple times with differing values (in the case of 'incomplete' entries). v2: More complete description. [Tvrtko] Signed-off-by: John Harrison <John.C.Harrison@intel.com> Cc: Tvrtko Ursulin <tvrtko.ursulin@intel.com> Reviewed-by: Tvrtko Ursulin <tvrtko.ursulin@intel.com>
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/trace.pl31
1 files changed, 18 insertions, 13 deletions
diff --git a/scripts/trace.pl b/scripts/trace.pl
index d880a733..509df6c0 100755
--- a/scripts/trace.pl
+++ b/scripts/trace.pl
@@ -467,10 +467,11 @@ while (<>) {
}
# Sanitation pass to fixup up out of order notify and context complete, and to
-# fine the largest seqno to be used for timeline sorting purposes.
+# find the largest seqno to be used for timeline sorting purposes.
my $max_seqno = 0;
foreach my $key (keys %db) {
my $gkey = global_key($db{$key}->{'ring'}, $db{$key}->{'global'});
+ my $notify = $notify{$gkey};
die unless exists $db{$key}->{'start'};
@@ -478,23 +479,21 @@ foreach my $key (keys %db) {
unless (exists $db{$key}->{'end'}) {
# Context complete not received.
- if (exists $notify{$gkey}) {
+ $db{$key}->{'no-end'} = 1;
+
+ if (defined($notify)) {
# No context complete due req merging - use notify.
- $db{$key}->{'notify'} = $notify{$gkey};
- $db{$key}->{'end'} = $db{$key}->{'notify'};
- $db{$key}->{'no-end'} = 1;
+ $db{$key}->{'notify'} = $notify;
+ $db{$key}->{'end'} = $notify;
} else {
- # No notify and no context complete - mark it.
- $db{$key}->{'no-end'} = 1;
- $db{$key}->{'end'} = $db{$key}->{'start'} + 999;
- $db{$key}->{'notify'} = $db{$key}->{'end'};
+ # No notify and no context complete - give up for now.
$db{$key}->{'incomplete'} = 1;
}
} else {
# Notify arrived after context complete.
- if (exists $db{$key}->{'no-notify'} and exists $notify{$gkey}) {
+ if (exists $db{$key}->{'no-notify'} and defined($notify)) {
delete $db{$key}->{'no-notify'};
- $db{$key}->{'notify'} = $notify{$gkey};
+ $db{$key}->{'notify'} = $notify;
}
}
}
@@ -510,6 +509,7 @@ foreach my $key (keys %db) {
my $seqno = $db{$key}->{'seqno'};
my $next_key;
my $i = 1;
+ my $end;
do {
$next_key = db_key($ring, $ctx, $seqno + $i);
@@ -518,9 +518,14 @@ foreach my $key (keys %db) {
or $i > $key_count); # ugly stop hack
if (exists $db{$next_key}) {
- $db{$key}->{'notify'} = $db{$next_key}->{'end'};
- $db{$key}->{'end'} = $db{$key}->{'notify'};
+ $end = $db{$next_key}->{'end'};
+ } else {
+ # No info at all, fake it:
+ $end = $db{$key}->{'start'} + 999;
}
+
+ $db{$key}->{'notify'} = $end;
+ $db{$key}->{'end'} = $end;
}
# GPU time accounting