diff options
author | Sam Ravnborg <sam@mars.ravnborg.org> | 2006-03-21 01:28:24 -0500 |
---|---|---|
committer | Sam Ravnborg <sam@mars.ravnborg.org> | 2006-03-21 01:28:24 -0500 |
commit | eae0f536f640bb95f2ad437a57c40c7d5683d1ac (patch) | |
tree | 40e5ca04ecf2390fe75f3efad17f8e51d4aced66 /scripts/reference_discarded.pl | |
parent | 6c2133e11b422b7379b5a660c639f7d53d18ca3b (diff) |
kbuild: remove obsoleted scripts/reference_* files
The checks performed by scripts/reference_* has been moved to modpost.
Remove the files and their reference in top-level Makefile.
Signed-off-by: Sam Ravnborg <sam@ravnborg.org>
Diffstat (limited to 'scripts/reference_discarded.pl')
-rw-r--r-- | scripts/reference_discarded.pl | 112 |
1 files changed, 0 insertions, 112 deletions
diff --git a/scripts/reference_discarded.pl b/scripts/reference_discarded.pl deleted file mode 100644 index 4ee6ab2135b3..000000000000 --- a/scripts/reference_discarded.pl +++ /dev/null | |||
@@ -1,112 +0,0 @@ | |||
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 | |||
75 | # Keith Ownes <kaos@sgi.com> commented: | ||
76 | # For our future {in}sanity, add a comment that this is the ppc .opd | ||
77 | # section, not the ia64 .opd section. | ||
78 | # ia64 .opd should not point to discarded sections. | ||
79 | $errorcount = 0; | ||
80 | foreach $object (keys(%object)) { | ||
81 | my $from; | ||
82 | open(OBJDUMP, "objdump -r $object|") || die "cannot objdump -r $object"; | ||
83 | while (defined($line = <OBJDUMP>)) { | ||
84 | chomp($line); | ||
85 | if ($line =~ /RELOCATION RECORDS FOR /) { | ||
86 | ($from = $line) =~ s/.*\[([^]]*).*/$1/; | ||
87 | } | ||
88 | if (($line =~ /\.text\.exit$/ || | ||
89 | $line =~ /\.exit\.text$/ || | ||
90 | $line =~ /\.data\.exit$/ || | ||
91 | $line =~ /\.exit\.data$/ || | ||
92 | $line =~ /\.exitcall\.exit$/) && | ||
93 | ($from !~ /\.text\.exit$/ && | ||
94 | $from !~ /\.exit\.text$/ && | ||
95 | $from !~ /\.data\.exit$/ && | ||
96 | $from !~ /\.opd$/ && | ||
97 | $from !~ /\.exit\.data$/ && | ||
98 | $from !~ /\.altinstructions$/ && | ||
99 | $from !~ /\.pdr$/ && | ||
100 | $from !~ /\.debug_.*$/ && | ||
101 | $from !~ /\.exitcall\.exit$/ && | ||
102 | $from !~ /\.eh_frame$/ && | ||
103 | $from !~ /\.stab$/)) { | ||
104 | printf("Error: %s %s refers to %s\n", $object, $from, $line); | ||
105 | $errorcount = $errorcount + 1; | ||
106 | } | ||
107 | } | ||
108 | close(OBJDUMP); | ||
109 | } | ||
110 | # printf("Done\n"); | ||
111 | |||
112 | exit(0); | ||