Force a Hostboot dump on any TI in Simics

Execute a magic instruction in the TI path to force a hostboot
dump to be collected on any TI while running in Simics.

Change-Id: I8aeffb2b646bbe8480568e8af33a658400fa01a5
Reviewed-on: http://rchgit01.rchland.ibm.com/gerrit1/88831
Reviewed-by: Nicholas E Bofferding <bofferdn@us.ibm.com>
Reviewed-by: Matt Derksen <mderkse1@us.ibm.com>
Tested-by: Jenkins Server <pfd-jenkins+hostboot@us.ibm.com>
Tested-by: Jenkins OP Build CI <op-jenkins+hostboot@us.ibm.com>
Tested-by: Jenkins OP HW <op-hw-jenkins+hostboot@us.ibm.com>
Tested-by: FSP CI Jenkins <fsp-CI-jenkins+hostboot@us.ibm.com>
Reviewed-by: William G Hoffa <wghoffa@us.ibm.com>

1 files changed, 11 insertions, 3 deletions

diff --git a/src/build/debug/Hostboot/Dump.pm b/src/build/debug/Hostboot/Dump.pm
index 705638aa2..90b445df9 100755
--- a/src/build/debug/Hostboot/Dump.pm
+++ b/src/build/debug/Hostboot/Dump.pm
@@ -6,7 +6,7 @@
 #
 # OpenPOWER HostBoot Project
 #
-# Contributors Listed Below - COPYRIGHT 2012,2018
+# Contributors Listed Below - COPYRIGHT 2012,2019
 # [+] International Business Machines Corp.
 #
 #
@@ -106,6 +106,13 @@ sub main
         $debug = 1;
     }
 
+    # Parse 'quiet' option.
+    my $quiet = 0;
+    if (defined $args->{"quiet"})
+    {
+        $quiet = 1;
+    }
+
     # Check for a different output directory
     my $outdir = "./";
     if (defined $args->{"outdir"})
@@ -128,7 +135,7 @@ sub main
     open( OUTFH, ">$hbDumpFile" )   or die "can't open $hbDumpFile: $!\n";
     binmode(OUTFH);
 
-    ::userDisplay "Using HRMOR=". ::getHRMOR() . "\n";
+    ::userDisplay "Using HRMOR=". sprintf("0x%X",::getHRMOR()) . "\n";
 
     # Read memory regions and output to file.
     foreach my $state (@{$memory_states{int $memstate}})
@@ -152,7 +159,7 @@ sub main
                     $curlength = $length_remaining;
                 }
 
-                ::userDisplay (sprintf "...%x@%x\n", $curlength, $curstart);
+                ::userDisplay (sprintf "...%x@%x\n", $curlength, $curstart) if !$quiet;
 
                 my $data = ::readData($curstart, $curlength);
                 seek OUTFH, $curstart, SEEK_SET;
@@ -187,6 +194,7 @@ sub helpInfo
         options => {
                     "outdir=<path>" =>  ["Output directory for dump file"],
                     "debug" => ["More debug output."],
+                    "quiet" => ["Less output."],
                    },
     );
 }