diff options
author | Tvrtko Ursulin <tvrtko.ursulin@intel.com> | 2017-06-05 09:14:53 +0100 |
---|---|---|
committer | Tvrtko Ursulin <tvrtko.ursulin@intel.com> | 2017-06-08 09:03:06 +0100 |
commit | 8ef3b4f53bf20b5301a214e545a7648197cf2d25 (patch) | |
tree | 96da588a0c9925ec4fdf578e06e7b05cd0f1db61 /scripts/media-bench.pl | |
parent | ef74c0566ff8d57ff649cd9f7f1b74ba15488877 (diff) |
media-bench.pl: Add context balancer to the list
Signed-off-by: Tvrtko Ursulin <tvrtko.ursulin@intel.com>
Diffstat (limited to 'scripts/media-bench.pl')
-rwxr-xr-x | scripts/media-bench.pl | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/scripts/media-bench.pl b/scripts/media-bench.pl index 7d374859..477b9464 100755 --- a/scripts/media-bench.pl +++ b/scripts/media-bench.pl @@ -43,8 +43,10 @@ my $balancer; my $nop; my %opts; -my @balancers = ( 'rr', 'rand', 'qd', 'qdr', 'qdavg', 'rt', 'rtr', 'rtavg' ); -my %bal_skip_H = ( 'rr' => 1, 'rand' => 1 ); +my @balancers = ( 'rr', 'rand', 'qd', 'qdr', 'qdavg', 'rt', 'rtr', 'rtavg', + 'context' ); +my %bal_skip_H = ( 'rr' => 1, 'rand' => 1, 'context' => 1 ); +my %bal_skip_R = ( 'context' => 1 ); my @workloads = ( 'media_load_balance_17i7.wsim', @@ -403,15 +405,16 @@ foreach my $wrk (@workloads) { say " Finding saturation points for '$wrk'..."; BAL: foreach my $bal (@balancers) { - RBAL: foreach my $R ('', '-G') { + GBAL: foreach my $G ('', '-G') { foreach my $H ('', '-H') { my @xargs; my ($w, $c, $s); my $bid; if ($bal ne '') { - push @xargs, "-b $bal -R"; - push @xargs, $R if $R ne ''; + push @xargs, "-b $bal"; + push @xargs, '-R' unless exists $bal_skip_R{$bal}; + push @xargs, $G if $G ne ''; push @xargs, $H if $H ne ''; $bid = join ' ', @xargs; print " $bal balancer ('$bid'): "; @@ -437,7 +440,7 @@ foreach my $wrk (@workloads) { last BAL unless $should_b; next BAL if $bal eq ''; - next RBAL if exists $bal_skip_H{$bal}; + next GBAL if exists $bal_skip_H{$bal}; } } } |