Donate to e Foundation | Murena handsets with /e/OS | Own a part of Murena! Learn more

Commit eae0f536 authored by Sam Ravnborg's avatar Sam Ravnborg
Browse files

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: default avatarSam Ravnborg <sam@ravnborg.org>
parent 6c2133e1

Makefile

+0 −6
Original line number Diff line number Diff line
@@ -1028,8 +1028,6 @@ help: 
	@echo  '  kernelversion	  - Output the version stored in Makefile'

	@echo  ''

	@echo  'Static analysers'

	@echo  '  buildcheck      - List dangling references to vmlinux discarded sections'

	@echo  '                    and init sections from non-init sections'

	@echo  '  checkstack      - Generate a list of stack hogs'

	@echo  '  namespacecheck  - Name space analysis on compiled kernel'

	@echo  ''
@@ -1255,10 +1253,6 @@ versioncheck: 
		-name '*.[hcS]' -type f -print | sort \

		| xargs $(PERL) -w scripts/checkversion.pl



buildcheck:

	$(PERL) $(srctree)/scripts/reference_discarded.pl

	$(PERL) $(srctree)/scripts/reference_init.pl



namespacecheck:

	$(PERL) $(srctree)/scripts/namespace.pl

scripts/reference_discarded.pl

deleted100644 → 0
+0 −112
Original line number Diff line number Diff line 
#!/usr/bin/perl -w

#

# reference_discarded.pl (C) Keith Owens 2001 <kaos@ocs.com.au>

#

# Released under GPL V2.

#

# List dangling references to vmlinux discarded sections.



use strict;

