From b4108a7ae2b31571b4f2f1c9d40c4610d2994824 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Wed, 27 Feb 2002 19:25:18 +0000 Subject: also report when pcitable is "too old" --- mdk-stage1/pcmcia_/merge_from_pcitable | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'mdk-stage1/pcmcia_/merge_from_pcitable') diff --git a/mdk-stage1/pcmcia_/merge_from_pcitable b/mdk-stage1/pcmcia_/merge_from_pcitable index f91002517..7d980312d 100755 --- a/mdk-stage1/pcmcia_/merge_from_pcitable +++ b/mdk-stage1/pcmcia_/merge_from_pcitable @@ -26,8 +26,21 @@ foreach my $k (sort keys %$drivers) { push @pcitable, { vendor => $1, device => $2, driver => $v->[0], name => $v->[1], vd => "$1$2" }; } +print "Missing in `probe.c':\n"; foreach my $p (@pcitable) { next if $p->{driver} ne 'yenta_socket'; member($p->{vd}, map { $_->{vd} } @probes) or print " { 0x$p->{vendor}, 0x$p->{device}, \"..\", \"$p->{name}\" },\n"; } +print "\n"; + +print "Missing in pcitable:\n"; +foreach my $p (@probes) { + my @r = grep { $_->{vd} eq $p->{vd} } @pcitable; + @r > 1 and die "duplicate entry in pcitable <$p->{vd}>\n"; + if (@r && $r[0]->{driver} ne 'yenta_socket') { + print "0x$p->{vendor}\t0x$p->{device}\t\"yenta_socket\"\t\"$r[0]->{name}\"\n"; + $r[0]->{driver} ne 'unknown' and print STDERR "WARNING, driver was <$r[0]->{driver}>\n"; + } +} +print "\n"; -- cgit v1.2.1