bin/diffgdb

   1 #! /usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 my @ignore=(
   6 qr{^.PASS: }o,
   7 qr{^.KPASS: }o,
   8 qr{^-FAIL: }o,
   9 qr{^-KFAIL: }o,
  10 qr{^-XFAIL: }o,
  11 qr{^.Test Run By }o,
  12 qr{^.Running }o,
  13 qr{^.gnatbind }o,
  14 qr{^.gnatlink }o,
  15 qr{^.gnatlink: }o,
  16 qr{^.gnatmake: }o,
  17 qr{^.gcc }o,
  18 qr{^./usr/bin/ld: .* architecture of input file .* is incompatible with .* output\n$}o,
  19 qr{^.collect2: }o,
  20 qr{^.UNSUPPORTED: }o,
  21 qr{^.UNTESTED: }o,
  22 qr{^.UNRESOLVED: }o,
  23 qr{^.ERROR: }o,
  24 qr{^.WARNING: }o,
  25 qr{^.[^:]*[.]ad[sb]:[0-9]}o,
  26 qr{^.(?:PASS|FAIL): gdb.server/ext-run.exp: get process list\n$}o,
  27 qr{^.(?:PASS|FAIL): gdb.base/checkpoint.exp: info checkpoints with at least 600 checkpoints\n$}o,
  28 qr{^.(?:PASS|FAIL): gdb.base/checkpoint.exp: break2 with many checkpoints\n$}o,
  29 qr{^.(?:PASS|FAIL): gdb.base/interrupt.exp: }o,
  30 qr{^.(?:PASS|FAIL): gdb.base/gdb1250.exp: }o,
  31 qr{^.KFAIL: gdb.threads/watchthreads2.exp: gdb can drop watchpoints in multithreaded app \(PRMS: gdb/10116\)\n$}o,
  32 qr{^.PASS: gdb.threads/watchthreads2.exp: all threads incremented x\n$}o,
  33 qr{^.FAIL: gdb.base/sigbpt.exp: Verify that SIGSEGV occurs at the last STEPI insn \(none 0x[a-f0-9]*\)\n$}o,
  34 qr{^.PASS: gdb.threads/threadcrash.exp: core file: }o,
  35 qr{^.PASS: gdb.threads/watchthreads.exp: disable [0-9]*\n$}o,
  36 qr{^.FAIL: gdb.mi/mi-nsmoribund.exp: unexpected stop\n$}o,
  37 qr{^.PASS: gdb.mi/mi-nsmoribund.exp: resume all, program exited normally\n$}o,
  38 qr{^.gdb compile failed, }o,
  39 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,
  40 qr{^./tmp/[a-zA-Z0-9]*.o: could not read symbols: Bad value\n$}o,
  41 qr{^./tmp/[a-zA-Z0-9]*.s:\d+: Error: unrecognized symbol type "gnu_indirect_function"\n$}o,
  42 qr{^./tmp/[a-zA-Z0-9]*.o: In function `\S+':\n$}o,
  43 qr{^./tmp/[a-zA-Z0-9]*.o:.*: undefined reference to `.*'\n$}o,
  44 qr{^./tmp/[a-zA-Z0-9]*.s:\d+: Error: syntax error; found `.' but expected `,'\n$}o,
  45 qr{^./tmp/[a-zA-Z0-9]*.s:\d+: Error: junk at end of line: `.(?:plt|local)'\n$}o,
  46 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,
  47 qr{^.# of }o,
  48 qr{^./home/}o,
  49 qr{^.PASS: gdb.arch/i386-biarch-core.exp: core-file /home/.*/i386-biarch-core.core\n$}o,
  50 qr{^.\.\./as-new [0-9.]*\n$}o,
  51 qr{^.ld/ld-new [0-9.]*\n$}o,
  52 qr{^.(?:PASS|FAIL): gdb.mi/mi-break.exp: test hitting breakpoint with commands\n$}o,
  53 qr{^.(?:PASS|FAIL): gdb.threads/attach-stopped.exp: threaded: attach2, exit leaves process sleeping\n$}o,
  54 qr{^.(?:PASS|FAIL): gdb.threads/attachstop-mt.exp: attach3, exit leaves process stopped\n$}o,
  55 qr{^.(?:PASS|FAIL): gdb.threads/attachstop-mt.exp: attach4 stop by interrupt(?: \(timeout\))?\n$}o,
  56 qr{^.(?:PASS|FAIL): gdb.threads/attachstop-mt.exp: attach4, exit leaves process sleeping\n$}o,
  57 qr{^.(?:PASS|FAIL): gdb.threads/manythreads.exp: info threads\n$}o,
  58 qr{gdb version  \d\S+ -nw -nx \n$}o,
  59 qr{^.(?:PASS|FAIL): gdb.threads/attach-stopped.exp: threaded: attach1, exit leaves process stopped\n$}o,
  60 qr{^.(?:PASS|FAIL): gdb.threads/local-watch-wrong-thread.exp: local watchpoint automatically deleted(?: \(timeout\))?\n$}o,
  61 qr{^.(?:PASS|FAIL): gdb.server/server-run.exp: continue to main\n$}o,
  62 qr{^.(?:PASS|FAIL): gdb.mi/mi-nonstop.exp: w1,i0 stop(?: \(timeout\))?\n$}o,
  63 qr{^.(?:PASS|FAIL): gdb.reverse/i387-env-reverse.exp: set reverse direction(?: \(timeout\))?\n$}o,
  64 qr{^.(?:PASS|FAIL): gdb.reverse/i387-env-reverse.exp: record to end of main(?: \(timeout\))?\n$}o,
  65 qr{^.(?:PASS|FAIL): gdb.mi/mi-file-transfer.exp: compare intermediate binary file\n$}o,
  66 qr{^.(?:PASS|FAIL): gdb.mi/mi-file-transfer.exp: compare binary file\n$}o,
  67 qr{^.(?:PASS|FAIL): gdb.mi/mi-file-transfer.exp: deleted binary file\n$}o,
  68 qr{^.(?:PASS|FAIL): gdb.mi/mi-simplerun.exp: continue to end(?: \(failed to resume\))?\n$}o,
  69 qr{^.(?:PASS|FAIL): gdb.mi/mi-simplerun.exp: continue to end(?: \(unknown output after running\))?\n$}o,
  70 qr{^.(?:PASS|FAIL): gdb.server/file-transfer.exp: verified deleted binary file\n$}o,
  71 qr{^.(?:PASS|FAIL): gdb.server/file-transfer.exp: deleted binary file\n$}o,
  72 qr{^.(?:PASS|FAIL): gdb.threads/attachstop-mt.exp: attach1, post-gdb sanity check of the sleeping state - Red Hat BZ 197584\n$}o,
  73 qr{^."uplevel #0 source .*gdb/testsuite/gdb.threads/watchthreads-thr(?:eaded\.exp|.*\.\.\.)"\n$}o,
  74 );
  75 my $ignore=shift @ignore;
  76 $ignore=qr/$ignore|$_/ for @ignore;
  77
  78 my $opt_new;
  79 while (1) {
  80   if ($ARGV[0] eq "-r") {
  81     $ignore=undef;
  82     shift;
  83     next;
  84   }
  85   if ($ARGV[0] eq "-N") {
  86     $opt_new=1;
  87     shift;
  88     next;
  89   }
  90   last;
  91 }
  92
  93 my $last;
  94 my $lastfile;
  95 local *DIFF;
  96 my(@diff)=("diff","-rU-1",@ARGV);
  97 open DIFF,"-|",@diff or die join(" ",@diff).": $!";
  98 while (<DIFF>) {
  99   next if /^diff /;
 100   my($thisname)=m{^.(?:Running (?:.*/)?|[A-Z]+: )(gdb[.]\w+/\S+[.]exp)(?: \Q...\E|: .*)$};
 101   $thisname||=(m{^.\t\t=== gdb (Summary) ===\n$})[0];
 102   my $this;
 103   if (!$thisname || ($last && $thisname eq $last->{"name"})) {
 104 #if (!$thisname) { print "X: !thisname\n"; } else { print "X: \"".$last->{"name"}."\" -> \"$thisname\"\n"; }
 105     $this=$last;
 106   } else {
 107 #print "X: new \"$thisname\"\n";
 108     $last=$this={"name"=>$thisname,"+Running"=>(/^[+]/||0)};
 109   }
 110   next if /^@@ .* @@\n$/;
 111   if ($this->{"print"}) {
 112     print;
 113     next;
 114   }
 115   if (/^--- /) {
 116     $lastfile=$_;
 117     next;
 118   }
 119   if (/^\Q+++\E /) {
 120     $lastfile.=$_;
 121     next;
 122   }
 123   $this->{"buffer"}.=$_;
 124   next if /^ /;
 125   next if /^[+]Running / && $thisname && !$opt_new;
 126   next if $ignore && /$ignore/o;
 127   next if /^[+]FAIL: / && $this->{"+Running"};
 128   next if /^[+]KFAIL: / && $this->{"+Running"};
 129   next if /^[+]XFAIL: / && $this->{"+Running"};
 130   next if /^[+]UNTESTED: / && $this->{"+Running"};
 131   next if /^[+]gdb compile failed, / && $this->{"+Running"};
 132   next if /^[+].*: Error: bad register name `%.*'\n$/ && $this->{"+Running"};
 133   next if /^[+].*: Error: `.*' is only supported in 64-bit mode\n$/ && $this->{"+Running"};
 134
 135   $this->{"print"}=1;
 136   print $lastfile||""; $lastfile=undef();
 137   print "\n#".($this->{"name"}||"???")."\n";
 138   print $this->{"buffer"}; $this->{"buffer"}=undef();
 139   next;
 140 }