blob: 20810fab9a0964f15e8ebf60272d4f15cdaed7d6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
#!/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 $LLIPath = `which lli`;
$LLIPath = `dirname $LLIPath`;
chomp $LLIPath;
my $LibProfPath = $LLIPath . "/../../lib/Debug/libprofile_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";
|
