diff options
author | Justin M. Forbes <jforbes@fedoraproject.org> | 2021-03-17 12:38:46 -0500 |
---|---|---|
committer | Justin M. Forbes <jforbes@fedoraproject.org> | 2021-03-17 12:38:46 -0500 |
commit | 2d7cbaa6f9fa69d3f60984b67c2d03e57e6d9759 (patch) | |
tree | a1d03aed06bd868aef5d39f73d2bd5b64941612a /scripts/check-configs.pl | |
parent | 8cb9b8957f6c41855069d943280362fbf45cdbf1 (diff) | |
download | kernel-2d7cbaa6f9fa69d3f60984b67c2d03e57e6d9759.tar.gz kernel-2d7cbaa6f9fa69d3f60984b67c2d03e57e6d9759.tar.xz kernel-2d7cbaa6f9fa69d3f60984b67c2d03e57e6d9759.zip |
kernel-5.11.7-9
* Wed Mar 17 2021 Justin M. Forbes <jforbes@fedoraproject.org> [5.11.7-9]
- Disable weak-modules again rhbz 1828455 (Justin M. Forbes)
- More config updates for gcc-plugin turn off (Justin M. Forbes)
- fedora: the PCH_CAN driver is x86-32 only (Peter Robinson)
- common: disable legacy CAN device support (Peter Robinson)
- common: Enable Microchip MCP251x/MCP251xFD CAN controllers (Peter Robinson)
- common: Bosch MCAN support for Intel Elkhart Lake (Peter Robinson)
- common: enable CAN_PEAK_PCIEFD PCI-E driver (Peter Robinson)
- common: disable CAN_PEAK_PCIEC PCAN-ExpressCard (Peter Robinson)
- common: enable common CAN layer 2 protocols (Peter Robinson)
- ark: disable CAN_LEDS option (Peter Robinson)
Resolves: rhbz#
Signed-off-by: Justin M. Forbes <jforbes@fedoraproject.org>
Diffstat (limited to 'scripts/check-configs.pl')
-rw-r--r-- | scripts/check-configs.pl | 83 |
1 files changed, 0 insertions, 83 deletions
diff --git a/scripts/check-configs.pl b/scripts/check-configs.pl deleted file mode 100644 index c74acf1d4..000000000 --- a/scripts/check-configs.pl +++ /dev/null @@ -1,83 +0,0 @@ -# By Paul Bolle October 2014. -# -# Contributed to the public domain by its author. - -use 5.016; -use warnings; -use autodie; - -use File::Find; - -my @Kconfigs; - -my $Kconfigre = qr/Kconfig.*/; -my $configre = qr/^\s*(menu)?config\s+(?<config>(\w+))$/; -my $CONFIG_re = qr/\bCONFIG_(?<CONFIG_>(\w+))/; - -sub match { - push( @Kconfigs, $File::Find::name ) if ($_ =~ $Kconfigre); -} - -sub parse_kconfig { - my ($path) = @_; - - my @ret; - - open( my $kconfig, "<", $path ); - my $slurp = do { local $/ = undef; <$kconfig> }; - close( $kconfig ); - my @lines = split ( /\n/, $slurp ); - foreach my $line (@lines) { - if ($line =~ /$configre/) { - push( @ret, $+{config} ); - } - } - - @ret; -} - -sub parse_shipped { - my ($path) = @_; - - my @ret; - - open( my $shipped, "<", $path ); - my $slurp = do { local $/ = undef; <$shipped> }; - close( $shipped ); - my @lines = split ( /\n/, $slurp ); - my $i = 1; - foreach my $line (@lines) { - if ($line =~ /$CONFIG_re/) { - push( @ret, [$i, $+{CONFIG_}] ); - } - $i++; - } - - @ret; -} - -exit main ( @ARGV ); - -sub main { - my %configs; - - find( \&match, @_ ); - - foreach my $Kconfig (@Kconfigs) { - my (@tmp) = parse_kconfig( $Kconfig ); - foreach my $config ( @tmp ) { - $configs{ $config }++; - } - } - - foreach my $shipped (glob("*.config")) { - my (@tmp) = parse_shipped( $shipped ); - foreach my $ref ( @tmp ) { - say( STDERR "$shipped:$ref->[0]: No Kconfig symbol matches 'CONFIG_$ref->[1]'" ) - unless (grep( /^$ref->[1]$/, keys( %configs ))); - } - } - - 0; -} - |