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 $
#
# IBM CONFIDENTIAL
#
# COPYRIGHT International Business Machines Corp. 2012
#
# 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_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"],
},
);
}
|
