summaryrefslogtreecommitdiffstats
path: root/src/build/debug/vpo-debug-framework.pl
diff options
context:
space:
mode:
authorThi Tran <thi@us.ibm.com>2012-06-13 08:04:02 -0500
committerA. Patrick Williams III <iawillia@us.ibm.com>2012-06-18 14:44:20 -0500
commit590ecd811e0520a17d4bcd61328bcb67f23f123e (patch)
treeb02f34cd1459c580d80552e1d2fbef3d97d64db1 /src/build/debug/vpo-debug-framework.pl
parent2831a6fd7e6dff758d9eaf29147a13bf59c80126 (diff)
downloadtalos-hostboot-590ecd811e0520a17d4bcd61328bcb67f23f123e.tar.gz
talos-hostboot-590ecd811e0520a17d4bcd61328bcb67f23f123e.zip
Update VPO tools for Murano model & run on first good core
RTC: 41721 Change-Id: I2b06de1eb2b6eba400c9c0e6ffad0a27699f8f21 Reviewed-on: http://gfw160.austin.ibm.com:8080/gerrit/1193 Tested-by: Jenkins Server Reviewed-by: A. Patrick Williams III <iawillia@us.ibm.com>
Diffstat (limited to 'src/build/debug/vpo-debug-framework.pl')
-rwxr-xr-xsrc/build/debug/vpo-debug-framework.pl10
1 files changed, 6 insertions, 4 deletions
diff --git a/src/build/debug/vpo-debug-framework.pl b/src/build/debug/vpo-debug-framework.pl
index 12cee677c..6d00f33cd 100755
--- a/src/build/debug/vpo-debug-framework.pl
+++ b/src/build/debug/vpo-debug-framework.pl
@@ -29,6 +29,7 @@ use strict;
use warnings;
use POSIX;
+use Cwd;
use Getopt::Long;
use Pod::Usage;
use File::Temp ('tempfile');
@@ -81,12 +82,13 @@ my $toolHelp = 0;
my $debug = 0;
my $mute = 0;
my $nosavestates = 0;
-my @ecmdOpt = ("-c3");
+my @ecmdOpt = ("-cft");
my @threadState = ();
my $l2Flushed = 0;
my $fh;
# Use HB_VBUTOOLS env if specified
+my $outDir = getcwd();
my $vbuToolDir = $ENV{'HB_VBUTOOLS'};
if (defined ($vbuToolDir))
{
@@ -321,7 +323,7 @@ sub readData
}
#Read the cache lines from L3 and save to temp file
- my (undef, $fname) = tempfile("tmpXXXXX");
+ my (undef, $fname) = tempfile("tmpXXXXX", DIR => "$outDir");
my $command = sprintf ("$vbuToolDir/p8_dump_l3 %x $numCacheLines -f $fname -b @ecmdOpt",
$addr);
@@ -369,7 +371,7 @@ sub writeData
}
#read the cachelines from L3 & save to temp file
- my ($fh, $fname) = tempfile("tmpXXXXX");
+ my ($fh, $fname) = tempfile("tmpXXXXX", DIR => "$outDir");
binmode $fh;
print $fh (readData($base, $numCacheLines * CACHELINESIZE));
if ($debug)
@@ -396,7 +398,7 @@ sub writeData
if ($debug)
{
- ($fh, $fname) = tempfile("tmpXXXXX");
+ ($fh, $fname) = tempfile("tmpXXXXX", DIR => "$outDir");
binmode $fh;
print $fh (readData($base, $numCacheLines * CACHELINESIZE));
print "data written\n";
OpenPOWER on IntegriCloud