X-Git-Url: https://git.jankratochvil.net/?p=nethome.git;a=blobdiff_plain;f=bin%2Fdiffgdb;h=a0c4789b2518b24461815e54803e7ad48ad93b96;hp=ff3357377c5d2a2c298c4cda30318cd5618f8ae7;hb=f144686ae628c3e5eeff4ea92e259d76477b571d;hpb=d6ab2bd0de8e5b166ae5d6b9852ebc39d40b7740

diff --git a/bin/diffgdb b/bin/diffgdb
index ff33573..a0c4789 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,
@@ -70,6 +70,12 @@ qr{^.(?:PASS|FAIL): gdb.server/file-transfer.exp: verified deleted binary file\n
 qr{^.(?:PASS|FAIL): gdb.server/file-transfer.exp: deleted binary file\n$}o,
 qr{^.(?:PASS|FAIL): gdb.threads/attachstop-mt.exp: attach1, post-gdb sanity check of the sleeping state - Red Hat BZ 197584\n$}o,
 qr{^."uplevel #0 source .*gdb/testsuite/gdb.threads/watchthreads-thr(?:eaded\.exp|.*\.\.\.)"\n$}o,
+qr{^.(?:PASS|FAIL): gdb.cp/ref-types.exp: print value of rL\n$}o,
+qr{^.FAIL: gdb.threads/watchthreads-reorder.exp: reorder[01]: (?:continue [ab]|rwatch unused1_rwatch)(?: \((?:timeout|the program exited|the program is no longer running)\))?\n$}o,
+qr{^.FAIL: gdb.base/sigbpt.exp: Verify that SIGSEGV occurs at the last STEPI insn \(none 0x[0-9a-f]+\)\n$}o,
+qr{^.(?:KFAIL|FAIL): gdb.base/sigbpt.exp: stepi bp at segv; stepi out of handler(?: \(corrupt pc\) \(PRMS: gdb/1702\))?\n$}o,
+qr{^.(?:KFAIL|FAIL): gdb.base/sigbpt.exp: stepi bp before and at segv; stepi out of handler(?: \(corrupt pc\) \(PRMS: gdb/1702\))?\n$}o,
+qr{^.FAIL: \S+\.exp: valgrind check \d+\n$}o,
 );
 my $ignore=shift @ignore;
 $ignore=qr/$ignore|$_/ for @ignore;
@@ -98,6 +104,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 +118,9 @@ while (<DIFF>) {
     print;
     next;
   }
+  if (/^Only in /) {
+    $lastfile=$_;
+  }
   if (/^--- /) {
     $lastfile=$_;
     next;