← Back to branch summary

~louis/ubuntu/trusty/clamav/lp799623_fix_logrotate

« back to all changes in this revision

Viewing changes to libclamav/c++/llvm/utils/codegen-diff

  • Committer: Bazaar Package Importer
  • Author(s): Scott Kitterman
  • Date: 2010-03-12 11:30:04 UTC
  • mfrom: (0.41.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20100312113004-b0fop4bkycszdd0z
Tags: 0.96~rc1+dfsg-0ubuntu1
https://launchpad.net/bugs/537636
* New upstream RC - FFE (LP: #537636):
  - Add OfficialDatabaseOnly option to clamav-base.postinst.in
  - Add LocalSocketGroup option to clamav-base.postinst.in
  - Add LocalSocketMode option to clamav-base.postinst.in
  - Add CrossFilesystems option to clamav-base.postinst.in
  - Add ClamukoScannerCount option to clamav-base.postinst.in
  - Add BytecodeSecurity opiton to clamav-base.postinst.in
  - Add DetectionStatsHostID option to clamav-freshclam.postinst.in
  - Add Bytecode option to clamav-freshclam.postinst.in
  - Add MilterSocketGroup option to clamav-milter.postinst.in
  - Add MilterSocketMode option to clamav-milter.postinst.in
  - Add ReportHostname option to clamav-milter.postinst.in
  - Bump libclamav SO version to 6.1.0 in libclamav6.install
  - Drop clamdmon from clamav.examples (no longer shipped by upstream)
  - Drop libclamav.a from libclamav-dev.install (not built by upstream)
  - Update SO version for lintian override for libclamav6
  - Add new Bytecode Testing Tool, usr/bin/clambc, to clamav.install
  - Add build-depends on python and python-setuptools for new test suite
  - Update debian/copyright for the embedded copy of llvm (using the system
    llvm is not currently feasible)

Show diffs side-by-side

added added

removed removed

Lines of Context:
libclamav/c++/llvm/utils/codegen-diff
 
1
#!/usr/bin/perl
 
2
 
 
3
use Getopt::Std;
 
4
$DEBUG = 0;
 
5
 
 
6
sub parse_objdump_file {
 
7
  my ($filename) = @_;
 
8
  my @result;
 
9
  open (INPUT, $filename) or die "$filename: $!\n";
 
10
  print "opened objdump output file $filename\n" if $DEBUG;
 
11
  while (<INPUT>) {
 
12
    if (/\s*([0-9a-f]*):\t(([0-9a-f]{2} )+) *\t(.*)$/) {
 
13
      my ($addr, $bytes, $instr) = ($1, $2, $4);
 
14
      $addr = "0x" . $addr;
 
15
      $bytes =~ s/\s*(.*\S)\s*/$1/; # trim any remaining whitespace
 
16
      $instr =~ s/\s*(.*\S)\s*/$1/;
 
17
      push (@result, {'addr' => $addr, 'bytes' => $bytes, 'instr' => $instr});
 
18
      print "addr=$addr bytes='$bytes' instr='$instr'\n" if $DEBUG;
 
19
    }
 
20
  }
 
21
  close INPUT;
 
22
  return @result;
 
23
}
 
24
 
 
25
sub parse_gdb_file {
 
26
  my ($filename) = @_;
 
27
  my @result;
 
28
  my $got_addr;
 
29
  open (INPUT, $filename) or die "$filename: $!\n";
 
30
  print "opened gdb output file $filename\n" if $DEBUG;
 
31
  while (<INPUT>) {
 
32
    if (/^(0x[0-9a-f]*):\t([^\t]*)\t[^:]*:\t((0x[0-9a-f]{2}\s*)+)\s*$/) {
 
33
      my ($addr, $bytes, $instr) = ($1, $3, $2);
 
34
      $bytes =~ s/0x//g;
 
35
      $bytes =~ s/\s+/ /g;           # regularize whitespace
 
36
      $bytes =~ s/\s*(.*\S)\s*/$1/;  # trim any remaining whitespace
 
37
      $instr =~ s/\s*(.*\S)\s*/$1/;
 
38
      push (@result, {'addr' => $addr, 'bytes' => $bytes, 'instr' => $instr});
 
39
      print "addr=$addr bytes='$bytes' instr='$instr'\n" if $DEBUG;
 
40
    } elsif (/^(0x[0-9a-f]*):\t$/) { # deal with gdb's line breaker
 
41
      $got_addr = $1;
 
42
    } elsif ($got_addr && /^    ([^\t]*)\t[^:]*:\t((0x[0-9a-f]{2}\s*)+)\s*$/) {
 
43
      my ($addr, $bytes, $instr) = ($got_addr, $2, $1);
 
44
      $bytes =~ s/0x//g;
 
45
      $bytes =~ s/\s+/ /g;           # regularize whitespace
 
46
      $bytes =~ s/\s*(.*\S)\s*/$1/;  # trim any remaining whitespace
 
47
      $instr =~ s/\s*(.*\S)\s*/$1/;
 
48
      push (@result, {'addr' => $addr, 'bytes' => $bytes, 'instr' => $instr});
 
49
      print "addr=$addr bytes='$bytes' instr='$instr'\n" if $DEBUG;
 
50
      undef $got_addr;
 
51
    }
 
52
  }
 
53
  close INPUT;
 
54
  return @result;
 
55
}
 
56
 
 
57
sub binary_diffs {
 
58
  my ($objdump_file, $gdb_file) = @_;
 
59
  my @file1 = parse_objdump_file ($objdump_file);
 
60
  my @file2 = parse_gdb_file ($gdb_file);
 
61
  my $lastrecord = ($#file1 >= $#file2) ? ($#file1) : ($#file2);
 
62
  for (my $i = 0; $i <= $lastrecord; ++$i) {
 
63
    my $d1 = $file1[$i];
 
64
    my $d2 = $file2[$i];
 
65
    if ($d1->{'bytes'} ne $d2->{'bytes'}) {
 
66
      next if (($d1->{'instr'} eq $d2->{'instr'}) && $opt_d);
 
67
      printf "0x%08x:\t%30s \t%s\n", 0+$d1->{'addr'}, $d1->{'bytes'}, $d1->{'instr'};
 
68
      printf "0x%08x:\t%30s \t%s\n\n", 0+$d2->{'addr'}, $d2->{'bytes'}, $d2->{'instr'};
 
69
    }
 
70
  }
 
71
}
 
72
 
 
73
&getopts('d');
 
74
$objdump_file = $ARGV[0];
 
75
$gdb_file = $ARGV[1];
 
76
binary_diffs ($objdump_file, $gdb_file);
 
77
exit (0);
 
78
__END__
 
79
=pod
 
80
 
 
81
=head1 NAME
 
82
 
 
83
codegen-diff
 
84
 
 
85
=head1 SYNOPSIS
 
86
 
 
87
codegen-diff [-d] I<OBJDUMP-OUTPUT-FILE> I<GDB-DISASSEMBLY-FILE>
 
88
 
 
89
=head1 DESCRIPTION
 
90
 
 
91
B<codegen-diff> is a program that tries to show you the differences
 
92
between the code that B<llc> generated and the code that B<lli> generated.
 
93
 
 
94
The way you use it is as follows: first, you create I<OBJDUMP-OUTPUT-FILE>
 
95
by running B<objdump> on the B<llc> compiled and linked binary. You need to
 
96
trim down the result so it contains only the function of interest.
 
97
 
 
98
Second, you create I<GDB-DISASSEMBLY-FILE> by running B<gdb>, with my patch
 
99
to print out hex bytes in the B<disassemble> command output, on
 
100
B<lli>.  Set a breakpoint in C<Emitter::finishFunction()> and wait until
 
101
the function you want is compiled.  Then use the B<disassemble> command
 
102
to print out the assembly dump of the function B<lli> just compiled.
 
103
(Use C<lli -debug> to find out where the function starts and ends in memory.)
 
104
It's easiest to save this output by using B<script>.
 
105
 
 
106
Finally, you run B<codegen-diff>, as indicated in the Synopsis section of
 
107
this manpage. It will print out a two-line stanza for each mismatched
 
108
instruction, with the  B<llc> version first, and the  B<lli> version second.
 
109
 
 
110
=head1 OPTIONS
 
111
 
 
112
=over 4
 
113
 
 
114
=item -d
 
115
 
 
116
Don't show instructions where the bytes are different but they
 
117
disassemble to the same thing. This puts a lot of trust in the
 
118
disassembler, but it might help you highlight the more egregious cases
 
119
of misassembly.
 
120
 
 
121
=back
 
122
 
 
123
=head1 AUTHOR
 
124
 
 
125
B<codegen-diff> was written by Brian Gaeke.
 
126
 
 
127
=head1 SEE ALSO
 
128
 
 
129
L<gdb(1)>, L<objdump(1)>, L<script(1)>.
 
130
 
 
131
You will need my B<gdb> patch:
 
132
 
 
133
  http://llvm.cs.uiuc.edu/~gaeke/gdb-disassembly-print-bytes.patch
 
134
 
 
135
=cut