[igt-dev] [PATCH i-g-t 06/11] trace.pl: Move sortQueue near to the user
Tvrtko Ursulin
tursulin at ursulin.net
Tue Jan 30 10:11:13 UTC 2018
From: Tvrtko Ursulin <tvrtko.ursulin at intel.com>
Just to clear up some space for incoming code refactoring.
Signed-off-by: Tvrtko Ursulin <tvrtko.ursulin at intel.com>
Cc: John Harrison <John.C.Harrison at intel.com>
---
scripts/trace.pl | 22 +++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/scripts/trace.pl b/scripts/trace.pl
index 958c83c82b8b..f30fcac878c1 100755
--- a/scripts/trace.pl
+++ b/scripts/trace.pl
@@ -527,17 +527,6 @@ sub sortStart {
return $val;
}
-sub sortQueue {
- my $as = $db{$a}->{'queue'};
- my $bs = $db{$b}->{'queue'};
- my $val;
-
- $val = $as <=> $bs;
- $val = $a cmp $b if $val == 0;
-
- return $val;
-}
-
my @sorted_keys = sort sortStart keys %db;
my $re_sort = 0;
@@ -841,6 +830,17 @@ print <<ENDHTML;
var items = new vis.DataSet([
ENDHTML
+sub sortQueue {
+ my $as = $db{$a}->{'queue'};
+ my $bs = $db{$b}->{'queue'};
+ my $val;
+
+ $val = $as <=> $bs;
+ $val = $a cmp $b if $val == 0;
+
+ return $val;
+}
+
my $i = 0;
foreach my $key (sort sortQueue keys %db) {
my ($name, $ctx, $seqno) = ($db{$key}->{'name'}, $db{$key}->{'ctx'}, $db{$key}->{'seqno'});
--
2.14.1
More information about the igt-dev
mailing list