17 qr{^./usr/bin/ld: .* architecture of input file .* is incompatible with .* output\n$}o,
19 #qr{^.UNSUPPORTED: }o,
24 qr{^.[^:]*[.]ad[sb]:[0-9]}o,
25 qr{^.gdb compile failed, }o,
26 qr{^.gdb compile failed, /usr/bin/ld: /tmp/[a-zA-Z0-9]*.o: relocation R_X86_64_32S against `a local symbol. can not be used when making a shared object; recompile with -fPIC\n$}o,
27 qr{^./tmp/[a-zA-Z0-9]*.o: could not read symbols: Bad value\n$}o,
28 qr{^./tmp/[a-zA-Z0-9]*.s:\d+: Error: unrecognized symbol type "gnu_indirect_function"\n$}o,
29 qr{^./tmp/[a-zA-Z0-9]*.o: In function `\S+':\n$}o,
30 qr{^./tmp/[a-zA-Z0-9]*.o:.*: undefined reference to `.*'\n$}o,
31 qr{^./tmp/[a-zA-Z0-9]*.s:\d+: Error: syntax error; found `.' but expected `,'\n$}o,
32 qr{^./tmp/[a-zA-Z0-9]*.s:\d+: Error: junk at end of line: `.(?:plt|local)'\n$}o,
33 qr{^./usr/bin/ld: /tmp/[a-zA-Z0-9]*.o\(\.text\+0x[0-9a-f]+\): unresolvable R_PPC64_REL24 relocation against symbol `\S+'\n$}o,
36 qr{^.\.\./as-new [0-9.]*\n$}o,
37 qr{^.(?:/unsafe)?ld/ld-new [0-9.]*\n$}o,
38 qr{\bgdb version \d\S+ -nw -nx\b}o,
39 qr{^.FAIL: \S+\.exp: valgrind check \d+\n$}o,
40 qr{^.KFAIL: gdb.threads/watchthreads2.exp: gdb can drop watchpoints in multithreaded app \(PRMS: gdb/10116\)\n$}o,
41 qr{^.FAIL: gdb.base/info-os.exp: .*\n$}o,
43 my $ignore=shift @ignore;
44 $ignore=qr/$ignore|$_/ for @ignore;
48 if ($ARGV[0] eq "-r") {
53 if ($ARGV[0] eq "-N") {
64 my(@diff)=("diff","-rU-1",@ARGV);
65 open DIFF,"-|",@diff or die join(" ",@diff).": $!";
68 my($thisname)=m{^.(?:Running (?:.*/)?|[A-Z]+: )(gdb[.]\w+/\S+[.]exp)(?: \Q...\E|: .*)$};
69 $thisname||=(m{^.\t\t=== gdb (Summary) ===\n$})[0];
70 $thisname||=(m{^(Only in) })[0];
72 if (!$thisname || ($last && $thisname eq $last->{"name"})) {
73 #if (!$thisname) { print "X: !thisname\n"; } else { print "X: \"".$last->{"name"}."\" -> \"$thisname\"\n"; }
76 #print "X: new \"$thisname\"\n";
77 $last=$this={"name"=>$thisname,"+Running"=>(/^[+]/||0)};
79 next if /^@@ .* @@\n$/;
80 if ($this->{"print"}) {
95 $this->{"buffer"}.=$_;
97 next if /^[+]Running / && $thisname && !$opt_new;
98 next if $ignore && /$ignore/o;
99 next if /^[+]FAIL: / && $this->{"+Running"};
100 next if /^[+]KFAIL: / && $this->{"+Running"};
101 next if /^[+]XFAIL: / && $this->{"+Running"};
102 next if /^[+]UNTESTED: / && $this->{"+Running"};
103 next if /^[+]gdb compile failed, / && $this->{"+Running"};
104 next if /^[+].*: Error: bad register name `%.*'\n$/ && $this->{"+Running"};
105 next if /^[+].*: Error: `.*' is only supported in 64-bit mode\n$/ && $this->{"+Running"};
108 print $lastfile||""; $lastfile=undef();
109 print "\n#".($this->{"name"}||"???")."\n";
110 print $this->{"buffer"}; $this->{"buffer"}=undef();