Update hb-trace tool to handle lockless updates

Change-Id: I6cb2e580002296da1f7451b251d3d03ed0f03b3d
Reviewed-on: http://gfw160.aus.stglabs.ibm.com:8080/gerrit/21924
Tested-by: Jenkins Server
Reviewed-by: Daniel M. Crowell <dcrowell@us.ibm.com>
Reviewed-by: WILLIAM G. HOFFA <wghoffa@us.ibm.com>
Reviewed-by: A. Patrick Williams III <iawillia@us.ibm.com>
Reviewed-on: http://gfw160.aus.stglabs.ibm.com:8080/gerrit/22060
Tested-by: A. Patrick Williams III <iawillia@us.ibm.com>

1 files changed, 14 insertions, 1 deletions

diff --git a/src/build/debug/Hostboot/Trace.pm b/src/build/debug/Hostboot/Trace.pm
index f88a423a1..7b1d02927 100755
--- a/src/build/debug/Hostboot/Trace.pm
+++ b/src/build/debug/Hostboot/Trace.pm
@@ -6,7 +6,9 @@
 #
 # OpenPOWER HostBoot Project
 #
-# COPYRIGHT International Business Machines Corp. 2011,2014
+# Contributors Listed Below - COPYRIGHT 2011,2015
+# [+] International Business Machines Corp.
+#
 #
 # Licensed under the Apache License, Version 2.0 (the "License");
 # you may not use this file except in compliance with the License.
@@ -109,6 +111,7 @@ sub main
     {
         my $buffer = ::read64($serviceAddr + 8*$i);
         my $page = ::read64($buffer + BUFFER_FIRST_PAGE_OFFSET);
+        $page = extractABAptr($page);
 
         readPage($page, BUFFER_PAGE_PREV_OFFSET, \@bufferPages);
     }
@@ -231,6 +234,16 @@ sub round8
     return $val;
 }
 
+sub extractABAptr
+{
+    my ($val) = @_;
+
+    $val = ($val & 0xFFFFFFFF);
+
+    return $val;
+}
+
+
 sub lookupComponent
 {
     my ($ptr, $hash) = @_;