mirror of
https://github.com/DynamoRIO/dynamorio.git
synced 2026-10-12 02:02:04 +00:00
Derek Bruening
067ac649c9
Left trailing spaces and tabs in libelftc patch files, in suite/tests/api/static.template, and in suite/tests/security-win32/except-execution.templatex (complex to remove there). SVN-Revision: 2543
285 lines
9.3 KiB
Perl
Executable File
285 lines
9.3 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# **********************************************************
|
|
# Copyright (c) 2001-2003 VMware, Inc. All rights reserved.
|
|
# **********************************************************
|
|
|
|
# Redistribution and use in source and binary forms, with or without
|
|
# modification, are permitted provided that the following conditions are met:
|
|
#
|
|
# * Redistributions of source code must retain the above copyright notice,
|
|
# this list of conditions and the following disclaimer.
|
|
#
|
|
# * Redistributions in binary form must reproduce the above copyright notice,
|
|
# this list of conditions and the following disclaimer in the documentation
|
|
# and/or other materials provided with the distribution.
|
|
#
|
|
# * Neither the name of VMware, Inc. nor the names of its contributors may be
|
|
# used to endorse or promote products derived from this software without
|
|
# specific prior written permission.
|
|
#
|
|
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
|
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
# ARE DISCLAIMED. IN NO EVENT SHALL VMWARE, INC. OR CONTRIBUTORS BE LIABLE
|
|
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
|
|
# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
|
|
# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
|
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
|
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
|
|
# DAMAGE.
|
|
|
|
### Summary
|
|
### author: Derek Bruening April 2001
|
|
###
|
|
### Produces a table summarizing info in the dynamorio log files
|
|
### in some directory tree.
|
|
|
|
$usage = "Usage: $0 [-times] [-find findcmd] [-noperfctr]\n";
|
|
|
|
@perfctrnames=("Cycles",
|
|
"Inst._Decoded",
|
|
"Inst._Retired",
|
|
"Micro-ops_Retired",
|
|
"data_mem_refs",
|
|
"DCU_misses",
|
|
"Inst._Fetches",
|
|
"IFU_misses",
|
|
"ITLB_misses",
|
|
"cycles_inst_fetch_stalled",
|
|
"cycles_inst_fetch_decode_stalled",
|
|
"L2_inst_fetches",
|
|
"L2_loads",
|
|
"L2_stores",
|
|
"branches_decoded",
|
|
"branches_retired",
|
|
"branches_mispredicted_retired",
|
|
"branches_taken_retired",
|
|
"branches_taken_mispredicted_retired",
|
|
"BTB_misses",
|
|
"Bogus_branches",
|
|
"misc_resource_stalls",
|
|
"BACLEAR_asserted",
|
|
"DCU_lines_allocated",
|
|
"L2_lines_allocated",
|
|
"prefetch_NTA_dispatched",
|
|
"prefetch_NTA_miss_all_caches"
|
|
);
|
|
$numperfctrs=scalar(@perfctrnames);
|
|
|
|
@args = @ARGV;
|
|
$times_only = 0;
|
|
$find = "find . -type f -name mainlog.\\* | grep 'dynamorio\\.'";
|
|
$noperfctr = 0;
|
|
while ($#ARGV >= 0) {
|
|
if ($ARGV[0] eq '-find') {
|
|
if ($#ARGV <= 0) { print $usage; exit; }
|
|
shift;
|
|
$find = $ARGV[0];
|
|
print "$0 @args\n\n";
|
|
} elsif ($ARGV[0] eq '-times') {
|
|
$times_only = 1;
|
|
} elsif ($ARGV[0] eq '-noperfctr') {
|
|
$noperfctr = 1;
|
|
} else {
|
|
print $usage;
|
|
exit;
|
|
}
|
|
shift;
|
|
}
|
|
|
|
unless ($times_only) {
|
|
printf("%-43s Traces / Frags Heap BB Used/Cap Trace U/Cap Minutes\n",
|
|
"Path");
|
|
if (!$noperfctr) {
|
|
$have_perfctr = `$find | head -1 | xargs grep \"^Counter 1 \"`;
|
|
$noperfctr = ($have_perfctr eq "");
|
|
}
|
|
if (!$noperfctr) {
|
|
print join "\t",@perfctrnames;
|
|
print "\n";
|
|
}
|
|
printf("%-43s -------------- ---- ------------- ------------- -------\n",
|
|
"--------------------------------------");
|
|
if (!$noperfctr) {
|
|
for (1..$numperfctrs) {print "----------- ";}
|
|
print "\n";
|
|
}
|
|
}
|
|
|
|
$perfctr_num = 0;
|
|
|
|
open(FIND, "$find |") || die "Error running $find\n";
|
|
while (<FIND>) {
|
|
$have_elapsed = 0;
|
|
$elapsed = 0;
|
|
if (!$noperfctr) {
|
|
@perfctr = (-1)x$numperfctrs;
|
|
}
|
|
chop;
|
|
$path = $_;
|
|
if ($path =~ /(.+\/)dynamorio\.([0-9]*)\/mainlog\.[0-9]*/) {
|
|
$dir = $1;
|
|
$num = $2;
|
|
$logpath = "$dir"."dynamorio."."$num";
|
|
$errs = ""; # use dynamorio log file for elapsed time
|
|
} else {
|
|
# no log files, just want total time
|
|
if (!$times_only) {
|
|
print "Error: no dynamorio log files found\n";
|
|
exit 1;
|
|
}
|
|
if (-d $path) {
|
|
$dir = "$path/";
|
|
} else {
|
|
$path =~ /(.+\/)[^\/]*$/;
|
|
$dir = $1;
|
|
}
|
|
$errs = `ls $dir*.err`;
|
|
if ($errs eq "") {
|
|
print "Error: no dynamorio log files and no .err files found\n";
|
|
next;
|
|
}
|
|
}
|
|
if ($times_only) {
|
|
print "Processing $dir\n";
|
|
}
|
|
|
|
unless ($times_only && $errs ne "") {
|
|
# read dynamorio log files
|
|
$error = 0;
|
|
$num_frags = -1;
|
|
$num_traces = -1;
|
|
$heap_used = 0;
|
|
$fcache_bb_used = 0;
|
|
$fcache_bb_cap = 0;
|
|
$fcache_trace_used = 0;
|
|
$fcache_trace_cap = 0;
|
|
# must read mainlog and all thread log files
|
|
open(LOGS, "find $logpath -name \\*log\\* |") || die "Error running $find\n";
|
|
while (<LOGS>) {
|
|
open(IN, "< $_") || die "Error: Couldn't open $path for input\n";
|
|
while (<IN>) {
|
|
chop;
|
|
$l = $_;
|
|
|
|
# skip log files for runstats
|
|
if ($l =~ /Running: runstats/) {
|
|
$runstats = 1;
|
|
} elsif ($l =~ /execve/) {
|
|
$runstats = 0;
|
|
}
|
|
|
|
if ($l =~ /^Fragments generated: ([0-9]+)/) {
|
|
$num_frags = $1;
|
|
} elsif ($l =~ /^Trace fragments generated: ([0-9]+)/) {
|
|
$num_traces = $1;
|
|
} elsif ($l =~ /(.+)cache: capacity ([0-9]+) KB, used ([0-9]+) KB/) {
|
|
$which = $1;
|
|
$used = $2;
|
|
$cap = $3;
|
|
if ($which =~ /Basic/) {
|
|
$fcache_bb_used += $used;
|
|
$fcache_bb_cap += $cap;
|
|
} else {
|
|
$fcache_trace_used += $used;
|
|
$fcache_trace_cap += $cap;
|
|
}
|
|
# } elsif ($l =~ /^Fcache space reserved: ([0-9]+) bytes/) {
|
|
# $fcache_tot = $1;
|
|
} elsif ($l =~ /Total heap used: ([0-9]+) KB/) {
|
|
$heap_used += $1;
|
|
} elsif (!$noperfctr && $l =~ /^Counter ([0-9]+) = ([0-9]+)/) {
|
|
$perfctr[$1] = $2;
|
|
if ($1 > $perfctr_num) {
|
|
$perfctr_num = $1;
|
|
}
|
|
} elsif ($l =~ /Error/) {
|
|
$error = 1;
|
|
} elsif ($l =~ /^Total running time: ([0-9]+) seconds/) {
|
|
$elapsed += $1/60.;
|
|
$have_elapsed = 1;
|
|
if ($times_only) {
|
|
print "\tTime from $path\n";
|
|
}
|
|
}
|
|
}
|
|
close(IN);
|
|
if ($num_frags == -1) {
|
|
$error = 1;
|
|
}
|
|
}
|
|
}
|
|
|
|
# skip log files for runstats
|
|
goto nextdir if ($runstats);
|
|
|
|
if (!$have_elapsed && $errs ne "") {
|
|
# get elapsed time from .err files
|
|
open(ELAP, "ls $dir*.err |") || die "Error finding $dir*.err\n";
|
|
while (<ELAP>) {
|
|
chop;
|
|
if ($times_only) {
|
|
print "\tTime from $_\n";
|
|
}
|
|
open(IN, "< $_") || die "Error: Couldn't open $_ for input\n";
|
|
while (<IN>) {
|
|
chop;
|
|
if ($_ =~ /Elapsed: ([0-9]+):([0-9]+):([0-9\.]+)/) {
|
|
$elapsed += $1*60 + $2 + $3/60.; # minutes
|
|
} elsif ($_ =~ /Timeout after ([0-9]+) seconds/) {
|
|
$elapsed += $1/60.; # minutes
|
|
}
|
|
}
|
|
close(IN);
|
|
}
|
|
close(ELAP);
|
|
$have_elapsed = 1;
|
|
}
|
|
|
|
if ($times_only) {
|
|
if ($dir =~ /-[on]o?pt-[tr].+\//) {
|
|
$dir =~ m|\./[^/]+/([^/]+)/[^/]+-([on])o?pt-([tr]).+/|;
|
|
$bmark = $1;
|
|
$opt = $2;
|
|
$dset = $3;
|
|
} else {
|
|
$dir =~ m|\./[^/]+/([^/]+)/[^/]+/|;
|
|
$bmark = $1;
|
|
# assume opt ref!
|
|
$opt = 'o';
|
|
$dset = 'r';
|
|
}
|
|
$val{$bmark,$opt,$dset} += $elapsed;
|
|
$bm{$bmark} = 1;
|
|
} else {
|
|
printf("%-43s %6d / %6d %5d %5d / %5d %5d / %5d %5.1f",
|
|
"$dir$num", $num_traces, $num_frags, $heap_used,
|
|
$fcache_bb_used, $fcache_bb_cap,
|
|
$fcache_trace_used, $fcache_trace_cap,
|
|
$elapsed);
|
|
if (!$noperfctr) {
|
|
for ($i = 1; $i < $perfctr_num; $i++) {
|
|
printf("\t%15.0f", $perfctr[$i]);
|
|
}
|
|
}
|
|
if ($error) {
|
|
print " Error";
|
|
}
|
|
print "\n";
|
|
}
|
|
nextdir:
|
|
}
|
|
close(FIND);
|
|
|
|
if ($times_only) {
|
|
print("\nBenchmark\tRef,n\tRef,o\tTest,n\tTest,o\n");
|
|
foreach $b (sort (keys %bm)) {
|
|
printf("%10s\t%6.2f\t%6.2f\t%6.2f\t%6.2f\n",$b,
|
|
$val{$b,"n","r"},$val{$b,"o","r"},
|
|
$val{$b,"n","t"},$val{$b,"o","t"});
|
|
}
|
|
}
|
|
|