utils/profile.pl

   1 #!/usr/bin/perl -w
   2 #
   3 # Program:  profile.pl
   4 #
   5 # Synopsis: Insert instrumentation code into a program, run it with the JIT,
   6 #           then print out a profile report.
   7 #
   8 # Syntax:   profile.pl [OPTIONS] bytecodefile <arguments>
   9 #
  10 # OPTIONS may include one or more of the following:
  11 #     -block    - Enable basicblock profiling
  12 #     -edge     - Enable edge profiling
  13 #     -function - Enable function profiling
  14 #     -o <filename> - Emit profiling information to the specified file, instead
  15 #                     of llvmprof.out
  16 #
  17 # Any unrecognized options are passed into the invocation of llvm-prof
  18 #
  19
  20 my $ProfilePass = "-insert-edge-profiling";
  21
  22 my $LLVMProfOpts = "";
  23 my $ProgramOpts = "";
  24 my $ProfileFile = "";
  25
  26 # Parse arguments...
  27 while (scalar(@ARGV) and ($_ = $ARGV[0], /^[-+]/)) {
  28   shift;
  29   last if /^--$/;  # Stop processing arguments on --
  30
  31   # List command line options here...
  32   if (/^-?-block$/)    { $ProfilePass = "-insert-block-profiling"; next; }
  33   if (/^-?-edge$/)     { $ProfilePass = "-insert-edge-profiling"; next; }
  34   if (/^-?-function$/) { $ProfilePass = "-insert-function-profiling"; next; }
  35   if (/^-?-o$/) {         # Read -o filename...
  36     die "-o option requires a filename argument!" if (!scalar(@ARGV));
  37     $ProgramOpts .= " -llvmprof-output $ARGV[0]";
  38     $ProfileFile = $ARGV[0];
  39     shift;
  40     next;
  41   }
  42   if (/^-?-help$/) {
  43     print "OVERVIEW: profile.pl - Instrumentation and profile printer.\n\n";
  44     print "USAGE: profile.pl [options] program.bc <program args>\n\n";
  45     print "OPTIONS:\n";
  46     print "  -block    - Enable basicblock profiling\n";
  47     print "  -edge     - Enable edge profiling\n";
  48     print "  -function - Enable function profiling\n";
  49     print "  -o <file> - Specify an output file other than llvm-prof.out.\n";
  50     print "  -help     - Print this usage information\n";
  51     print "\nAll other options are passed into llvm-prof.\n";
  52     exit 1;
  53   }
  54
  55   # Otherwise, pass the option on to llvm-prof
  56   $LLVMProfOpts .= " " . $_;
  57 }
  58
  59 die "Must specify LLVM bytecode file as first argument!" if (@ARGV == 0);
  60
  61 my $BytecodeFile = $ARGV[0];
  62
  63 shift @ARGV;
  64
  65 my $LLIPath = `which lli`;
  66 $LLIPath = `dirname $LLIPath`;
  67 chomp $LLIPath;
  68
  69 my $LibProfPath = $LLIPath . "/../../lib/Debug/libprofile_rt.so";
  70
  71 system "opt -q -f $ProfilePass $BytecodeFile -o $BytecodeFile.inst";
  72 system "lli -fake-argv0 '$BytecodeFile' -load $LibProfPath " .
  73        "$BytecodeFile.inst $ProgramOpts " . (join ' ', @ARGV);
  74 system "rm $BytecodeFile.inst";
  75 system "llvm-prof $LLVMProfOpts $BytecodeFile $ProfileFile";