9 my($thisname)=m{^.(?:Running (?:.*/)?|[A-Z]+: )(gdb[.]\w+/\S+[.]exp)(?: \Q...\E|: .*)$};
11 if (!$thisname || ($last && $thisname eq $last->{"name"})) {
12 #if (!$thisname) { print "X: !thisname\n"; } else { print "X: \"".$last->{"name"}."\" -> \"$thisname\"\n"; }
15 #print "X: new \"$thisname\"\n";
16 $last=$this={"name"=>$thisname,"+Running"=>(/^[+]/||0)};
18 next if /^@@ .* @@\n$/;
19 if ($this->{"print"}) {
31 $this->{"buffer"}.=$_;
33 next if /^[+]Running / && $thisname;
35 next if /^[+]KPASS: /;
40 next if /^[+]FAIL: / && $this->{"+Running"};
41 next if /^[+]KFAIL: / && $this->{"+Running"};
42 next if /^[+]XFAIL: / && $this->{"+Running"};
43 next if /^[+]UNTESTED: / && $this->{"+Running"};
44 next if /^[+]gdb compile failed, / && $this->{"+Running"};
45 next if /^[+].*: Error: bad register name `%.*'\n$/ && $this->{"+Running"};
46 next if /^[+].*: Error: `.*' is only supported in 64-bit mode\n$/ && $this->{"+Running"};
49 print $lastfile||""; $lastfile=undef();
50 print "\n#".$this->{"name"}."\n";
51 print $this->{"buffer"}; $this->{"buffer"}=undef();