+sub gitmark($) {
+ my($s)=@_;
+ return "" if $s!~m{^(... )([^/]*/+[^/]*)/};
+ my($pfx,$dir)=($1,$2);
+ local *GIT;
+ $dir.="/build/gdbgit";
+ return "" if !-d $dir;
+ open GIT,"cd '$dir';git log --format=%H HEAD^..HEAD|" or return "";
+ my $git=do { local $/; <GIT>; };
+ close GIT;
+ chomp $git;
+ return "${pfx}GIT commit $git\n" if $git=~/^[0-9a-f]{40}$/;
+ return "";
+}
+
+my @ignore=(
+qr{^.PASS: }o,
+qr{^.KPASS: }o,
+qr{^-FAIL: }o,
+qr{^-KFAIL: }o,
+qr{^-XFAIL: }o,
+qr{^.Test Run By }o,
+qr{^.gnatbind }o,
+qr{^.gnatlink }o,
+qr{^.gnatlink: }o,
+qr{^.gnatmake: }o,
+qr{^.gcc }o,
+qr{^./usr/bin/ld: .* architecture of input file .* is incompatible with .* output\n$}o,
+qr{^.collect2: }o,
+#qr{^.UNSUPPORTED: }o,
+#qr{^.UNTESTED: }o,
+#qr{^.UNRESOLVED: }o,
+#qr{^.ERROR: }o,
+#qr{^.WARNING: }o,
+qr{^.[^:]*[.]ad[sb]:[0-9]}o,
+qr{^.gdb compile failed, }o,
+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,
+qr{^./tmp/[a-zA-Z0-9]*.o: could not read symbols: Bad value\n$}o,
+qr{^./tmp/[a-zA-Z0-9]*.s:\d+: Error: unrecognized symbol type "gnu_indirect_function"\n$}o,
+qr{^./tmp/[a-zA-Z0-9]*.o: In function `\S+':\n$}o,
+qr{^./tmp/[a-zA-Z0-9]*.o:.*: undefined reference to `.*'\n$}o,
+qr{^./tmp/[a-zA-Z0-9]*.s:\d+: Error: syntax error; found `.' but expected `,'\n$}o,
+qr{^./tmp/[a-zA-Z0-9]*.s:\d+: Error: junk at end of line: `.(?:plt|local)'\n$}o,
+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,
+qr{^.# of }o,
+qr{^./home/}o,
+qr{^.\.\./as-new [0-9.]*\n$}o,
+qr{^.(?:/unsafe)?ld/ld-new [0-9.]*\n$}o,
+qr{\bgdb version \d\S+ -nw -nx\b}o,
+qr{^.FAIL: \S+\.exp: valgrind check \d+\n$}o,
+qr{^.KFAIL: gdb.threads/watchthreads2.exp: gdb can drop watchpoints in multithreaded app \(PRMS: gdb/10116\)\n$}o,
+qr{^.FAIL: gdb.base/info-os.exp: .*\n$}o,
+qr{^.FAIL: gdb.threads/multiple-step-overs.exp: .*\n$}o,
+qr{^.FAIL: gdb.base/random-signal.exp: stop with control-c \Q(timeout)\E\n$}o,
+qr{^.(?:XFAIL|PASS): gdb.threads/attach-many-short-lived-threads.exp: iter \d+: attach(?: \(EPERM\))?\n$}o,
+);
+my $ignore=shift @ignore;
+$ignore=qr/$ignore|$_/ for @ignore;
+
+my $opt_new;
+while (1) {
+ if ($ARGV[0] eq "-r") {
+ $ignore=undef;
+ shift;
+ next;
+ }
+ if ($ARGV[0] eq "-N") {
+ $opt_new=1;
+ shift;
+ next;
+ }
+ last;
+}
+
+my $last;
+my $lastfile;
+local *DIFF;
+my(@diff)=("diff","-rU-1",@ARGV);
+open DIFF,"-|",@diff or die join(" ",@diff).": $!";
+while (<DIFF>) {
+ next if /^diff /;
+ my($thisname)=m{^.(?:Running (?:.*/)?|[A-Z]+: )(gdb[.]\w+/\S+[.]exp)(?: \Q...\E|: .*)$};
+ $thisname||=(m{^.\t\t=== gdb (Summary) ===\n$})[0];
+ $thisname||=(m{^(Only in) })[0];
+ my $this;
+ if (!$thisname || ($last && $thisname eq $last->{"name"})) {
+#if (!$thisname) { print "X: !thisname\n"; } else { print "X: \"".$last->{"name"}."\" -> \"$thisname\"\n"; }
+ $this=$last;
+ } else {
+#print "X: new \"$thisname\"\n";
+ $last=$this={"name"=>$thisname,"+Running"=>(/^[+]/||0)};
+ }
+ next if /^@@ .* @@\n$/;
+ if ($this->{"print"}) {
+ print;
+ next;
+ }
+ if (/^Only in /) {
+ $lastfile=$_;
+ }
+ if (/^--- /) {
+ $lastfile=$_.gitmark($_);
+ next;
+ }
+ if (/^\Q+++\E /) {
+ $lastfile.=$_.gitmark($_);
+ next;
+ }
+ $this->{"buffer"}.=$_;
+ next if /^ /;
+ next if /^[+]Running / && $thisname && !$opt_new;
+ next if $ignore && /$ignore/o;
+ next if /^[+]FAIL: / && $this->{"+Running"};
+ next if /^[+]KFAIL: / && $this->{"+Running"};
+ next if /^[+]XFAIL: / && $this->{"+Running"};
+ next if /^[+]UNTESTED: / && $this->{"+Running"};
+ next if /^[+]gdb compile failed, / && $this->{"+Running"};
+ next if /^[+].*: Error: bad register name `%.*'\n$/ && $this->{"+Running"};
+ next if /^[+].*: Error: `.*' is only supported in 64-bit mode\n$/ && $this->{"+Running"};
+
+ $this->{"print"}=1;
+ print $lastfile||""; $lastfile=undef();
+ print "\n#".($this->{"name"}||"???")."\n";
+ print $this->{"buffer"}; $this->{"buffer"}=undef();
+ next;
+}