diff options
Diffstat (limited to 'util/amdtools')
| -rw-r--r-- | util/amdtools/README | 6 | ||||
| -rwxr-xr-x | util/amdtools/k8-compare-pci-space.pl | 6 | ||||
| -rwxr-xr-x | util/amdtools/k8-interpret-extended-memory-settings.pl | 4 | ||||
| -rwxr-xr-x | util/amdtools/parse-bkdg.pl | 4 |
4 files changed, 10 insertions, 10 deletions
diff --git a/util/amdtools/README b/util/amdtools/README index a1601fe8c7..da14bf3c00 100644 --- a/util/amdtools/README +++ b/util/amdtools/README @@ -24,9 +24,9 @@ Finally run the txt file through the parse-bkdg.pl script like so: Now we have the bkdg.data file that is used by the other scripts. If you want to test the scripts without doing all this work, you can use some -sample input files from the 'example_input/' directory. +sample input files from the 'example_input/' directory. --- +-- Ward Vandewege, 2009-10-28. ward@jhvc.com - + diff --git a/util/amdtools/k8-compare-pci-space.pl b/util/amdtools/k8-compare-pci-space.pl index 16ecb34067..97ef3e9ff1 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<br>\n" if ($DEBUG); } else { @@ -107,7 +107,7 @@ sub parse_file_old { $data{$devreg}{$filename} = $packed; } } - return %data; + return %data; } sub interpret_differences { diff --git a/util/amdtools/k8-interpret-extended-memory-settings.pl b/util/amdtools/k8-interpret-extended-memory-settings.pl index 0bb4e62a44..3ecc2a53e0 100755 --- a/util/amdtools/k8-interpret-extended-memory-settings.pl +++ b/util/amdtools/k8-interpret-extended-memory-settings.pl @@ -63,7 +63,7 @@ sub parse_file { 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<br>\n" if ($DEBUG); } else { @@ -77,7 +77,7 @@ sub parse_file { $data{$devreg}{$filename} = $packed; } } - return %data; + return %data; } sub interpret_differences { diff --git a/util/amdtools/parse-bkdg.pl b/util/amdtools/parse-bkdg.pl index d359e4abe7..8ef93b7616 100755 --- a/util/amdtools/parse-bkdg.pl +++ b/util/amdtools/parse-bkdg.pl @@ -191,7 +191,7 @@ while (<>) { $previous_start = $start; $previous_stop = $stop; - # the 'range' field is not useful in this instance, but used in the 'fields' version of this block to easily go + # the 'range' field is not useful in this instance, but used in the 'fields' version of this block to easily go # from a bit position to the corresponding range. my $str = " \$info{'$registers[0]'}{'ranges'}{'" . $f[0] . "'}{'function'} = \"" . $f[2] . "\"; @@ -260,7 +260,7 @@ sub multiply { my $tmp = $str; $tmp =~ s/\{'$range'\}/{'$i'}/g; $tmp =~ s/\{'ranges'\}/{'fields'}/g; - $tmp .= + $tmp .= $output .= $tmp; } |