Messages in this thread Patch in this message | | | Date | Sun, 16 Jan 2005 15:40:20 -0800 | From | "Randy.Dunlap" <> | Subject | Re: [patch] scripts/reference*.pl - treat built-in.o as conglomerate |
| |
Keith Owens wrote: > scripts/reference*.pl - treat built-in.o as conglomerate. Ignore > references from altinstructions to init text/data. > > Signed-off-by: Keith Owens <kaos@ocs.com.au>
> + if ($comment =~ /GCC\:.*GCC\:/m || $object =~ /built-in.\o/) { s|built-in.\o|built-in\.o|
Corrected patch is attached. --- scripts/reference*.pl - treat built-in.o as conglomerate. Ignore references from altinstructions to init text/data.
Signed-off-by: Keith Owens <kaos@ocs.com.au>
Index: 2.6.10/scripts/reference_discarded.pl =================================================================== --- 2.6.10.orig/scripts/reference_discarded.pl 2004-10-19 07:54:07.000000000 +1000 +++ 2.6.10/scripts/reference_discarded.pl 2005-01-16 17:13:03.997955187 +1100 @@ -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}); } Index: 2.6.10/scripts/reference_init.pl =================================================================== --- 2.6.10.orig/scripts/reference_init.pl 2004-12-25 10:26:19.000000000 +1100 +++ 2.6.10/scripts/reference_init.pl 2005-01-16 17:12:50.449024044 +1100 @@ -70,7 +70,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}); } @@ -96,6 +96,7 @@ foreach $object (sort(keys(%object))) { $from !~ /\.pci_fixup_header$/ && $from !~ /\.pci_fixup_final$/ && $from !~ /\__param$/ && + $from !~ /\.altinstructions/ && $from !~ /\.debug_/)) { printf("Error: %s %s refers to %s\n", $object, $from, $line); }
--- | |