Initial import of lldb
Change-Id: Ib244e837bee349effa12b2ff6ffffbe3d730e929
This commit is contained in:
373
external/bsd/llvm/dist/lldb/source/API/SBBlock.cpp
vendored
Normal file
373
external/bsd/llvm/dist/lldb/source/API/SBBlock.cpp
vendored
Normal file
@@ -0,0 +1,373 @@
|
||||
//===-- SBBlock.cpp ---------------------------------------------*- C++ -*-===//
|
||||
//
|
||||
// The LLVM Compiler Infrastructure
|
||||
//
|
||||
// This file is distributed under the University of Illinois Open Source
|
||||
// License. See LICENSE.TXT for details.
|
||||
//
|
||||
//===----------------------------------------------------------------------===//
|
||||
|
||||
#include "lldb/API/SBBlock.h"
|
||||
#include "lldb/API/SBAddress.h"
|
||||
#include "lldb/API/SBFileSpec.h"
|
||||
#include "lldb/API/SBFrame.h"
|
||||
#include "lldb/API/SBStream.h"
|
||||
#include "lldb/API/SBValue.h"
|
||||
#include "lldb/Core/AddressRange.h"
|
||||
#include "lldb/Core/Log.h"
|
||||
#include "lldb/Core/ValueObjectVariable.h"
|
||||
#include "lldb/Symbol/Block.h"
|
||||
#include "lldb/Symbol/Function.h"
|
||||
#include "lldb/Symbol/SymbolContext.h"
|
||||
#include "lldb/Symbol/VariableList.h"
|
||||
#include "lldb/Target/StackFrame.h"
|
||||
#include "lldb/Target/Target.h"
|
||||
|
||||
using namespace lldb;
|
||||
using namespace lldb_private;
|
||||
|
||||
|
||||
SBBlock::SBBlock () :
|
||||
m_opaque_ptr (NULL)
|
||||
{
|
||||
}
|
||||
|
||||
SBBlock::SBBlock (lldb_private::Block *lldb_object_ptr) :
|
||||
m_opaque_ptr (lldb_object_ptr)
|
||||
{
|
||||
}
|
||||
|
||||
SBBlock::SBBlock(const SBBlock &rhs) :
|
||||
m_opaque_ptr (rhs.m_opaque_ptr)
|
||||
{
|
||||
}
|
||||
|
||||
const SBBlock &
|
||||
SBBlock::operator = (const SBBlock &rhs)
|
||||
{
|
||||
m_opaque_ptr = rhs.m_opaque_ptr;
|
||||
return *this;
|
||||
}
|
||||
|
||||
SBBlock::~SBBlock ()
|
||||
{
|
||||
m_opaque_ptr = NULL;
|
||||
}
|
||||
|
||||
bool
|
||||
SBBlock::IsValid () const
|
||||
{
|
||||
return m_opaque_ptr != NULL;
|
||||
}
|
||||
|
||||
bool
|
||||
SBBlock::IsInlined () const
|
||||
{
|
||||
if (m_opaque_ptr)
|
||||
return m_opaque_ptr->GetInlinedFunctionInfo () != NULL;
|
||||
return false;
|
||||
}
|
||||
|
||||
const char *
|
||||
SBBlock::GetInlinedName () const
|
||||
{
|
||||
if (m_opaque_ptr)
|
||||
{
|
||||
const InlineFunctionInfo* inlined_info = m_opaque_ptr->GetInlinedFunctionInfo ();
|
||||
if (inlined_info)
|
||||
return inlined_info->GetName().AsCString (NULL);
|
||||
}
|
||||
return NULL;
|
||||
}
|
||||
|
||||
SBFileSpec
|
||||
SBBlock::GetInlinedCallSiteFile () const
|
||||
{
|
||||
SBFileSpec sb_file;
|
||||
if (m_opaque_ptr)
|
||||
{
|
||||
const InlineFunctionInfo* inlined_info = m_opaque_ptr->GetInlinedFunctionInfo ();
|
||||
if (inlined_info)
|
||||
sb_file.SetFileSpec (inlined_info->GetCallSite().GetFile());
|
||||
}
|
||||
return sb_file;
|
||||
}
|
||||
|
||||
uint32_t
|
||||
SBBlock::GetInlinedCallSiteLine () const
|
||||
{
|
||||
if (m_opaque_ptr)
|
||||
{
|
||||
const InlineFunctionInfo* inlined_info = m_opaque_ptr->GetInlinedFunctionInfo ();
|
||||
if (inlined_info)
|
||||
return inlined_info->GetCallSite().GetLine();
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
uint32_t
|
||||
SBBlock::GetInlinedCallSiteColumn () const
|
||||
{
|
||||
if (m_opaque_ptr)
|
||||
{
|
||||
const InlineFunctionInfo* inlined_info = m_opaque_ptr->GetInlinedFunctionInfo ();
|
||||
if (inlined_info)
|
||||
return inlined_info->GetCallSite().GetColumn();
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
void
|
||||
SBBlock::AppendVariables (bool can_create, bool get_parent_variables, lldb_private::VariableList *var_list)
|
||||
{
|
||||
if (IsValid())
|
||||
{
|
||||
bool show_inline = true;
|
||||
m_opaque_ptr->AppendVariables (can_create, get_parent_variables, show_inline, var_list);
|
||||
}
|
||||
}
|
||||
|
||||
SBBlock
|
||||
SBBlock::GetParent ()
|
||||
{
|
||||
SBBlock sb_block;
|
||||
if (m_opaque_ptr)
|
||||
sb_block.m_opaque_ptr = m_opaque_ptr->GetParent();
|
||||
return sb_block;
|
||||
}
|
||||
|
||||
lldb::SBBlock
|
||||
SBBlock::GetContainingInlinedBlock ()
|
||||
{
|
||||
SBBlock sb_block;
|
||||
if (m_opaque_ptr)
|
||||
sb_block.m_opaque_ptr = m_opaque_ptr->GetContainingInlinedBlock ();
|
||||
return sb_block;
|
||||
}
|
||||
|
||||
SBBlock
|
||||
SBBlock::GetSibling ()
|
||||
{
|
||||
SBBlock sb_block;
|
||||
if (m_opaque_ptr)
|
||||
sb_block.m_opaque_ptr = m_opaque_ptr->GetSibling();
|
||||
return sb_block;
|
||||
}
|
||||
|
||||
SBBlock
|
||||
SBBlock::GetFirstChild ()
|
||||
{
|
||||
SBBlock sb_block;
|
||||
if (m_opaque_ptr)
|
||||
sb_block.m_opaque_ptr = m_opaque_ptr->GetFirstChild();
|
||||
return sb_block;
|
||||
}
|
||||
|
||||
lldb_private::Block *
|
||||
SBBlock::GetPtr ()
|
||||
{
|
||||
return m_opaque_ptr;
|
||||
}
|
||||
|
||||
void
|
||||
SBBlock::SetPtr (lldb_private::Block *block)
|
||||
{
|
||||
m_opaque_ptr = block;
|
||||
}
|
||||
|
||||
bool
|
||||
SBBlock::GetDescription (SBStream &description)
|
||||
{
|
||||
Stream &strm = description.ref();
|
||||
|
||||
if (m_opaque_ptr)
|
||||
{
|
||||
lldb::user_id_t id = m_opaque_ptr->GetID();
|
||||
strm.Printf ("Block: {id: %" PRIu64 "} ", id);
|
||||
if (IsInlined())
|
||||
{
|
||||
strm.Printf (" (inlined, '%s') ", GetInlinedName());
|
||||
}
|
||||
lldb_private::SymbolContext sc;
|
||||
m_opaque_ptr->CalculateSymbolContext (&sc);
|
||||
if (sc.function)
|
||||
{
|
||||
m_opaque_ptr->DumpAddressRanges (&strm,
|
||||
sc.function->GetAddressRange().GetBaseAddress().GetFileAddress());
|
||||
}
|
||||
}
|
||||
else
|
||||
strm.PutCString ("No value");
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
uint32_t
|
||||
SBBlock::GetNumRanges ()
|
||||
{
|
||||
if (m_opaque_ptr)
|
||||
return m_opaque_ptr->GetNumRanges();
|
||||
return 0;
|
||||
}
|
||||
|
||||
lldb::SBAddress
|
||||
SBBlock::GetRangeStartAddress (uint32_t idx)
|
||||
{
|
||||
lldb::SBAddress sb_addr;
|
||||
if (m_opaque_ptr)
|
||||
{
|
||||
AddressRange range;
|
||||
if (m_opaque_ptr->GetRangeAtIndex(idx, range))
|
||||
{
|
||||
sb_addr.ref() = range.GetBaseAddress();
|
||||
}
|
||||
}
|
||||
return sb_addr;
|
||||
}
|
||||
|
||||
lldb::SBAddress
|
||||
SBBlock::GetRangeEndAddress (uint32_t idx)
|
||||
{
|
||||
lldb::SBAddress sb_addr;
|
||||
if (m_opaque_ptr)
|
||||
{
|
||||
AddressRange range;
|
||||
if (m_opaque_ptr->GetRangeAtIndex(idx, range))
|
||||
{
|
||||
sb_addr.ref() = range.GetBaseAddress();
|
||||
sb_addr.ref().Slide(range.GetByteSize());
|
||||
}
|
||||
}
|
||||
return sb_addr;
|
||||
}
|
||||
|
||||
uint32_t
|
||||
SBBlock::GetRangeIndexForBlockAddress (lldb::SBAddress block_addr)
|
||||
{
|
||||
if (m_opaque_ptr && block_addr.IsValid())
|
||||
{
|
||||
return m_opaque_ptr->GetRangeIndexContainingAddress (block_addr.ref());
|
||||
}
|
||||
|
||||
return UINT32_MAX;
|
||||
}
|
||||
|
||||
|
||||
lldb::SBValueList
|
||||
SBBlock::GetVariables (lldb::SBFrame& frame,
|
||||
bool arguments,
|
||||
bool locals,
|
||||
bool statics,
|
||||
lldb::DynamicValueType use_dynamic)
|
||||
{
|
||||
Block *block = GetPtr();
|
||||
SBValueList value_list;
|
||||
if (block)
|
||||
{
|
||||
StackFrameSP frame_sp(frame.GetFrameSP());
|
||||
VariableListSP variable_list_sp (block->GetBlockVariableList (true));
|
||||
|
||||
if (variable_list_sp)
|
||||
{
|
||||
const size_t num_variables = variable_list_sp->GetSize();
|
||||
if (num_variables)
|
||||
{
|
||||
for (size_t i = 0; i < num_variables; ++i)
|
||||
{
|
||||
VariableSP variable_sp (variable_list_sp->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;
|
||||
|
||||
default:
|
||||
break;
|
||||
}
|
||||
if (add_variable)
|
||||
{
|
||||
if (frame_sp)
|
||||
{
|
||||
lldb::ValueObjectSP valobj_sp(frame_sp->GetValueObjectForFrameVariable (variable_sp,eNoDynamicValues));
|
||||
SBValue value_sb;
|
||||
value_sb.SetSP(valobj_sp, use_dynamic);
|
||||
value_list.Append (value_sb);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
return value_list;
|
||||
}
|
||||
|
||||
lldb::SBValueList
|
||||
SBBlock::GetVariables (lldb::SBTarget& target,
|
||||
bool arguments,
|
||||
bool locals,
|
||||
bool statics)
|
||||
{
|
||||
Block *block = GetPtr();
|
||||
|
||||
SBValueList value_list;
|
||||
if (block)
|
||||
{
|
||||
TargetSP target_sp(target.GetSP());
|
||||
|
||||
VariableListSP variable_list_sp (block->GetBlockVariableList (true));
|
||||
|
||||
if (variable_list_sp)
|
||||
{
|
||||
const size_t num_variables = variable_list_sp->GetSize();
|
||||
if (num_variables)
|
||||
{
|
||||
for (size_t i = 0; i < num_variables; ++i)
|
||||
{
|
||||
VariableSP variable_sp (variable_list_sp->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;
|
||||
|
||||
default:
|
||||
break;
|
||||
}
|
||||
if (add_variable)
|
||||
{
|
||||
if (target_sp)
|
||||
value_list.Append (ValueObjectVariable::Create (target_sp.get(), variable_sp));
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
return value_list;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user