commit 3d30890d45a89f12933b8604976acb9014f7dc3a
author Zane Shelley <zshelle@us.ibm.com> Fri Jun 04 16:35:33 2021 -0500
committer Zane Shelley <zshelle@us.ibm.com> Fri Jun 04 16:35:33 2021 -0500
tree 5f398e0702aeb6e224516a0402cff41bd1c15253
parent bc3c04023c65b1490d16dca4c231f0fc9f2e8669

Add attn types to PEL parser output

Signed-off-by: Zane Shelley <zshelle@us.ibm.com>
Change-Id: Ibbaf4e900d8a8bbe625ae3611e6731f6fc890c97

xml/parse_chip_data_xml

diff --git a/xml/parse_chip_data_xml b/xml/parse_chip_data_xml
index b75eb39..2de400c 100755
--- a/xml/parse_chip_data_xml
+++ b/xml/parse_chip_data_xml
@@ -50,11 +50,11 @@
 # Supported attention types and their values.
 my $ATTN_TYPE =
 {
-    CS  => 1, # System checkstop hardware attention
-    UCS => 2, # Unit checkstop hardware attention
-    RE  => 3, # Recoverable hardware attention
-    SPA => 4, # SW or HW event requiring action by the service processor FW
-    HA  => 5, # SW or HW event requiring action by the host FW
+    CS  => [ 1, 'checkstop'         ], # System checkstop hardware attention
+    UCS => [ 2, 'unit checkstop'    ], # Unit checkstop hardware attention
+    RE  => [ 3, 'recoverable'       ], # Recoverable hardware attention
+    SPA => [ 4, 'special attention' ], # event requiring action by the SP FW
+    HA  => [ 5, 'host attention'    ], # event requiring action by the host FW
 };
 
 #-------------------------------------------------------------------------------
@@ -1097,7 +1097,7 @@
             for my $r ( @{$i->{rule}} )
             {
                 # Register rule metadata
-                __bin($fh, 1, $ATTN_TYPE->{$r->{attn_type}});
+                __bin($fh, 1, $ATTN_TYPE->{$r->{attn_type}}->[0]);
                 __printExpr($fh, $reg_size, $r->{expr});
             }
 
@@ -1131,9 +1131,9 @@
     for my $r ( @{$data} )
     {
         # Root Node metadata
-        __bin($fh, 1, $ATTN_TYPE->{$r->{attn_type}});
-        __bin($fh, 2, __hash(2, $r->{root_node})   );
-        __bin($fh, 1, $r->{node_inst}              );
+        __bin($fh, 1, $ATTN_TYPE->{$r->{attn_type}}->[0]);
+        __bin($fh, 2, __hash(2, $r->{root_node})        );
+        __bin($fh, 1, $r->{node_inst}                   );
     }
 }
 
@@ -1145,9 +1145,16 @@
 
     # IMPORTANT: All hash keys with hex values must be lowercase.
 
+    my $attns = {};
     my $regs  = {};
     my $sigs  = {};
 
+    # Get the list of attention types.
+    while ( my ($k, $v) = each %{$ATTN_TYPE} )
+    {
+        $attns->{$v->[0]} = $v->[1];
+    }
+
     # Get the signature data.
     for my $s ( @{$sig_list} )
     {
@@ -1225,6 +1232,7 @@
     my $data =
     {
         'model_ec'   => sprintf('%08x', $SUPPORTED_MODEL_EC->{$model_ec}),
+        'attn_types' => $attns,
         'registers'  => $regs,
         'signatures' => $sigs,
     };