TEST.profile.report

##=== TEST.profile.report - Report description for profiling ---*- perl -*-===##
#
# This file defines a report to be generated for the profiling tests.
#
##===----------------------------------------------------------------------===##

# Sort by program name
$SortCol = 0;
$TrimRepeatedPrefix = 1;

my $WallTimeRE = "Time: ([0-9.]+) seconds \\([0-9.]+ wall clock";

# FormatTime - Convert a time from 1m23.45 into 83.45
sub FormatTime {
  my $Time = shift;
  if ($Time =~ m/([0-9]+)[m:]([0-9.]+)/) {
    return sprintf("%7.4f", $1*60.0+$2);
  }

  return sprintf("%7.4f", $Time);
}

(
 ["Program",  '\'([^\']+)\' Program'],
 [],
 ["Gen-CC",     'TEST-RESULT-prof-edge-gen-compile-success: (pass|fail|xfail)'],
 ["CC_Time",    'TEST-RESULT-prof-edge-gen-compile-time: user\s*([.0-9m:]+)', \&FormatTime],
 ["Edges",      'TEST-RESULT-prof-edge-gen-compile-edges-inserted: ([0-9]+)'],
 ["Exec-Time",  'TEST-RESULT-prof-edge-gen-exec-time: user\s*([.0-9m:]+)', \&FormatTime],
 [],
 ["Use-CC",     'TEST-RESULT-prof-edge-use-compile-success: (pass|fail|xfail)'],
 ["CC_Time",    'TEST-RESULT-prof-edge-use-compile-time: user\s*([.0-9m:]+)', \&FormatTime],
 ["Terms",      'TEST-RESULT-prof-edge-use-compile-terms-annotated: ([0-9]+)'],
 ["Expects",    'TEST-RESULT-prof-edge-use-compile-lower-expects: ([0-9]+)'],
 [],
 ["Vanilla",    'TEST-RESULT-vanilla-exec-success: (pass|fail|xfail)'],
 ["Exec_Time",  'TEST-RESULT-vanilla-exec-time: user\s*([.0-9m:]+)', \&FormatTime],
 [],
 ["PGO",        'TEST-RESULT-prof-edge-use-exec-success: (pass|fail|xfail)'],
 ["Exec_Time",  'TEST-RESULT-prof-edge-use-exec-time: user\s*([.0-9m:]+)', \&FormatTime],
);