1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
use strict;
use MDK::Common;
use list_modules;
my @skip_big_modules_on_stage1 = (
qw(
olympic
sk98lin acenic
3c90x
ns83820
aironet4500_card aironet4500_core com20020-pci hamachi starfire winbond-840
dc395x_trm
BusLogic seagate fdomain g_NCR5380
)
);
my @skip_modules_on_stage1 = (
qw(sktr tmspci ibmtr abyss), # alt token ring
qw(old_tulip rtl8139),
if_(arch() =~ /alpha|ppc/, qw(sb1000)),
"apa1480_cb",
"imm",
"ppa",
"plip",
qw(3w-xxxx pci2220i qla2x00 i2o_block),
qw(eata_pio eata_dma),
'AM53C974', # deprecated by tmscsim
qw(ac3200 at1700 atp ni5010 ni52 ni65), #- unused from Jeff
"u14-34f", #- duplicate from ultrastor.o
);
my %images = (
network => 'fs/network network/main|raw bus/pcmcia',
cdrom => 'fs/cdrom disk/cdrom|scsi|raw',
hd => 'fs/local fs/loopback disk/scsi|hardware_raid|raw',
usb => 'fs/network|cdrom bus/usb network/usb|raw disk/cdrom|usb|raw',
pcmcia => 'fs/network|cdrom disk/cdrom|pcmcia|raw bus/pcmcia network/pcmcia|raw',
other => 'network/main disk/scsi|hardware_raid ONLY_BIG fs/network network/raw fs/cdrom disk/cdrom|raw',
all => 'fs/network|cdrom|loopback|local bus/pcmcia|usb network/main|pcmcia|usb|raw disk/cdrom|scsi|hardware_raid|pcmcia|usb|raw',
);
my $verbose = "@ARGV" =~ /-v/;
images() if "@ARGV" =~ /images/;
check() if "@ARGV" =~ /check/;
sub images {
load_dependencies('modules.dep');
while (my ($image, $l) = each %images) {
my @modules;
foreach (split(' ', $l)) {
if (/ONLY_BIG/) {
@modules = intersection(\@modules, \@skip_big_modules_on_stage1);
next;
}
push @modules, category2modules($_);
}
@modules = difference2(\@modules, \@skip_modules_on_stage1);
if ($image !~ /other|all/) {
@modules = difference2(\@modules, \@skip_big_modules_on_stage1)
}
@modules = map { dependencies_closure($_) } @modules;
printf qq(%s_modules="%s"\n), $image, join(" ", map { "$_.o" } sort @modules);
}
}
sub check {
my $error;
my %listed;
my %big_modules_categories;
while (my ($t1, $l) = each %list_modules::l) {
while (my ($t2, $l) = each %$l) {
ref $l or die "bad $l in $t1/$t2";
print "MODULE: $_\n" foreach @$l;
foreach (@$l) {
$listed{$_} = 1;
push @{$big_modules_categories{$t1}{$t2}}, $_ if member($_, @skip_modules_on_stage1);
}
}
}
# remove accepted categories for other.img
delete $big_modules_categories{disk}{hardware_raid};
delete $big_modules_categories{disk}{scsi};
delete $big_modules_categories{network}{main};
if (map { %$_ } values %big_modules_categories) {
my @l = map { "$_/" . join('|', sort keys %{$big_modules_categories{$_}}) } sort keys %big_modules_categories;
print STDERR "WEIRD CATEGORIES USED FOR other.img: ", join(" ", @l), "\n";
if ($verbose) {
while (my ($t1, $t2s) = each %big_modules_categories) {
print "$t1/$_ used for other.img: ", join(" ", @{$t2s->{$_}}), "\n" foreach keys %$t2s;
}
}
$error = 1;
}
my %deprecated_modules = %listed;
my $not_listed = sub {
my ($msg, $verbose, @l) = @_;
my %not_listed;
foreach (@l) {
my ($mod) = m|([^/]*)\.o(\.gz)?$| or next;
delete $deprecated_modules{$mod};
next if $listed{$mod};
s|.*?mdk(BOOT)?/||;
s|kernel/||; s|drivers/||; s|3rdparty/||;
$_ = dirname $_;
$_ = dirname $_ if $mod eq basename($_);
push @{$not_listed{$_}}, $mod;
}
if ($verbose) {
print "$msg $_: ", join(" ", @{$not_listed{$_}}), "\n" foreach sort keys %not_listed;
}
};
$not_listed->('NOT LISTED', 1, `cd all.kernels/2.4* ; find -name "*.o" -o -name "*.o.gz"`);
$not_listed->('not listed', $verbose, `rpm -qpl /RPMS/kernel-2.4*`);
print "bad/old modules : ", join(" ", sort keys %deprecated_modules), "\n" if %deprecated_modules;
exit $error;
}
|
