blob: 276fad24e6d70e862bc70a72ef90a31ab2b787e1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
#!/usr/bin/perl
# IBM_PROLOG_BEGIN_TAG
# This is an automatically generated prolog.
#
# $Source: src/build/vpo/hb-dump $
#
# IBM CONFIDENTIAL
#
# COPYRIGHT International Business Machines Corp. 2011
#
# p1
#
# Object Code Only (OCO) source materials
# Licensed Internal Code Source Materials
# IBM HostBoot Licensed Internal Code
#
# The source code for this program is not published or other-
# wise divested of its trade secrets, irrespective of what has
# been deposited with the U.S. Copyright Office.
#
# Origin: 30
#
# IBM_PROLOG_END
#
# Purpose: This perl script works on VBU and will dump the entire L3 cache
#
# Author: CamVan Nguyen
# Last Updated: 09/07/2011
#
#------------------------------------------------------------------------------
# Specify perl modules to use
#------------------------------------------------------------------------------
use strict;
use warnings;
#------------------------------------------------------------------------------
# Forward Declaration
#------------------------------------------------------------------------------
sub printUsage;
#==============================================================================
# MAIN
#==============================================================================
#------------------------------------------------------------------------------
# Parse optional input arguments
#------------------------------------------------------------------------------
my $numArgs = $#ARGV + 1;
#print "num args = $numArgs\n";
#print "argument list = @ARGV\n";
my $hbDir = $ENV{'HBDIR'};
if (defined ($hbDir))
{
unless ($hbDir ne "")
{
$hbDir = '.'; #Set to current directory
}
}
else
{
$hbDir = '.'; #Set to current directory
}
for (my $i=0; $i<$numArgs; $i++)
{
if (($ARGV[$i] eq "--help") || ($ARGV[$i] eq "-h"))
{
#Print command line help
printUsage();
exit (0);
}
elsif ($ARGV[$i] eq "--in")
{
if (($i + 1) >= $numArgs)
{
die "No value given for --in parameter.\n";
}
$i++;
$hbDir = $ARGV[$i];
}
elsif ($ARGV[$i] eq "--out")
{
if (($i + 1) >= $numArgs)
{
die "No value given for --out parameter.\n";
}
$i++;
}
elsif ($ARGV[$i] !~ m/^-[cknsp]\d+/)
{
print "Invalid argument entered: $ARGV[$i]\n";
printUsage();
exit(1);
}
}
#------------------------------------------------------------------------------
# Dump L3
#------------------------------------------------------------------------------
my $command = "$hbDir/hb-virtdebug.pl @ARGV";
system($command);
#==============================================================================
# SUBROUTINES
#==============================================================================
#------------------------------------------------------------------------------
# Print command line help
#------------------------------------------------------------------------------
sub printUsage()
{
print ("\nUsage: hb-dump [--help] | [--in <path to hb-virtdebug.pl>]\n");
print (" [--out <path to save output data>]\n");
print (" [-k#] [-n#] [-s#] [-p#] [-c#]\n\n");
print (" This program dumps the entire L3 to a file.\n");
print (" Use the hb-parsedump.pl program to expand and view data in the file.\n\n");
print (" User should copy hb-virtdebug.pl to the current directory or set\n");
print (" the env variable HBDIR to the path of the file.\n\n");
print (" --help Prints usage information.\n");
print (" --in Overrides the automatically detected hb-virtdebug.pl file\n");
print (" in HBDIR or the current directory.\n");
print (" This program will search for the file in the ");
print ("following order:\n");
print (" 1. from the path specified by the user\n");
print (" 2. from HBDIR if it is defined\n");
print (" 3. from the current directory\n");
print (" --out Directory where the output data will be saved.\n");
print (" Default path is the current directory.\n");
print (" -k# Specify which cage to act on (default = 0).\n");
print (" -n# Specify which node to act on (default = 0).\n");
print (" -s# Specify which slot to act on (default = 0).\n");
print (" -p# Specify which chip position to act on (default = 0).\n");
print (" -c# Specify which core/chipUnit to act on (default = 3).\n");
print ("\n NOTE: This program will not work if user has not stopped instructions\n");
print (" prior to running this program.\n");
}
|
