From: Randy D. <rd...@us...> - 2003-03-31 04:04:07
|
Update of /cvsroot/acpi/pmtools/acpidmp In directory sc8-pr-cvs1:/tmp/cvs-serv4360/acpidmp Modified Files: acpitbl acpixtract Log Message: update to v20010730; Index: acpitbl =================================================================== RCS file: /cvsroot/acpi/pmtools/acpidmp/acpitbl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -u -d -r1.1.1.1 -r1.2 --- acpitbl 31 Mar 2003 03:35:17 -0000 1.1.1.1 +++ acpitbl 31 Mar 2003 04:04:04 -0000 1.2 @@ -64,13 +64,15 @@ { local(*OUT, *desc, *data) = @_; my(%size_to_tmpl) = - ("D1"=>"C", "D2"=>"S", "D4"=>"I", - "X1"=>"C", "X2"=>"S", "X4"=>"I", - "A4"=>"A4", "A6"=>"A6", "A8"=>"A8"); + ("D1"=>"C", "D2"=>"S", "D4"=>"I", + "X1"=>"C", "X2"=>"S", "X3"=>"a3", + "X4"=>"I", "A4"=>"A4", "A6"=>"A6", + "A8"=>"A8"); my(%size_to_fmt) = ("D1"=>"%d", "D2"=>"%d", "D4"=>"%d", - "X1"=>"0x%02x", "X2"=>"0x%04x", "X4"=>"0x%08x", - "A4"=>"%s", "A6"=>"%s", "A8"=>"%s"); + "X1"=>"0x%02x", "X2"=>"0x%04x", "X3"=>"0x%06x", + "X4"=>"0x%08x", "A4"=>"%s", "A6"=>"%s", + "A8"=>"%s"); my($tmpl) = ""; my($max_size) = 0; Index: acpixtract =================================================================== RCS file: /cvsroot/acpi/pmtools/acpidmp/acpixtract,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -u -d -r1.1.1.1 -r1.2 --- acpixtract 31 Mar 2003 03:35:17 -0000 1.1.1.1 +++ acpixtract 31 Mar 2003 04:04:04 -0000 1.2 @@ -45,7 +45,10 @@ } elsif($interior && /\s+[\dA-Fa-f]{4}:\s+/) { - print OUT pack('C*', map(hex, (split(/\s/, $'))[0..15])); + $_ = $'; + /\s{2}/; + $length = ((length($`) + 1) / 3) - 1; + print OUT pack('C*', map(hex, (split(/\s/, $`))[0..$length])); } elsif($interior) { |