diff options
Diffstat (limited to 'utils/profile.pl')
-rwxr-xr-x | utils/profile.pl | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/utils/profile.pl b/utils/profile.pl index 27bfd71..c91ac1a 100755 --- a/utils/profile.pl +++ b/utils/profile.pl @@ -8,10 +8,8 @@ # Syntax: profile.pl [OPTIONS] bytecodefile <arguments> # # OPTIONS may include one or more of the following: -# NONE SO FAR +# -block - Enable basic block level profiling # -# - my $ProfilePass = "-insert-function-profiling"; @@ -21,7 +19,7 @@ while (scalar(@ARGV) and ($_ = $ARGV[0], /^[-+]/)) { last if /^--$/; # Stop processing arguments on -- # List command line options here... - #if (/^-enable-foo$/) { $FOO = 1; next; } + if (/^-block$/) { $ProfilePass = "-insert-block-profiling"; next; } print "Unknown option: $_ : ignoring!\n"; } @@ -38,7 +36,7 @@ chomp $LLIPath; my $LibProfPath = $LLIPath . "/../../lib/Debug/libprofile_rt.so"; -system "opt $ProfilePass < $BytecodeFile | lli -load $LibProfPath - " . - (join ' ', @ARGV); +system "opt $ProfilePass < $BytecodeFile | lli -fake-argv0 '$BytecodeFile'" . + " -load $LibProfPath - " . (join ' ', @ARGV); system "llvm-prof $BytecodeFile"; |