blob: 27bfd7190cdb71ecce8b689ba0bac87fb0b355c6 (
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
|
#!/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:
# NONE SO FAR
#
#
my $ProfilePass = "-insert-function-profiling";
# Parse arguments...
while (scalar(@ARGV) and ($_ = $ARGV[0], /^[-+]/)) {
shift;
last if /^--$/; # Stop processing arguments on --
# List command line options here...
#if (/^-enable-foo$/) { $FOO = 1; next; }
print "Unknown option: $_ : ignoring!\n";
}
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 -load $LibProfPath - " .
(join ' ', @ARGV);
system "llvm-prof $BytecodeFile";
|
