Initial checkin of lldb code from internal Apple repo.
llvm-svn: 105619
This commit is contained in:
Chris Lattner
394
lldb/source/API/SBFrame.cpp
Normal file
394
lldb/source/API/SBFrame.cpp
Normal file
@@ -0,0 +1,394 @@
|
||||
//===-- SBFrame.cpp ---------------------------------------------*- C++ -*-===//
|
||||
//
|
||||
// The LLVM Compiler Infrastructure
|
||||
//
|
||||
// This file is distributed under the University of Illinois Open Source
|
||||
// License. See LICENSE.TXT for details.
|
||||
//
|
||||
//===----------------------------------------------------------------------===//
|
||||
|
||||
#include "SBFrame.h"
|
||||
|
||||
#include <string>
|
||||
#include <algorithm>
|
||||
|
||||
#include "lldb/lldb-types.h"
|
||||
|
||||
#include "lldb/Core/Address.h"
|
||||
#include "lldb/Core/ConstString.h"
|
||||
#include "lldb/Core/Stream.h"
|
||||
#include "lldb/Core/StreamFile.h"
|
||||
#include "lldb/Core/ValueObjectRegister.h"
|
||||
#include "lldb/Core/ValueObjectVariable.h"
|
||||
#include "lldb/Symbol/Block.h"
|
||||
#include "lldb/Symbol/SymbolContext.h"
|
||||
#include "lldb/Symbol/VariableList.h"
|
||||
#include "lldb/Symbol/Variable.h"
|
||||
#include "lldb/Target/ExecutionContext.h"
|
||||
#include "lldb/Target/Target.h"
|
||||
#include "lldb/Target/Process.h"
|
||||
#include "lldb/Target/RegisterContext.h"
|
||||
#include "lldb/Target/StackFrame.h"
|
||||
#include "lldb/Target/Thread.h"
|
||||
|
||||
#include "SBDebugger.h"
|
||||
#include "SBValue.h"
|
||||
#include "SBAddress.h"
|
||||
#include "SBSymbolContext.h"
|
||||
#include "SBThread.h"
|
||||
|
||||
using namespace lldb;
|
||||
using namespace lldb_private;
|
||||
|
||||
SBFrame::SBFrame () :
|
||||
m_lldb_object_sp ()
|
||||
{
|
||||
}
|
||||
|
||||
SBFrame::SBFrame (const lldb::StackFrameSP &lldb_object_sp) :
|
||||
m_lldb_object_sp (lldb_object_sp)
|
||||
{
|
||||
}
|
||||
|
||||
SBFrame::~SBFrame()
|
||||
{
|
||||
}
|
||||
|
||||
|
||||
void
|
||||
SBFrame::SetFrame (const lldb::StackFrameSP &lldb_object_sp)
|
||||
{
|
||||
m_lldb_object_sp = lldb_object_sp;
|
||||
}
|
||||
|
||||
|
||||
bool
|
||||
SBFrame::IsValid() const
|
||||
{
|
||||
return (m_lldb_object_sp.get() != NULL);
|
||||
}
|
||||
|
||||
SBSymbolContext
|
||||
SBFrame::GetSymbolContext (uint32_t resolve_scope) const
|
||||
{
|
||||
SBSymbolContext sb_sym_ctx;
|
||||
if (m_lldb_object_sp)
|
||||
sb_sym_ctx.SetSymbolContext(&m_lldb_object_sp->GetSymbolContext (resolve_scope));
|
||||
return sb_sym_ctx;
|
||||
}
|
||||
|
||||
SBModule
|
||||
SBFrame::GetModule () const
|
||||
{
|
||||
SBModule sb_module (m_lldb_object_sp->GetSymbolContext (eSymbolContextModule).module_sp);
|
||||
return sb_module;
|
||||
}
|
||||
|
||||
SBCompileUnit
|
||||
SBFrame::GetCompileUnit () const
|
||||
{
|
||||
SBCompileUnit sb_comp_unit(m_lldb_object_sp->GetSymbolContext (eSymbolContextCompUnit).comp_unit);
|
||||
return sb_comp_unit;
|
||||
}
|
||||
|
||||
SBFunction
|
||||
SBFrame::GetFunction () const
|
||||
{
|
||||
SBFunction sb_function(m_lldb_object_sp->GetSymbolContext (eSymbolContextFunction).function);
|
||||
return sb_function;
|
||||
}
|
||||
|
||||
SBBlock
|
||||
SBFrame::GetBlock () const
|
||||
{
|
||||
SBBlock sb_block(m_lldb_object_sp->GetSymbolContext (eSymbolContextBlock).block);
|
||||
return sb_block;
|
||||
}
|
||||
|
||||
SBLineEntry
|
||||
SBFrame::GetLineEntry () const
|
||||
{
|
||||
SBLineEntry sb_line_entry(&m_lldb_object_sp->GetSymbolContext (eSymbolContextLineEntry).line_entry);
|
||||
return sb_line_entry;
|
||||
}
|
||||
|
||||
uint32_t
|
||||
SBFrame::GetFrameID () const
|
||||
{
|
||||
if (m_lldb_object_sp)
|
||||
return m_lldb_object_sp->GetID();
|
||||
else
|
||||
return UINT32_MAX;
|
||||
}
|
||||
|
||||
|
||||
lldb::addr_t
|
||||
SBFrame::GetPC () const
|
||||
{
|
||||
if (m_lldb_object_sp)
|
||||
return m_lldb_object_sp->GetPC().GetLoadAddress (&m_lldb_object_sp->GetThread().GetProcess());
|
||||
return LLDB_INVALID_ADDRESS;
|
||||
}
|
||||
|
||||
bool
|
||||
SBFrame::SetPC (lldb::addr_t new_pc)
|
||||
{
|
||||
if (m_lldb_object_sp)
|
||||
return m_lldb_object_sp->GetRegisterContext()->SetPC (new_pc);
|
||||
return false;
|
||||
}
|
||||
|
||||
lldb::addr_t
|
||||
SBFrame::GetSP () const
|
||||
{
|
||||
if (m_lldb_object_sp)
|
||||
return m_lldb_object_sp->GetRegisterContext()->GetSP();
|
||||
return LLDB_INVALID_ADDRESS;
|
||||
}
|
||||
|
||||
|
||||
lldb::addr_t
|
||||
SBFrame::GetFP () const
|
||||
{
|
||||
if (m_lldb_object_sp)
|
||||
return m_lldb_object_sp->GetRegisterContext()->GetFP();
|
||||
return LLDB_INVALID_ADDRESS;
|
||||
}
|
||||
|
||||
|
||||
SBAddress
|
||||
SBFrame::GetPCAddress () const
|
||||
{
|
||||
SBAddress sb_addr;
|
||||
if (m_lldb_object_sp)
|
||||
sb_addr.SetAddress (&m_lldb_object_sp->GetPC());
|
||||
return sb_addr;
|
||||
}
|
||||
|
||||
void
|
||||
SBFrame::Clear()
|
||||
{
|
||||
m_lldb_object_sp.reset();
|
||||
}
|
||||
|
||||
SBValue
|
||||
SBFrame::LookupVar (const char *var_name)
|
||||
{
|
||||
lldb::VariableSP var_sp;
|
||||
if (IsValid ())
|
||||
{
|
||||
lldb_private::VariableList variable_list;
|
||||
SBSymbolContext sc = GetSymbolContext (eSymbolContextEverything);
|
||||
|
||||
SBBlock block = sc.GetBlock();
|
||||
if (block.IsValid())
|
||||
block.AppendVariables (true, true, &variable_list);
|
||||
|
||||
const uint32_t num_variables = variable_list.GetSize();
|
||||
|
||||
bool found = false;
|
||||
for (int i = 0; i < num_variables && !found; ++i)
|
||||
{
|
||||
var_sp = variable_list.GetVariableAtIndex(i);
|
||||
if (var_sp
|
||||
&& (var_sp.get()->GetName() == lldb_private::ConstString(var_name)))
|
||||
found = true;
|
||||
}
|
||||
if (!found)
|
||||
var_sp.reset();
|
||||
}
|
||||
SBValue sb_value (ValueObjectSP (new ValueObjectVariable (var_sp)));
|
||||
return sb_value;
|
||||
}
|
||||
|
||||
SBValue
|
||||
SBFrame::LookupVarInScope (const char *var_name, const char *scope)
|
||||
{
|
||||
lldb::VariableSP var_sp;
|
||||
if (IsValid())
|
||||
{
|
||||
std::string scope_str = scope;
|
||||
lldb::ValueType var_scope = eValueTypeInvalid;
|
||||
// Convert scope_str to be all lowercase;
|
||||
std::transform (scope_str.begin(), scope_str.end(), scope_str.begin(), ::tolower);
|
||||
|
||||
if (scope_str.compare ("global") == 0)
|
||||
var_scope = eValueTypeVariableGlobal;
|
||||
else if (scope_str.compare ("local") == 0)
|
||||
var_scope = eValueTypeVariableLocal;
|
||||
else if (scope_str.compare ("parameter") == 0)
|
||||
var_scope = eValueTypeVariableArgument;
|
||||
|
||||
if (var_scope != eValueTypeInvalid)
|
||||
{
|
||||
lldb_private::VariableList variable_list;
|
||||
SBSymbolContext sc = GetSymbolContext (eSymbolContextEverything);
|
||||
|
||||
SBBlock block = sc.GetBlock();
|
||||
if (block.IsValid())
|
||||
block.AppendVariables (true, true, &variable_list);
|
||||
|
||||
const uint32_t num_variables = variable_list.GetSize();
|
||||
|
||||
bool found = false;
|
||||
for (int i = 0; i < num_variables && !found; ++i)
|
||||
{
|
||||
var_sp = variable_list.GetVariableAtIndex(i);
|
||||
if (var_sp
|
||||
&& (var_sp.get()->GetName() == lldb_private::ConstString(var_name))
|
||||
&& var_sp.get()->GetScope() == var_scope)
|
||||
found = true;
|
||||
}
|
||||
if (!found)
|
||||
var_sp.reset();
|
||||
}
|
||||
}
|
||||
SBValue sb_value (ValueObjectSP (new ValueObjectVariable (var_sp)));
|
||||
return sb_value;
|
||||
}
|
||||
|
||||
bool
|
||||
SBFrame::operator == (const SBFrame &rhs) const
|
||||
{
|
||||
return m_lldb_object_sp.get() == rhs.m_lldb_object_sp.get();
|
||||
}
|
||||
|
||||
bool
|
||||
SBFrame::operator != (const SBFrame &rhs) const
|
||||
{
|
||||
return m_lldb_object_sp.get() != rhs.m_lldb_object_sp.get();
|
||||
}
|
||||
|
||||
lldb_private::StackFrame *
|
||||
SBFrame::operator->() const
|
||||
{
|
||||
return m_lldb_object_sp.get();
|
||||
}
|
||||
|
||||
lldb_private::StackFrame *
|
||||
SBFrame::get() const
|
||||
{
|
||||
return m_lldb_object_sp.get();
|
||||
}
|
||||
|
||||
|
||||
SBThread
|
||||
SBFrame::GetThread () const
|
||||
{
|
||||
SBThread sb_thread (m_lldb_object_sp->GetThread().GetSP());
|
||||
return sb_thread;
|
||||
}
|
||||
|
||||
const char *
|
||||
SBFrame::Disassemble () const
|
||||
{
|
||||
if (m_lldb_object_sp)
|
||||
return m_lldb_object_sp->Disassemble();
|
||||
return NULL;
|
||||
}
|
||||
|
||||
|
||||
|
||||
lldb_private::StackFrame *
|
||||
SBFrame::GetLLDBObjectPtr ()
|
||||
{
|
||||
return m_lldb_object_sp.get();
|
||||
}
|
||||
|
||||
SBValueList
|
||||
SBFrame::GetVariables (bool arguments,
|
||||
bool locals,
|
||||
bool statics,
|
||||
bool in_scope_only)
|
||||
{
|
||||
SBValueList value_list;
|
||||
if (m_lldb_object_sp)
|
||||
{
|
||||
size_t i;
|
||||
VariableList *variable_list = m_lldb_object_sp->GetVariableList();
|
||||
if (variable_list)
|
||||
{
|
||||
const size_t num_variables = variable_list->GetSize();
|
||||
if (num_variables)
|
||||
{
|
||||
for (i = 0; i < num_variables; ++i)
|
||||
{
|
||||
VariableSP variable_sp (variable_list->GetVariableAtIndex(i));
|
||||
if (variable_sp)
|
||||
{
|
||||
bool add_variable = false;
|
||||
switch (variable_sp->GetScope())
|
||||
{
|
||||
case eValueTypeVariableGlobal:
|
||||
case eValueTypeVariableStatic:
|
||||
add_variable = statics;
|
||||
break;
|
||||
|
||||
case eValueTypeVariableArgument:
|
||||
add_variable = arguments;
|
||||
break;
|
||||
|
||||
case eValueTypeVariableLocal:
|
||||
add_variable = locals;
|
||||
break;
|
||||
}
|
||||
if (add_variable)
|
||||
{
|
||||
if (in_scope_only && !variable_sp->IsInScope(m_lldb_object_sp.get()))
|
||||
continue;
|
||||
|
||||
value_list.Append(ValueObjectSP (new ValueObjectVariable (variable_sp)));
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if (statics)
|
||||
{
|
||||
CompileUnit *frame_comp_unit = m_lldb_object_sp->GetSymbolContext (eSymbolContextCompUnit).comp_unit;
|
||||
|
||||
if (frame_comp_unit)
|
||||
{
|
||||
variable_list = frame_comp_unit->GetVariableList(true).get();
|
||||
|
||||
if (variable_list)
|
||||
{
|
||||
const size_t num_variables = variable_list->GetSize();
|
||||
if (num_variables)
|
||||
{
|
||||
for (i = 0; i < num_variables; ++i)
|
||||
{
|
||||
VariableSP variable_sp (variable_list->GetVariableAtIndex(i));
|
||||
if (variable_sp)
|
||||
{
|
||||
value_list.Append(ValueObjectSP (new ValueObjectVariable (variable_sp)));
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
return value_list;
|
||||
}
|
||||
|
||||
lldb::SBValueList
|
||||
SBFrame::GetRegisters ()
|
||||
{
|
||||
SBValueList value_list;
|
||||
if (m_lldb_object_sp)
|
||||
{
|
||||
RegisterContext *reg_ctx = m_lldb_object_sp->GetRegisterContext();
|
||||
if (reg_ctx)
|
||||
{
|
||||
const uint32_t num_sets = reg_ctx->GetRegisterSetCount();
|
||||
for (uint32_t set_idx = 0; set_idx < num_sets; ++set_idx)
|
||||
{
|
||||
value_list.Append(ValueObjectSP (new ValueObjectRegisterSet (reg_ctx, set_idx)));
|
||||
}
|
||||
}
|
||||
}
|
||||
return value_list;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user