diff options
Diffstat (limited to 'contrib/llvm/utils/profile.pl')
-rwxr-xr-x | contrib/llvm/utils/profile.pl | 74 |
1 files changed, 0 insertions, 74 deletions
diff --git a/contrib/llvm/utils/profile.pl b/contrib/llvm/utils/profile.pl deleted file mode 100755 index f9950f9..0000000 --- a/contrib/llvm/utils/profile.pl +++ /dev/null @@ -1,74 +0,0 @@ -#!/usr/bin/perl -w -# -# Program: profile.pl -# -# Synopsis: Insert instrumentation code into a program, run it with the JIT, -# then print out a profile report. -# -# Syntax: profile.pl [OPTIONS] bytecodefile <arguments> -# -# OPTIONS may include one or more of the following: -# -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 $LLVMProfOpts = ""; -my $ProgramOpts = ""; -my $ProfileFile = ""; - -# Parse arguments... -while (scalar(@ARGV) and ($_ = $ARGV[0], /^[-+]/)) { - shift; - last if /^--$/; # Stop processing arguments on -- - - # List command line options here... - 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; - } - - # Otherwise, pass the option on to llvm-prof - $LLVMProfOpts .= " " . $_; -} - -die "Must specify LLVM bytecode file as first argument!" if (@ARGV == 0); - -my $BytecodeFile = $ARGV[0]; - -shift @ARGV; - -my $libdir = `llvm-config --libdir`; -chomp $libdir; - -my $LibProfPath = $libdir . "/profile_rt.so"; - -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"; |