33 строки
942 B
Perl
33 строки
942 B
Perl
##=== TEST.beta-compare.report - Compare llc vs llcbeta --------*- perl -*-===##
|
|
#
|
|
# This file defines a report to be generated for the beta-compare test.
|
|
#
|
|
##===----------------------------------------------------------------------===##
|
|
|
|
# Sort by name
|
|
$SortCol = 1;
|
|
$TrimRepeatedPrefix = 1;
|
|
|
|
sub SizeRatio {
|
|
my ($Cols, $Col) = @_;
|
|
my $LLC = $Cols->[$Col-2];
|
|
my $BETA = $Cols->[$Col-1];
|
|
return "n/a" if ($LLC eq "*" or $BETA eq "*");
|
|
return sprintf("%2.3f", $LLC/$BETA);
|
|
}
|
|
|
|
|
|
# These are the columns for the report. The first entry is the header for the
|
|
# column, the second is the regex to use to match the value. Empty list create
|
|
# seperators, and closures may be put in for custom processing.
|
|
(
|
|
# Name
|
|
["Name:" , '\'([^\']+)\' Program'],
|
|
[],
|
|
# Code Size
|
|
["#Insts", 'LLC: *([0-9]+).*Number of machine instrs printed'],
|
|
["Beta", 'LLCBETA: *([0-9]+).*Number of machine instrs printed'],
|
|
["LLC/BETA" , \&SizeRatio],
|
|
[]
|
|
);
|