git://git.jankratochvil.net
/
nethome.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
3823926
)
Remove dangerous ignores.
author
jkratoch
<>
Wed, 19 May 2010 18:03:47 +0000
(18:03 +0000)
committer
jkratoch
<>
Wed, 19 May 2010 18:03:47 +0000
(18:03 +0000)
bin/diffgdb
patch
|
blob
|
history
diff --git
a/bin/diffgdb
b/bin/diffgdb
index
ff33573
..
6d4e70b
100755
(executable)
--- 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{^.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,
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];
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"; }
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;
}
print;
next;
}
+ if (/^Only in /) {
+ $lastfile=$_;
+ }
if (/^--- /) {
$lastfile=$_;
next;
if (/^--- /) {
$lastfile=$_;
next;