mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2025-01-12 17:32:19 +00:00
0faadf2e58
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@9596 91177308-0d34-0410-b5e6-96231b3b80d8
48 lines
1.2 KiB
Perl
Executable File
48 lines
1.2 KiB
Perl
Executable File
#!/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 basic block level profiling
|
|
#
|
|
# Any unrecognized options are passed into the invocation of llvm-prof
|
|
#
|
|
|
|
my $ProfilePass = "-insert-function-profiling";
|
|
|
|
my $LLVMProfOpts = "";
|
|
|
|
# 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; }
|
|
|
|
# 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 $LLIPath = `which lli`;
|
|
$LLIPath = `dirname $LLIPath`;
|
|
chomp $LLIPath;
|
|
|
|
my $LibProfPath = $LLIPath . "/../../lib/Debug/libprofile_rt.so";
|
|
|
|
system "opt $ProfilePass < $BytecodeFile | lli -fake-argv0 '$BytecodeFile'" .
|
|
" -load $LibProfPath - " . (join ' ', @ARGV);
|
|
|
|
system "llvm-prof $LLVMProfOpts $BytecodeFile";
|