From: simonmar <unknown>
Date: Thu, 24 Feb 2000 17:45:53 +0000 (+0000)
Subject: [project @ 2000-02-24 17:45:53 by simonmar]
X-Git-Tag: Approximately_9120_patches~5103
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e2aada531be3eeddbf33d75df92033a97e64216a;p=ghc-hetmet.git

[project @ 2000-02-24 17:45:53 by simonmar]
update for format changes in cacheprof.out.summary.
---

diff --git a/glafp-utils/runstdtest/runstdtest.prl b/glafp-utils/runstdtest/runstdtest.prl
index 55a8281..9aa7ac9 100644
--- a/glafp-utils/runstdtest/runstdtest.prl
+++ b/glafp-utils/runstdtest/runstdtest.prl
@@ -436,8 +436,13 @@ sub process_stats_file {
 sub process_cacheprof_files {
 
     open(STATS, "< $CacheProfStats") || die("Can't open $CacheProfStats\n");
+
+    # the format of the info in this file is:
+    #    OTHER(intrs,reads,writes,read-misses,write-misses)
+    # where read-misses and write-misses will both be zero if we're
+    # just counting instructions.
     while (<STATS>) {
-       /OTHER\(\s*([0-9]+),\s*([0-9]+),\s*([0-9]+)\)/ && do {
+       /OTHER\(\s*([0-9]+),\s*([0-9]+),\s*([0-9]+),\s*([0-9]+),\s*([0-9]+)\)/ && do {
 	   $TotInstrs = $1;
 	   $TotReads  = $2;
 	   $TotWrites = $3;