|
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)
{
|