# Syntax: profile.pl [OPTIONS] bytecodefile <arguments>
#
# OPTIONS may include one or more of the following:
-# -block - Enable basic block level profiling
+# -block - Enable basicblock profiling
+# -edge - Enable edge profiling
+# -function - Enable function profiling
+# -o <filename> - Emit profiling information to the specified file, instead
+# of llvmprof.out
#
+# Any unrecognized options are passed into the invocation of llvm-prof
+#
+
+my $ProfilePass = "-insert-edge-profiling";
-my $ProfilePass = "-insert-function-profiling";
+my $LLVMProfOpts = "";
+my $ProgramOpts = "";
+my $ProfileFile = "";
# Parse arguments...
while (scalar(@ARGV) and ($_ = $ARGV[0], /^[-+]/)) {
last if /^--$/; # Stop processing arguments on --
# List command line options here...
- if (/^-block$/) { $ProfilePass = "-insert-block-profiling"; next; }
+ if (/^-?-block$/) { $ProfilePass = "-insert-block-profiling"; next; }
+ if (/^-?-edge$/) { $ProfilePass = "-insert-edge-profiling"; next; }
+ if (/^-?-function$/) { $ProfilePass = "-insert-function-profiling"; next; }
+ if (/^-?-o$/) { # Read -o filename...
+ die "-o option requires a filename argument!" if (!scalar(@ARGV));
+ $ProgramOpts .= " -llvmprof-output $ARGV[0]";
+ $ProfileFile = $ARGV[0];
+ shift;
+ next;
+ }
+ if (/^-?-help$/) {
+ print "OVERVIEW: profile.pl - Instrumentation and profile printer.\n\n";
+ print "USAGE: profile.pl [options] program.bc <program args>\n\n";
+ print "OPTIONS:\n";
+ print " -block - Enable basicblock profiling\n";
+ print " -edge - Enable edge profiling\n";
+ print " -function - Enable function profiling\n";
+ print " -o <file> - Specify an output file other than llvm-prof.out.\n";
+ print " -help - Print this usage information\n";
+ print "\nAll other options are passed into llvm-prof.\n";
+ exit 1;
+ }
- print "Unknown option: $_ : ignoring!\n";
+ # Otherwise, pass the option on to llvm-prof
+ $LLVMProfOpts .= " " . $_;
}
die "Must specify LLVM bytecode file as first argument!" if (@ARGV == 0);
shift @ARGV;
-my $LLIPath = `which lli`;
-$LLIPath = `dirname $LLIPath`;
-chomp $LLIPath;
-
-my $LibProfPath = $LLIPath . "/../../lib/Debug/libprofile_rt.so";
+my $libdir = `llvm-config --libdir`;
+chomp $libdir;
-system "opt $ProfilePass < $BytecodeFile | lli -fake-argv0 '$BytecodeFile'" .
- " -load $LibProfPath - " . (join ' ', @ARGV);
+my $LibProfPath = $libdir . "/profile_rt.so";
-system "llvm-prof $BytecodeFile";
+system "opt -q -f $ProfilePass $BytecodeFile -o $BytecodeFile.inst";
+system "lli -fake-argv0 '$BytecodeFile' -load $LibProfPath " .
+ "$BytecodeFile.inst $ProgramOpts " . (join ' ', @ARGV);
+system "rm $BytecodeFile.inst";
+system "llvm-prof $LLVMProfOpts $BytecodeFile $ProfileFile";