TEST.beta-compare.report

   1 ##=== TEST.beta-compare.report - Compare llc vs llcbeta --------*- perl -*-===##
   2 #
   3 # This file defines a report to be generated for the beta-compare test.
   4 #
   5 ##===----------------------------------------------------------------------===##
   6
   7 # Sort by name
   8 $SortCol = 1;
   9 $TrimRepeatedPrefix = 1;
  10
  11 sub SizeRatio {
  12   my ($Cols, $Col) = @_;
  13   my $LLC = $Cols->[$Col-2];
  14   my $BETA = $Cols->[$Col-1];
  15   return "n/a" if ($LLC eq "*" or $BETA eq "*");
  16   return sprintf("%2.3f", $LLC/$BETA);
  17 }
  18
  19
  20 # These are the columns for the report.  The first entry is the header for the
  21 # column, the second is the regex to use to match the value.  Empty list create
  22 # seperators, and closures may be put in for custom processing.
  23 (
  24 # Name
  25  ["Name:" , '\'([^\']+)\' Program'],
  26  [],
  27 # Code Size
  28  ["#Insts", 'LLC: *([0-9]+).*Number of machine instrs printed'],
  29  ["Beta", 'LLCBETA: *([0-9]+).*Number of machine instrs printed'],
  30  ["LLC/BETA"  , \&SizeRatio],
  31  []
  32  );