Re: [patch] scripts/reference*.pl - treat built-in.o as conglomerate

["Randy.Dunlap" <rddunlap@xxxxxxxx>]

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@xxxxxxxxxx>

> +		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@xxxxxxxxxx>

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);
 		}


---