diff options
Diffstat (limited to 'mdk-stage1/pci-resource')
| -rwxr-xr-x | mdk-stage1/pci-resource/update-pci-ids.pl | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/mdk-stage1/pci-resource/update-pci-ids.pl b/mdk-stage1/pci-resource/update-pci-ids.pl index 09bb6f02e..73f1d151b 100755 --- a/mdk-stage1/pci-resource/update-pci-ids.pl +++ b/mdk-stage1/pci-resource/update-pci-ids.pl @@ -1,9 +1,10 @@ #!/usr/bin/perl +use strict; use MDK::Common; require '/usr/bin/merge2pcitable.pl'; -my $drivers = read_pcitable("/usr/share/ldetect-lst/pcitable"); +my $pci = read_pcitable("/usr/share/ldetect-lst/pcitable"); print ' #define PCI_REVISION_ID 0x08 /* Revision ID */ @@ -22,15 +23,15 @@ my %t = ( medias => 'disk/scsi|hardware_raid', ); -foreach $type (keys %t) { +foreach my $type (keys %t) { my @modules = chomp_(`perl ../../kernel/modules.pl pci_modules4stage1:"$t{$type}"`); print "#ifndef DISABLE_".uc($type)." struct pci_module_map ${type}_pci_ids[] = { "; - foreach my $k (sort keys %$drivers) { - $v = $drivers->{$k}; + foreach my $k (sort keys %$pci) { + my $v = $pci->{$k}; member($v->[0], @modules) or next; $k =~ /^(....)(....)/; printf qq|\t{ 0x%s, 0x%s, "%s", "%s" },\n|, @@ -42,6 +43,4 @@ int ${type}_num_ids = sizeof(${type}_pci_ids) / sizeof(struct pci_module_map); #endif "; - - print STDERR "\n"; } |