X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=util%2Famdtools%2Fk8-compare-pci-space.pl;h=97ef3e9ff17d668ddfa7bc74c6ab1e64b1d18d15;hb=4b7b320ff80c1047503e26fd387ba3d8acd996d9;hp=16ecb3406761f393f69bb74baa79c50f8219f76a;hpb=3d83cff04baaa5ba98e7ab373524dbf57f5312da;p=coreboot.git diff --git a/util/amdtools/k8-compare-pci-space.pl b/util/amdtools/k8-compare-pci-space.pl index 16ecb3406..97ef3e9ff 100755 --- a/util/amdtools/k8-compare-pci-space.pl +++ b/util/amdtools/k8-compare-pci-space.pl @@ -55,7 +55,7 @@ sub parse_file { next if (!(/^([a-f0-9]{2}): ([[a-f0-9 ]+)$/i)); # Line format # 00: 22 10 02 11 00 00 00 00 00 00 00 06 00 00 80 00 -#print STDERR hex($1) . " ($1): $2\n"; +#print STDERR hex($1) . " ($1): $2\n"; my $regoffset = hex($1); my @values = split(/ /,$2); for (my $i=0;$i<=$#values;$i++) { @@ -93,7 +93,7 @@ sub parse_file_old { if ($tmp[1] eq '98.l') { $register = ($tmp[2] =~ /(..)$/)[0]; # last 2 digits are (hex) of what we wrote to the register, if second field is 98.l $devreg = "$device $register"; - if ("$binrep" =~ /^1/) { + if ("$binrep" =~ /^1/) { # bit 31 *must* be 1 if readout is to be correct print "$tmp[0] - $register
\n" if ($DEBUG); } else { @@ -107,7 +107,7 @@ sub parse_file_old { $data{$devreg}{$filename} = $packed; } } - return %data; + return %data; } sub interpret_differences {