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
|
# IBM_PROLOG_BEGIN_TAG
# This is an automatically generated prolog.
#
# $Source: src/build/debug/Hostboot/VirtToPhys.pm $
#
# OpenPOWER HostBoot Project
#
# COPYRIGHT International Business Machines Corp. 2012,2014
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
# implied. See the License for the specific language governing
# permissions and limitations under the License.
#
# IBM_PROLOG_END_TAG
#
use strict;
use Hostboot::_DebugFrameworkVMM;
package Hostboot::VirtToPhys;
use Exporter;
use integer;
our @EXPORT_OK = ('main');
sub main
{
#::userDisplay "VirtToPhys module.\n";
my ($packName,$args) = @_;
my $phyAddr = Hostboot::_DebugFrameworkVMM::NotFound;
my $debug = 0;
my $displaySPTE = 0;
if (defined $args->{"debug"})
{
$debug = 1;
}
if( (defined $args->{"SPTE"}) || (defined $args->{"spte"}) )
{
$displaySPTE = 1;
}
# Parse 'vaddr' argument.
if (not defined $args->{"vaddr"})
{
::userDisplay "ERROR.. Did not pass in Virtual Address.\n";
die;
}
my $vaddr = hex($args->{"vaddr"});
if ($debug)
{
::userDisplay (sprintf "\n Virtual Address = %X\n" , $vaddr);
}
$phyAddr = Hostboot::_DebugFrameworkVMM::getPhysicalAddr($vaddr, $debug, $displaySPTE);
if (($phyAddr eq Hostboot::_DebugFrameworkVMM::NotFound) ||
($phyAddr eq Hostboot::_DebugFrameworkVMM::NotPresent))
{
::userDisplay ("The Physical Address = $phyAddr\n");
}
else
{
::userDisplay (sprintf "The Physical Address = 0x%X\n" , $phyAddr);
}
return $phyAddr;
}
sub helpInfo
{
my %info = (
name => "VirtToPhys",
intro => ["Take a virtual address and return its physical address"],
options => {
"vaddr=<number>" => ["Virtual Address "],
"debug" => ["More debug output."],
"SPTE" => ["Display the SPTE for the VA passed in"],
},
);
}
|