Since some people disapprove of white space cleanups mixed in regular commits
while others dislike them being extra commits, let's clean them up once and for all for the existing code. If it's ugly, let it only be ugly once :-) Signed-off-by: Stefan Reinauer <stepan@coresystems.de> Acked-by: Stefan Reinauer <stepan@coresystems.de> git-svn-id: svn://svn.coreboot.org/coreboot/trunk@5507 2b7e53f0-3cfb-0310-b3e9-8179ed1497e1
This commit is contained in:
committed by
Stefan Reinauer
parent
0e1e8065e3
commit
14e2277962
@@ -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
|
||||
|
||||
|
||||
|
@@ -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 {
|
||||
|
@@ -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 {
|
||||
|
@@ -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;
|
||||
}
|
||||
|
||||
|
Reference in New Issue
Block a user