diff options
author | 2015-08-28 09:58:54 +0800 | |
---|---|---|
committer | 2015-09-01 12:44:00 +0800 | |
commit | e44e3482bdb4d0ebde2d8b41830ac2cdb07948fb (patch) | |
tree | 66b09f592c55df2878107a468a91d21506104d3f /qemu/roms/ipxe/src/util/romcheck.pl | |
parent | 9ca8dbcc65cfc63d6f5ef3312a33184e1d726e00 (diff) |
Add qemu 2.4.0
Change-Id: Ic99cbad4b61f8b127b7dc74d04576c0bcbaaf4f5
Signed-off-by: Yang Zhang <yang.z.zhang@intel.com>
Diffstat (limited to 'qemu/roms/ipxe/src/util/romcheck.pl')
-rwxr-xr-x | qemu/roms/ipxe/src/util/romcheck.pl | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/qemu/roms/ipxe/src/util/romcheck.pl b/qemu/roms/ipxe/src/util/romcheck.pl new file mode 100755 index 000000000..f47bb07e8 --- /dev/null +++ b/qemu/roms/ipxe/src/util/romcheck.pl @@ -0,0 +1,54 @@ +#!/usr/bin/perl -w + +use strict; +use warnings; + +use constant DEVICES => "/proc/bus/pci/devices"; + +open my $fh, DEVICES + or die "Could not open ".DEVICES.": $!"; + +while ( ( my $line = <$fh> ) ) { + + # Parse line from /proc/bus/pci/devices + chomp $line; + ( my $bus, my $devfn, my $vendor, my $device, my $irq, my $bars, my $lengths, + my $driver ) + = ( $line =~ /^ ([0-9a-f]{2}) ([0-9a-f]{2}) \s+ + ([0-9a-f]{4}) ([0-9a-f]{4}) \s+ ([0-9a-f]+) \s+ + ((?:[0-9a-f]+\s+){7}) ((?:[0-9a-f]+\s+){7}) + (.+)?$/x ) + or die "Invalid line \"".$line."\"\n"; + ( $bus, $devfn, $vendor, $device, $irq ) = + map { hex ( $_ ) } ( $bus, $devfn, $vendor, $device, $irq ); + my $dev = ( $devfn >> 3 ); + my $fn = ( $devfn & 0x7 ); + $bars = [ map { hex ( $_ ) } split ( /\s+/, $bars ) ]; + $lengths = [ map { hex ( $_ ) } split ( /\s+/, $lengths ) ]; + + # Calculate expansion ROM BAR presence and length + my $rom_length = $lengths->[6]; + + # Look for a BAR that could support a .mrom + my $mrom_ok; + if ( $rom_length ) { + for ( my $bar = 0 ; $bar < 7 ; $bar++ ) { + # Skip I/O BARs + next if $bars->[$bar] & 0x01; + # Skip low half of 64-bit BARs + $bar++ if $bars->[$bar] & 0x04; + # Skip 64-bit BARs with high dword set + next if $bars->[$bar] >> 32; + # Skip BARs smaller than the expansion ROM BAR + next if $lengths->[$bar] < $rom_length; + # This BAR is usable! + $mrom_ok = 1; + last; + } + } + + printf "%02x:%02x.%x (%04x:%04x)", $bus, $dev, $fn, $vendor, $device; + printf " supports a %dkB .rom", ( $rom_length / 1024 ) if $rom_length; + printf " or .mrom" if $mrom_ok; + printf "\n"; +} |