fedora core 6 1.2949 + vserver 2.2.0

[linux-2.6.git] / scripts / reference_discarded.pl

diff --git a/scripts/reference_discarded.pl b/scripts/reference_discarded.pl
index 9d01ec5..4ee6ab2 100644 (file)
--- a/scripts/reference_discarded.pl
+++ b/scripts/reference_discarded.pl
@@ -62,7 +62,7 @@ foreach $object (keys(%object)) {
                $l = read(OBJECT, $comment, $size);
                die "read $size bytes from $object .comment failed" if ($l != $size);
                close(OBJECT);
-               if ($comment =~ /GCC\:.*GCC\:/m) {
+               if ($comment =~ /GCC\:.*GCC\:/m || $object =~ /built-in\.o/) {
                        ++$ignore;
                        delete($object{$object});
                }
@@ -71,6 +71,11 @@ foreach $object (keys(%object)) {
 # printf("ignoring %d conglomerate(s)\n", $ignore);
 
 # printf("Scanning objects\n");
+
+# Keith Ownes <kaos@sgi.com> commented:
+# For our future {in}sanity, add a comment that this is the ppc .opd
+# section, not the ia64 .opd section.
+# ia64 .opd should not point to discarded sections.
 $errorcount = 0;
 foreach $object (keys(%object)) {
        my $from;
@@ -88,13 +93,11 @@ foreach $object (keys(%object)) {
                    ($from !~ /\.text\.exit$/ &&
                     $from !~ /\.exit\.text$/ &&
                     $from !~ /\.data\.exit$/ &&
+                    $from !~ /\.opd$/ &&
                     $from !~ /\.exit\.data$/ &&
                     $from !~ /\.altinstructions$/ &&
-                    $from !~ /\.debug_info$/ &&
-                    $from !~ /\.debug_aranges$/ &&
-                    $from !~ /\.debug_ranges$/ &&
-                    $from !~ /\.debug_line$/ &&
-                    $from !~ /\.debug_frame$/ &&
+                    $from !~ /\.pdr$/ &&
+                    $from !~ /\.debug_.*$/ &&
                     $from !~ /\.exitcall\.exit$/ &&
                     $from !~ /\.eh_frame$/ &&
                     $from !~ /\.stab$/)) {
@@ -106,4 +109,4 @@ foreach $object (keys(%object)) {
 }
 # printf("Done\n");
 
-exit($errorcount);
+exit(0);