scripts/reference_discarded.pl

   1 #!/usr/bin/perl -w
   2 #
   3 # reference_discarded.pl (C) Keith Owens 2001 <kaos@ocs.com.au>
   4 #
   5 # Released under GPL V2.
   6 #
   7 # List dangling references to vmlinux discarded sections.
   8
   9 use strict;
  10 die($0 . " takes no arguments\n") if($#ARGV >= 0);
  11
  12 my %object;
  13 my $object;
  14 my $line;
  15 my $ignore;
  16 my $errorcount;
  17
  18 $| = 1;
  19
  20 # printf("Finding objects, ");
  21 open(OBJDUMP_LIST, "find . -name '*.o' | xargs objdump -h |") || die "getting objdump list failed";
  22 while (defined($line = <OBJDUMP_LIST>)) {
  23         chomp($line);
  24         if ($line =~ /:\s+file format/) {
  25                 ($object = $line) =~ s/:.*//;
  26                 $object{$object}->{'module'} = 0;
  27                 $object{$object}->{'size'} = 0;
  28                 $object{$object}->{'off'} = 0;
  29         }
  30         if ($line =~ /^\s*\d+\s+\.modinfo\s+/) {
  31                 $object{$object}->{'module'} = 1;
  32         }
  33         if ($line =~ /^\s*\d+\s+\.comment\s+/) {
  34                 ($object{$object}->{'size'}, $object{$object}->{'off'}) = (split(' ', $line))[2,5];
  35         }
  36 }
  37 close(OBJDUMP_LIST);
  38 # printf("%d objects, ", scalar keys(%object));
  39 $ignore = 0;
  40 foreach $object (keys(%object)) {
  41         if ($object{$object}->{'module'}) {
  42                 ++$ignore;
  43                 delete($object{$object});
  44         }
  45 }
  46 # printf("ignoring %d module(s)\n", $ignore);
  47
  48 # Ignore conglomerate objects, they have been built from multiple objects and we
  49 # only care about the individual objects.  If an object has more than one GCC:
  50 # string in the comment section then it is conglomerate.  This does not filter
  51 # out conglomerates that consist of exactly one object, can't be helped.
  52
  53 # printf("Finding conglomerates, ");
  54 $ignore = 0;
  55 foreach $object (keys(%object)) {
  56         if (exists($object{$object}->{'off'})) {
  57                 my ($off, $size, $comment, $l);
  58                 $off = hex($object{$object}->{'off'});
  59                 $size = hex($object{$object}->{'size'});
  60                 open(OBJECT, "<$object") || die "cannot read $object";
  61                 seek(OBJECT, $off, 0) || die "seek to $off in $object failed";
  62                 $l = read(OBJECT, $comment, $size);
  63                 die "read $size bytes from $object .comment failed" if ($l != $size);
  64                 close(OBJECT);
  65                 if ($comment =~ /GCC\:.*GCC\:/m || $object =~ /built-in\.o/) {
  66                         ++$ignore;
  67                         delete($object{$object});
  68                 }
  69         }
  70 }
  71 # printf("ignoring %d conglomerate(s)\n", $ignore);
  72
  73 # printf("Scanning objects\n");
  74 $errorcount = 0;
  75 foreach $object (keys(%object)) {
  76         my $from;
  77         open(OBJDUMP, "objdump -r $object|") || die "cannot objdump -r $object";
  78         while (defined($line = <OBJDUMP>)) {
  79                 chomp($line);
  80                 if ($line =~ /RELOCATION RECORDS FOR /) {
  81                         ($from = $line) =~ s/.*\[([^]]*).*/$1/;
  82                 }
  83                 if (($line =~ /\.text\.exit$/ ||
  84                      $line =~ /\.exit\.text$/ ||
  85                      $line =~ /\.data\.exit$/ ||
  86                      $line =~ /\.exit\.data$/ ||
  87                      $line =~ /\.exitcall\.exit$/) &&
  88                     ($from !~ /\.text\.exit$/ &&
  89                      $from !~ /\.exit\.text$/ &&
  90                      $from !~ /\.data\.exit$/ &&
  91                      $from !~ /\.exit\.data$/ &&
  92                      $from !~ /\.altinstructions$/ &&
  93                      $from !~ /\.pdr$/ &&
  94                      $from !~ /\.debug_.*$/ &&
  95                      $from !~ /\.exitcall\.exit$/ &&
  96                      $from !~ /\.eh_frame$/ &&
  97                      $from !~ /\.stab$/)) {
  98                         printf("Error: %s %s refers to %s\n", $object, $from, $line);
  99                         $errorcount = $errorcount + 1;
 100                 }
 101         }
 102         close(OBJDUMP);
 103 }
 104 # printf("Done\n");
 105
 106 exit(0);