also report when pcitable is "too old"

1 files changed, 13 insertions, 0 deletions

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";