From 262715a7f0b729a8340a29719f3e8d7d2cc580cf Mon Sep 17 00:00:00 2001
From: jkratoch <>
Date: Wed, 19 May 2010 18:03:47 +0000
Subject: [PATCH 1/1] Remove dangerous ignores.

---
 bin/diffgdb | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/bin/diffgdb b/bin/diffgdb
index ff33573..6d4e70b 100755
--- a/bin/diffgdb
+++ b/bin/diffgdb
@@ -16,11 +16,11 @@ 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{^.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,
@@ -98,6 +98,7 @@ 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"; }
@@ -111,6 +112,9 @@ while (<DIFF>) {
     print;
     next;
   }
+  if (/^Only in /) {
+    $lastfile=$_;
+  }
   if (/^--- /) {
     $lastfile=$_;
     next;
-- 
1.8.3.1