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{^.UNSUPPORTED: }o,
+#qr{^.UNTESTED: }o,
+#qr{^.UNRESOLVED: }o,
+#qr{^.ERROR: }o,
+#qr{^.WARNING: }o,
qr{^.[^:]*[.]ad[sb]:[0-9]}o,
qr{^.(?:PASS|FAIL): gdb.server/ext-run.exp: get process list\n$}o,
qr{^.(?:PASS|FAIL): gdb.base/checkpoint.exp: info checkpoints with at least 600 checkpoints\n$}o,
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"; }
print;
next;
}
+ if (/^Only in /) {
+ $lastfile=$_;
+ }
if (/^--- /) {
$lastfile=$_;
next;