Change HWPF Reg Capture to identify addresses using identifiers

HWP Error XML can specify to capture reigsters when an error happens.
Rather than extracting the address (0xxxx) from the Register XML element
the change here is to use the Register XML element as-is, so it must be
a valid identifier (e.g. from p8_scom_addresses.H) or literal.

Change-Id: I838fd39b088a174cea6ac7d86ca66356ced123fe
RTC: 50833
Reviewed-on: http://gfw160.austin.ibm.com:8080/gerrit/5886
Reviewed-by: Brian H. Horton <brianh@linux.ibm.com>
Tested-by: Jenkins Server
Reviewed-by: Donald E. Dahle <dedahle@us.ibm.com>
Reviewed-by: A. Patrick Williams III <iawillia@us.ibm.com>

1 files changed, 7 insertions, 23 deletions

diff --git a/src/usr/hwpf/fapi/fapiParseErrorInfo.pl b/src/usr/hwpf/fapi/fapiParseErrorInfo.pl
index 0117cf077..395d50318 100755
--- a/src/usr/hwpf/fapi/fapiParseErrorInfo.pl
+++ b/src/usr/hwpf/fapi/fapiParseErrorInfo.pl
@@ -56,6 +56,7 @@
 #                                      collectRegisterFfdc element
 #                  mjjones   05/20/13  Support Bus Callouts
 #                  mjjones   06/24/13  Support Children CDGs
+#                  mjjones   08/20/13  Use constants for Reg FFDC collection
 #
 # End Change Log ******************************************************
 
@@ -278,7 +279,8 @@ print CRFILE "#include <fapiCollectRegFfdc.H>\n";
 print CRFILE "#include <fapiTarget.H>\n";
 print CRFILE "#include <fapiReturnCode.H>\n";
 print CRFILE "#include <fapiHwAccess.H>\n";
-print CRFILE "#include <fapiPlatTrace.H>\n\n";
+print CRFILE "#include <fapiPlatTrace.H>\n";
+print CRFILE "#include <fapiPlatRegAddresses.H>\n\n";
 print CRFILE "namespace fapi\n";
 print CRFILE "{\n";
 print CRFILE "void fapiCollectRegFfdc(const fapi::Target & i_target,\n";
@@ -777,33 +779,15 @@ foreach my $argnum (1 .. $#ARGV)
         # Look for CFAM Register addresses
         foreach my $cfamRegister (@{$registerFfdc->{cfamRegister}})
         {
-            # Extract the address
-            if ($cfamRegister =~ m/(0x[\dA-Fa-f]+)/)
-            {
-                print CRFILE "            l_cfamAddresses.push_back($1);\n";
-                print CRFILE "            l_ffdcSize += sizeof(l_cfamData);\n";
-            }
-            else
-            {
-                print ("fapiParseErrorInfo.pl ERROR. CFAM address bad: $cfamRegister\n");
-                exit(1);
-            }
+            print CRFILE "            l_cfamAddresses.push_back($cfamRegister);\n";
+            print CRFILE "            l_ffdcSize += sizeof(l_cfamData);\n";
         }
 
         # Look for SCOM Register addresses
         foreach my $scomRegister (@{$registerFfdc->{scomRegister}})
         {
-            # Extract the address
-            if ($scomRegister =~ m/(0x[\dA-Fa-f]+)/)
-            {
-                print CRFILE "            l_scomAddresses.push_back($1ULL);\n";
-                print CRFILE "            l_ffdcSize += sizeof(l_scomData);\n";
-            }
-            else
-            {
-                print ("fapiParseErrorInfo.pl ERROR. SCOM address bad: $scomRegister\n");
-                exit(1);
-            }
+            print CRFILE "            l_scomAddresses.push_back($scomRegister);\n";
+            print CRFILE "            l_ffdcSize += sizeof(l_scomData);\n";
         }
 
         print CRFILE "            break;\n";