diff options
author | Thi Tran <thi@us.ibm.com> | 2012-06-13 08:04:02 -0500 |
---|---|---|
committer | A. Patrick Williams III <iawillia@us.ibm.com> | 2012-06-18 14:44:20 -0500 |
commit | 590ecd811e0520a17d4bcd61328bcb67f23f123e (patch) | |
tree | b02f34cd1459c580d80552e1d2fbef3d97d64db1 /src/build/debug/vpo-debug-framework.pl | |
parent | 2831a6fd7e6dff758d9eaf29147a13bf59c80126 (diff) | |
download | talos-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-x | src/build/debug/vpo-debug-framework.pl | 10 |
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"; |