Commit 370933fa authored by Philip Carns's avatar Philip Carns

Count freads and frwrites in read and write counts for

darshan-job-summary.pl, fixes #105


git-svn-id: https://svn.mcs.anl.gov/repos/darshan/trunk@696 3b7491f3-a168-0410-bf4b-c445ed680a29
parent d1d284e0
...@@ -2,10 +2,12 @@ ...@@ -2,10 +2,12 @@
Darshan Release Change Log Darshan Release Change Log
-------------------------- --------------------------
darshan-2.2.6-pre1 darshan-2.2.6-pre2
============= =============
* Bug fix: make sure to honor any user-specified hints passed in at runtime * Bug fixes:
via the DARSHAN_LOGHINTS env variable. - make sure to honor any user-specified hints passed in at runtime
via the DARSHAN_LOGHINTS env variable.
- include fread and fwrite in darshan-job-summary.pl read and write counts
* Add instrumentation of startup time, enabled via DARSHAN_INTERNAL_TIMING * Add instrumentation of startup time, enabled via DARSHAN_INTERNAL_TIMING
environment variable environment variable
* Rename cp-shutdown-bench test utility to darshan-shutdown-bench and enable * Rename cp-shutdown-bench test utility to darshan-shutdown-bench and enable
......
...@@ -162,7 +162,7 @@ while ($line = <TRACE>) { ...@@ -162,7 +162,7 @@ while ($line = <TRACE>) {
$summary{$fields[2]} += $fields[3]; $summary{$fields[2]} += $fields[3];
# record per-process POSIX read count # record per-process POSIX read count
if ($fields[2] eq "CP_POSIX_READS") { if ($fields[2] eq "CP_POSIX_READS" || $fields[2] eq "CP_POSIX_FREADS") {
if ($fields[0] == -1) { if ($fields[0] == -1) {
$procreads[$nprocs] += $fields[3]; $procreads[$nprocs] += $fields[3];
} }
...@@ -172,7 +172,7 @@ while ($line = <TRACE>) { ...@@ -172,7 +172,7 @@ while ($line = <TRACE>) {
} }
# record per-proces POSIX write count # record per-proces POSIX write count
if ($fields[2] eq "CP_POSIX_WRITES") { if ($fields[2] eq "CP_POSIX_WRITES" || $fields[2] eq "CP_POSIX_FWRITES") {
if ($fields[0] == -1) { if ($fields[0] == -1) {
$procwrites[$nprocs] += $fields[3]; $procwrites[$nprocs] += $fields[3];
} }
...@@ -321,9 +321,9 @@ print COUNTS "# P=POSIX, MI=MPI-IO indep., MC=MPI-IO coll., R=read, W=write\n"; ...@@ -321,9 +321,9 @@ print COUNTS "# P=POSIX, MI=MPI-IO indep., MC=MPI-IO coll., R=read, W=write\n";
print COUNTS "# PR, MIR, MCR, PW, MIW, MCW, Popen, Pseek, Pstat\n"; print COUNTS "# PR, MIR, MCR, PW, MIW, MCW, Popen, Pseek, Pstat\n";
my $total_posix_opens = $summary{CP_POSIX_OPENS} + $summary{CP_POSIX_FOPENS}; my $total_posix_opens = $summary{CP_POSIX_OPENS} + $summary{CP_POSIX_FOPENS};
my $total_syncs = $summary{CP_POSIX_FSYNCS} + $summary{CP_POSIX_FDSYNCS}; my $total_syncs = $summary{CP_POSIX_FSYNCS} + $summary{CP_POSIX_FDSYNCS};
print COUNTS "Read, ", $summary{CP_POSIX_READS}, ", ", print COUNTS "Read, ", $summary{CP_POSIX_READS} + $summary{CP_POSIX_FREADS}, ", ",
$summary{CP_INDEP_READS}, ", ", $summary{CP_COLL_READS}, "\n", $summary{CP_INDEP_READS}, ", ", $summary{CP_COLL_READS}, "\n",
"Write, ", $summary{CP_POSIX_WRITES}, ", ", "Write, ", $summary{CP_POSIX_WRITES} + $summary{CP_POSIX_FWRITES}, ", ",
$summary{CP_INDEP_WRITES}, ", ", $summary{CP_COLL_WRITES}, "\n", $summary{CP_INDEP_WRITES}, ", ", $summary{CP_COLL_WRITES}, "\n",
"Open, ", $total_posix_opens, ", ", $summary{CP_INDEP_OPENS},", ", "Open, ", $total_posix_opens, ", ", $summary{CP_INDEP_OPENS},", ",
$summary{CP_COLL_OPENS}, "\n", $summary{CP_COLL_OPENS}, "\n",
...@@ -361,16 +361,17 @@ close HIST; ...@@ -361,16 +361,17 @@ close HIST;
# sequential and consecutive accesses # sequential and consecutive accesses
open (PATTERN, ">$tmp_dir/pattern.dat") || die("error opening output file: $!\n"); open (PATTERN, ">$tmp_dir/pattern.dat") || die("error opening output file: $!\n");
print PATTERN "# op total sequential consecutive\n"; print PATTERN "# op total sequential consecutive\n";
print PATTERN "Read, ", $summary{CP_POSIX_READS}, ", ", print PATTERN "Read, ", $summary{CP_POSIX_READS} + $summary{CP_POSIX_FREADS}, ", ",
$summary{CP_SEQ_READS}, ", ", $summary{CP_CONSEC_READS}, "\n"; $summary{CP_SEQ_READS}, ", ", $summary{CP_CONSEC_READS}, "\n";
print PATTERN "Write, ", $summary{CP_POSIX_WRITES}, ", ", print PATTERN "Write, ", $summary{CP_POSIX_WRITES} + $summary{CP_POSIX_FWRITES}, ", ",
$summary{CP_SEQ_WRITES}, ", ", $summary{CP_CONSEC_WRITES}, "\n"; $summary{CP_SEQ_WRITES}, ", ", $summary{CP_CONSEC_WRITES}, "\n";
close PATTERN; close PATTERN;
# aligned I/O # aligned I/O
open (ALIGN, ">$tmp_dir/align.dat") || die("error opening output file: $!\n"); open (ALIGN, ">$tmp_dir/align.dat") || die("error opening output file: $!\n");
print ALIGN "# total unaligned_mem unaligned_file align_mem align_file\n"; print ALIGN "# total unaligned_mem unaligned_file align_mem align_file\n";
print ALIGN $summary{CP_POSIX_READS} + $summary{CP_POSIX_WRITES}, ", ", print ALIGN $summary{CP_POSIX_READS} + $summary{CP_POSIX_WRITES} + $summary{CP_POSIX_FREADS} + $summary{CP_POSIX_FWRITES}
, ", ",
$summary{CP_MEM_NOT_ALIGNED}, ", ", $summary{CP_FILE_NOT_ALIGNED}, "\n"; $summary{CP_MEM_NOT_ALIGNED}, ", ", $summary{CP_FILE_NOT_ALIGNED}, "\n";
close ALIGN; close ALIGN;
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment