2005-01-16 20:23:34

by Keith Owens

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

scripts/reference*.pl - treat built-in.o as conglomerate. Ignore
references from altinstructions to init text/data.

Signed-off-by: Keith Owens <[email protected]>

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



2005-01-16 23:47:59

by Randy.Dunlap

[permalink] [raw]
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 <[email protected]>

> + if ($comment =~ /GCC\:.*GCC\:/m || $object =~ /built-in.\o/) {
s|built-in.\o|built-in\.o|

Corrected patch is attached.
---


Attachments:
scripts_referenced.patch (1.65 kB)