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
|
/* IBM_PROLOG_BEGIN_TAG
* This is an automatically generated prolog.
*
* $Source: src/usr/pore/poreve/porevesrc/dbg.C $
*
* 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
*/
// $Id: dbg.C,v 1.3 2011/06/07 03:10:45 bcbrock Exp $
/// \file dbg.C
/// \brief The PORE Virtual Environment - Debugged
///
/// This file includes the PoreVeDbg constructor and the create() and run()
/// methods for PoreVeDbg. The pdbg::entryPoint is left as an unresolved
/// external at link time and defined in the debugging environment code.
#include <stdio.h>
#include <string.h>
#include "dbg.H"
using namespace vsbe;
namespace pdbg {
/// Start the \c pdbg debugger
///
/// \param[in] i_instructions Currently ignored
///
/// \param[out] o_ran Currently ignored
///
/// \param[in] i_arg The name of a debugger script to run at
/// initialization.
///
/// This is the entry point used to initiate the pdbg interactive
/// debugger. It is called from the PoreVeDbg::run() method the first time
/// that method is called. Note: pdbg::entryPoint currently doesn't
/// return.
int entryPoint(const uint64_t i_instructions,
uint64_t& o_ran,
const char* i_arg);
}
////////////////////////////////////////////////////////////////////////////
// PoreVeDbg
////////////////////////////////////////////////////////////////////////////
PoreVeDbg* PoreVeDbg::cv_instance = 0;
PoreVeDbg::PoreVeDbg(const PoreIbufId i_id,
const fapi::Target i_masterTarget,
const void* i_arg) :
PoreVe(i_id, i_masterTarget),
iv_initialized(false)
{
iv_arg = strdup((char*)i_arg);
cv_instance = this;
}
PoreVeDbg::~PoreVeDbg()
{
free(iv_arg);
}
int
PoreVeDbg::run(const uint64_t i_instructions, uint64_t& o_ran)
{
if (iv_initialized) {
return PoreVe::run(i_instructions, o_ran);
} else {
iv_initialized = true;
return pdbg::entryPoint(i_instructions, o_ran, iv_arg);
}
}
PoreVe*
PoreVe::create(const PoreIbufId i_id,
const fapi::Target i_masterTarget,
const void* i_arg)
{
return new PoreVeDbg(i_id, i_masterTarget, i_arg);
}
|