die($0 . " takes no arguments\n") if($#ARGV >= 0);



my %object;

my $object;

my $line;

my $ignore;

my $errorcount;



$| = 1;



# printf("Finding objects, ");

open(OBJDUMP_LIST, "find . -name '*.o' | xargs objdump -h |") || die "getting objdump list failed";

while (defined($line = <OBJDUMP_LIST>)) {

	chomp($line);

	if ($line =~ /:\s+file format/) {

		($object = $line) =~ s/:.*//;

		$object{$object}->{'module'} = 0;

		$object{$object}->{'size'} = 0;

		$object{$object}->{'off'} = 0;

	}

	if ($line =~ /^\s*\d+\s+\.modinfo\s+/) {

		$object{$object}->{'module'} = 1;

	}

	if ($line =~ /^\s*\d+\s+\.comment\s+/) {

		($object{$object}->{'size'}, $object{$object}->{'off'}) = (split(' ', $line))[2,5];

	}

}

close(OBJDUMP_LIST);

# printf("%d objects, ", scalar keys(%object));

$ignore = 0;

foreach $object (keys(%object)) {

	if ($object{$object}->{'module'}) {

		++$ignore;

		delete($object{$object});

	}

}

# printf("ignoring %d module(s)\n", $ignore);



# Ignore conglomerate objects, they have been built from multiple objects and we

# only care about the individual objects.  If an object has more than one GCC:

# string in the comment section then it is conglomerate.  This does not filter

# out conglomerates that consist of exactly one object, can't be helped.



# printf("Finding conglomerates, ");

$ignore = 0;

foreach $object (keys(%object)) {

	if (exists($object{$object}->{'off'})) {

		my ($off, $size, $comment, $l);

		$off = hex($object{$object}->{'off'});

		$size = hex($object{$object}->{'size'});

		open(OBJECT, "<$object") || die "cannot read $object";

		seek(OBJECT, $off, 0) || die "seek to $off in $object failed";

		$l = read(OBJECT, $comment, $size);

		die "read $size bytes from $object .comment failed" if ($l != $size);

		close(OBJECT);

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

			++$ignore;

			delete($object{$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;

	open(OBJDUMP, "objdump -r $object|") || die "cannot objdump -r $object";

	while (defined($line = <OBJDUMP>)) {

		chomp($line);

		if ($line =~ /RELOCATION RECORDS FOR /) {

			($from = $line) =~ s/.*\[([^]]*).*/$1/;

		}

		if (($line =~ /\.text\.exit$/ ||

		     $line =~ /\.exit\.text$/ ||

		     $line =~ /\.data\.exit$/ ||

		     $line =~ /\.exit\.data$/ ||

		     $line =~ /\.exitcall\.exit$/) &&

		    ($from !~ /\.text\.exit$/ &&

		     $from !~ /\.exit\.text$/ &&

		     $from !~ /\.data\.exit$/ &&

		     $from !~ /\.opd$/ &&

		     $from !~ /\.exit\.data$/ &&

		     $from !~ /\.altinstructions$/ &&

		     $from !~ /\.pdr$/ &&

		     $from !~ /\.debug_.*$/ &&

		     $from !~ /\.exitcall\.exit$/ &&

		     $from !~ /\.eh_frame$/ &&

		     $from !~ /\.stab$/)) {

			printf("Error: %s %s refers to %s\n", $object, $from, $line);

			$errorcount = $errorcount + 1;

		}

	}

	close(OBJDUMP);

}

# printf("Done\n");



exit(0);

scripts/reference_init.pl

deleted100644 → 0
+0 −108
Original line number Diff line number Diff line 
#!/usr/bin/perl -w

#

# reference_init.pl (C) Keith Owens 2002 <kaos@ocs.com.au>

#

# List references to vmlinux init sections from non-init sections.



# Unfortunately I had to exclude references from read only data to .init

# sections, almost all of these are false positives, they are created by

# gcc.  The downside of excluding rodata is that there really are some

# user references from rodata to init code, e.g. drivers/video/vgacon.c

#

# const struct consw vga_con = {

#        con_startup:            vgacon_startup,

#

# where vgacon_startup is __init.  If you want to wade through the false

# positives, take out the check for rodata.



use strict;

die($0 . " takes no arguments\n") if($#ARGV >= 0);



my %object;

my $object;

my $line;

my $ignore;



$| = 1;



printf("Finding objects, ");

open(OBJDUMP_LIST, "find . -name '*.o' | xargs objdump -h |") || die "getting objdump list failed";

while (defined($line = <OBJDUMP_LIST>)) {

	chomp($line);

	if ($line =~ /:\s+file format/) {

		($object = $line) =~ s/:.*//;

		$object{$object}->{'module'} = 0;

		$object{$object}->{'size'} = 0;

		$object{$object}->{'off'} = 0;

	}

	if ($line =~ /^\s*\d+\s+\.modinfo\s+/) {

		$object{$object}->{'module'} = 1;

	}

	if ($line =~ /^\s*\d+\s+\.comment\s+/) {

		($object{$object}->{'size'}, $object{$object}->{'off'}) = (split(' ', $line))[2,5];

	}

}

close(OBJDUMP_LIST);

printf("%d objects, ", scalar keys(%object));

$ignore = 0;

foreach $object (keys(%object)) {

	if ($object{$object}->{'module'}) {

		++$ignore;

		delete($object{$object});

	}

}

printf("ignoring %d module(s)\n", $ignore);



# Ignore conglomerate objects, they have been built from multiple objects and we

# only care about the individual objects.  If an object has more than one GCC:

# string in the comment section then it is conglomerate.  This does not filter

# out conglomerates that consist of exactly one object, can't be helped.



printf("Finding conglomerates, ");

$ignore = 0;

foreach $object (keys(%object)) {

	if (exists($object{$object}->{'off'})) {

		my ($off, $size, $comment, $l);

		$off = hex($object{$object}->{'off'});

		$size = hex($object{$object}->{'size'});

		open(OBJECT, "<$object") || die "cannot read $object";

		seek(OBJECT, $off, 0) || die "seek to $off in $object failed";

		$l = read(OBJECT, $comment, $size);

		die "read $size bytes from $object .comment failed" if ($l != $size);

		close(OBJECT);

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

			++$ignore;

			delete($object{$object});

		}

	}

}

printf("ignoring %d conglomerate(s)\n", $ignore);



printf("Scanning objects\n");

foreach $object (sort(keys(%object))) {

	my $from;

	open(OBJDUMP, "objdump -r $object|") || die "cannot objdump -r $object";

	while (defined($line = <OBJDUMP>)) {

		chomp($line);

		if ($line =~ /RELOCATION RECORDS FOR /) {

			($from = $line) =~ s/.*\[([^]]*).*/$1/;

		}

		if (($line =~ /\.init$/ || $line =~ /\.init\./) &&

		    ($from !~ /\.init$/ &&

		     $from !~ /\.init\./ &&

		     $from !~ /\.stab$/ &&

		     $from !~ /\.rodata$/ &&

		     $from !~ /\.text\.lock$/ &&

		     $from !~ /\.pci_fixup_header$/ &&

		     $from !~ /\.pci_fixup_final$/ &&

		     $from !~ /\.pdr$/ &&

		     $from !~ /\__param$/ &&

		     $from !~ /\.altinstructions/ &&

		     $from !~ /\.eh_frame/ &&

		     $from !~ /\.debug_/)) {

			printf("Error: %s %s refers to %s\n", $object, $from, $line);

		}

	}

	close(OBJDUMP);

}

printf("Done\n");