[llvm-commits] CVS: reopt/test/HexFilter.pl Summarize.pl

[Brian Gaeke]

Changes in directory reopt/test:

HexFilter.pl added (r1.1)
Summarize.pl added (r1.1)

---
Log message:

More scripts that I commonly use


---
Diffs of the changes:  (+46 -0)

Index: reopt/test/HexFilter.pl
diff -c /dev/null reopt/test/HexFilter.pl:1.1
*** /dev/null	Wed Jul 21 16:03:07 2004
--- reopt/test/HexFilter.pl	Wed Jul 21 16:02:57 2004
***************
*** 0 ****
--- 1,5 ----
+ #!/usr/dcs/software/supported/bin/perl -p
+ # Make things that look like sparc addrs into underscores, so that diff won't
+ # be able to tell they're different.
+ 
+ s/1[0-9a-f]{8}/1________/g;


Index: reopt/test/Summarize.pl
diff -c /dev/null reopt/test/Summarize.pl:1.1
*** /dev/null	Wed Jul 21 16:03:07 2004
--- reopt/test/Summarize.pl	Wed Jul 21 16:02:57 2004
***************
*** 0 ****
--- 1,41 ----
+ exec perl -Sx $0 ${1+"$@"}
+ #! magically/invoked/perl
+ # Test summarizer for reoptimizer's run-tests script
+ #
+ 
+ format STDOUT_TOP =
+               CodeGen
+ Benchmark     Traces?    Pass Test? Extra info?
+ ------------- ---------- ---------- ------------------------
+ .
+ 
+ format STDOUT =
+ @<<<<<<<<<<<< @<<<<<<<<< @<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<
+ $test         $traces    $fail      $extra
+ .
+ 
+ while (<>) {
+     if (/Running Reoptimizer version of (\S+)/) {
+         $test   = $1;
+         $traces = 0;
+         $fail   = 'PASS';
+         $extra  = '';
+     }
+     elsif (/^Finished CodeGen/) {
+         ++$traces;
+     }
+     elsif (/TEST \(reopt-llc\) '(\S+)' FAILED/) {
+         $fail = 'FAIL';
+     }
+     elsif (/Finished running Reoptimizer tests for (\S+)/) {
+         die "Wrong test?" unless $test eq $1;
+         if ($traces) { $traces = "$traces traces"; }
+         else { $traces = "no traces"; }
+         write;
+     }
+     elsif (/(Segmentation Fault|Bus Error|Assertion failed|Terminated|Killed)/i) {
+         $extra = "$1";
+     }
+ }
+ 
+ exit(0);