| //===-- SBValue.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/SBValue.h" |
| |
| #include "lldb/API/SBStream.h" |
| #include "lldb/API/SBTypeFilter.h" |
| #include "lldb/API/SBTypeFormat.h" |
| #include "lldb/API/SBTypeSummary.h" |
| #include "lldb/API/SBTypeSynthetic.h" |
| |
| #include "lldb/Breakpoint/Watchpoint.h" |
| #include "lldb/Core/DataExtractor.h" |
| #include "lldb/Core/DataVisualization.h" |
| #include "lldb/Core/Log.h" |
| #include "lldb/Core/Module.h" |
| #include "lldb/Core/Scalar.h" |
| #include "lldb/Core/Stream.h" |
| #include "lldb/Core/StreamFile.h" |
| #include "lldb/Core/Value.h" |
| #include "lldb/Core/ValueObject.h" |
| #include "lldb/Core/ValueObjectConstResult.h" |
| #include "lldb/Symbol/Block.h" |
| #include "lldb/Symbol/ObjectFile.h" |
| #include "lldb/Symbol/Type.h" |
| #include "lldb/Symbol/Variable.h" |
| #include "lldb/Symbol/VariableList.h" |
| #include "lldb/Target/ExecutionContext.h" |
| #include "lldb/Target/Process.h" |
| #include "lldb/Target/StackFrame.h" |
| #include "lldb/Target/Target.h" |
| #include "lldb/Target/Thread.h" |
| |
| #include "lldb/API/SBProcess.h" |
| #include "lldb/API/SBTarget.h" |
| #include "lldb/API/SBThread.h" |
| #include "lldb/API/SBFrame.h" |
| #include "lldb/API/SBDebugger.h" |
| |
| using namespace lldb; |
| using namespace lldb_private; |
| |
| SBValue::SBValue () : |
| m_opaque_sp () |
| { |
| } |
| |
| SBValue::SBValue (const lldb::ValueObjectSP &value_sp) |
| { |
| SetSP(value_sp); // whenever setting the SP call SetSP() since it knows how to deal with synthetic values properly |
| } |
| |
| SBValue::SBValue(const SBValue &rhs) |
| { |
| SetSP(rhs.m_opaque_sp); // whenever setting the SP call SetSP() since it knows how to deal with synthetic values properly |
| } |
| |
| SBValue & |
| SBValue::operator = (const SBValue &rhs) |
| { |
| if (this != &rhs) |
| { |
| SetSP(rhs.m_opaque_sp); // whenever setting the SP call SetSP() since it knows how to deal with synthetic values properly |
| } |
| return *this; |
| } |
| |
| SBValue::~SBValue() |
| { |
| } |
| |
| bool |
| SBValue::IsValid () |
| { |
| // If this function ever changes to anything that does more than just |
| // check if the opaque shared pointer is non NULL, then we need to update |
| // all "if (m_opaque_sp)" code in this file. |
| return m_opaque_sp.get() != NULL; |
| } |
| |
| void |
| SBValue::Clear() |
| { |
| m_opaque_sp.reset(); |
| } |
| |
| SBError |
| SBValue::GetError() |
| { |
| SBError sb_error; |
| |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| sb_error.SetError(value_sp->GetError()); |
| else |
| sb_error.SetErrorString("error: invalid value"); |
| |
| return sb_error; |
| } |
| |
| user_id_t |
| SBValue::GetID() |
| { |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| return value_sp->GetID(); |
| return LLDB_INVALID_UID; |
| } |
| |
| const char * |
| SBValue::GetName() |
| { |
| |
| const char *name = NULL; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| name = value_sp->GetName().GetCString(); |
| |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| { |
| if (name) |
| log->Printf ("SBValue(%p)::GetName () => \"%s\"", value_sp.get(), name); |
| else |
| log->Printf ("SBValue(%p)::GetName () => NULL", value_sp.get()); |
| } |
| |
| return name; |
| } |
| |
| const char * |
| SBValue::GetTypeName () |
| { |
| const char *name = NULL; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| name = value_sp->GetQualifiedTypeName().GetCString(); |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| { |
| if (name) |
| log->Printf ("SBValue(%p)::GetTypeName () => \"%s\"", value_sp.get(), name); |
| else |
| log->Printf ("SBValue(%p)::GetTypeName () => NULL", value_sp.get()); |
| } |
| |
| return name; |
| } |
| |
| size_t |
| SBValue::GetByteSize () |
| { |
| size_t result = 0; |
| |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| result = value_sp->GetByteSize(); |
| |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| log->Printf ("SBValue(%p)::GetByteSize () => %zu", value_sp.get(), result); |
| |
| return result; |
| } |
| |
| bool |
| SBValue::IsInScope () |
| { |
| bool result = false; |
| |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| result = value_sp->IsInScope (); |
| } |
| } |
| |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| log->Printf ("SBValue(%p)::IsInScope () => %i", value_sp.get(), result); |
| |
| return result; |
| } |
| |
| const char * |
| SBValue::GetValue () |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| |
| const char *cstr = NULL; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| if (log) |
| log->Printf ("SBValue(%p)::GetValue() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| cstr = value_sp->GetValueAsCString (); |
| } |
| } |
| } |
| if (log) |
| { |
| if (cstr) |
| log->Printf ("SBValue(%p)::GetValue() => \"%s\"", value_sp.get(), cstr); |
| else |
| log->Printf ("SBValue(%p)::GetValue() => NULL", value_sp.get()); |
| } |
| |
| return cstr; |
| } |
| |
| ValueType |
| SBValue::GetValueType () |
| { |
| ValueType result = eValueTypeInvalid; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| result = value_sp->GetValueType(); |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| { |
| switch (result) |
| { |
| case eValueTypeInvalid: log->Printf ("SBValue(%p)::GetValueType () => eValueTypeInvalid", value_sp.get()); break; |
| case eValueTypeVariableGlobal: log->Printf ("SBValue(%p)::GetValueType () => eValueTypeVariableGlobal", value_sp.get()); break; |
| case eValueTypeVariableStatic: log->Printf ("SBValue(%p)::GetValueType () => eValueTypeVariableStatic", value_sp.get()); break; |
| case eValueTypeVariableArgument:log->Printf ("SBValue(%p)::GetValueType () => eValueTypeVariableArgument", value_sp.get()); break; |
| case eValueTypeVariableLocal: log->Printf ("SBValue(%p)::GetValueType () => eValueTypeVariableLocal", value_sp.get()); break; |
| case eValueTypeRegister: log->Printf ("SBValue(%p)::GetValueType () => eValueTypeRegister", value_sp.get()); break; |
| case eValueTypeRegisterSet: log->Printf ("SBValue(%p)::GetValueType () => eValueTypeRegisterSet", value_sp.get()); break; |
| case eValueTypeConstResult: log->Printf ("SBValue(%p)::GetValueType () => eValueTypeConstResult", value_sp.get()); break; |
| default: log->Printf ("SBValue(%p)::GetValueType () => %i ???", value_sp.get(), result); break; |
| } |
| } |
| return result; |
| } |
| |
| const char * |
| SBValue::GetObjectDescription () |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| const char *cstr = NULL; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| if (log) |
| log->Printf ("SBValue(%p)::GetObjectDescription() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| cstr = value_sp->GetObjectDescription (); |
| } |
| } |
| } |
| if (log) |
| { |
| if (cstr) |
| log->Printf ("SBValue(%p)::GetObjectDescription() => \"%s\"", value_sp.get(), cstr); |
| else |
| log->Printf ("SBValue(%p)::GetObjectDescription() => NULL", value_sp.get()); |
| } |
| return cstr; |
| } |
| |
| SBType |
| SBValue::GetType() |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| SBType sb_type; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| TypeImplSP type_sp; |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| if (log) |
| log->Printf ("SBValue(%p)::GetValueDidChange() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| type_sp.reset (new TypeImpl(ClangASTType (value_sp->GetClangAST(), value_sp->GetClangType()))); |
| sb_type.SetSP(type_sp); |
| } |
| } |
| } |
| if (log) |
| { |
| if (type_sp) |
| log->Printf ("SBValue(%p)::GetType => SBType(%p)", value_sp.get(), type_sp.get()); |
| else |
| log->Printf ("SBValue(%p)::GetType => NULL", value_sp.get()); |
| } |
| return sb_type; |
| } |
| |
| bool |
| SBValue::GetValueDidChange () |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| bool result = false; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| if (log) |
| log->Printf ("SBValue(%p)::GetValueDidChange() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| result = value_sp->GetValueDidChange (); |
| } |
| } |
| } |
| if (log) |
| log->Printf ("SBValue(%p)::GetValueDidChange() => %i", value_sp.get(), result); |
| |
| return result; |
| } |
| |
| #ifndef LLDB_DISABLE_PYTHON |
| const char * |
| SBValue::GetSummary () |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| const char *cstr = NULL; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| if (log) |
| log->Printf ("SBValue(%p)::GetSummary() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| cstr = value_sp->GetSummaryAsCString(); |
| } |
| } |
| } |
| if (log) |
| { |
| if (cstr) |
| log->Printf ("SBValue(%p)::GetSummary() => \"%s\"", value_sp.get(), cstr); |
| else |
| log->Printf ("SBValue(%p)::GetSummary() => NULL", value_sp.get()); |
| } |
| return cstr; |
| } |
| #endif // LLDB_DISABLE_PYTHON |
| |
| const char * |
| SBValue::GetLocation () |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| const char *cstr = NULL; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| if (log) |
| log->Printf ("SBValue(%p)::GetLocation() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| cstr = value_sp->GetLocationAsCString(); |
| } |
| } |
| } |
| if (log) |
| { |
| if (cstr) |
| log->Printf ("SBValue(%p)::GetLocation() => \"%s\"", value_sp.get(), cstr); |
| else |
| log->Printf ("SBValue(%p)::GetLocation() => NULL", value_sp.get()); |
| } |
| return cstr; |
| } |
| |
| bool |
| SBValue::SetValueFromCString (const char *value_str) |
| { |
| bool success = false; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| if (log) |
| log->Printf ("SBValue(%p)::SetValueFromCString() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| success = value_sp->SetValueFromCString (value_str); |
| } |
| } |
| } |
| if (log) |
| log->Printf ("SBValue(%p)::SetValueFromCString(\"%s\") => %i", value_sp.get(), value_str, success); |
| |
| return success; |
| } |
| |
| lldb::SBTypeFormat |
| SBValue::GetTypeFormat () |
| { |
| lldb::SBTypeFormat format; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| log->Printf ("SBValue(%p)::GetTypeSummary() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| if (value_sp->UpdateValueIfNeeded(true)) |
| { |
| lldb::TypeFormatImplSP format_sp = value_sp->GetValueFormat(); |
| if (format_sp) |
| format.SetSP(format_sp); |
| } |
| } |
| } |
| } |
| return format; |
| } |
| |
| #ifndef LLDB_DISABLE_PYTHON |
| lldb::SBTypeSummary |
| SBValue::GetTypeSummary () |
| { |
| lldb::SBTypeSummary summary; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| log->Printf ("SBValue(%p)::GetTypeSummary() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| if (value_sp->UpdateValueIfNeeded(true)) |
| { |
| lldb::TypeSummaryImplSP summary_sp = value_sp->GetSummaryFormat(); |
| if (summary_sp) |
| summary.SetSP(summary_sp); |
| } |
| } |
| } |
| } |
| return summary; |
| } |
| #endif // LLDB_DISABLE_PYTHON |
| |
| lldb::SBTypeFilter |
| SBValue::GetTypeFilter () |
| { |
| lldb::SBTypeFilter filter; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| log->Printf ("SBValue(%p)::GetTypeFilter() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| if (value_sp->UpdateValueIfNeeded(true)) |
| { |
| lldb::SyntheticChildrenSP synthetic_sp = value_sp->GetSyntheticChildren(); |
| |
| if (synthetic_sp && !synthetic_sp->IsScripted()) |
| { |
| TypeFilterImplSP filter_sp = STD_STATIC_POINTER_CAST(TypeFilterImpl,synthetic_sp); |
| filter.SetSP(filter_sp); |
| } |
| } |
| } |
| } |
| } |
| return filter; |
| } |
| |
| #ifndef LLDB_DISABLE_PYTHON |
| lldb::SBTypeSynthetic |
| SBValue::GetTypeSynthetic () |
| { |
| lldb::SBTypeSynthetic synthetic; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| log->Printf ("SBValue(%p)::GetTypeSynthetic() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| if (value_sp->UpdateValueIfNeeded(true)) |
| { |
| lldb::SyntheticChildrenSP children_sp = value_sp->GetSyntheticChildren(); |
| |
| if (children_sp && children_sp->IsScripted()) |
| { |
| TypeSyntheticImplSP synth_sp = STD_STATIC_POINTER_CAST(TypeSyntheticImpl,children_sp); |
| synthetic.SetSP(synth_sp); |
| } |
| } |
| } |
| } |
| } |
| return synthetic; |
| } |
| #endif |
| |
| lldb::SBValue |
| SBValue::CreateChildAtOffset (const char *name, uint32_t offset, SBType type) |
| { |
| lldb::SBValue sb_value; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| lldb::ValueObjectSP new_value_sp; |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| log->Printf ("SBValue(%p)::GetTypeSynthetic() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| TypeImplSP type_sp (type.GetSP()); |
| if (type.IsValid()) |
| { |
| sb_value = SBValue(value_sp->GetSyntheticChildAtOffset(offset, type_sp->GetClangASTType(), true)); |
| new_value_sp = sb_value.GetSP(); |
| if (new_value_sp) |
| new_value_sp->SetName(ConstString(name)); |
| } |
| } |
| } |
| } |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| { |
| if (new_value_sp) |
| log->Printf ("SBValue(%p)::GetChildAtOffset => \"%s\"", value_sp.get(), new_value_sp->GetName().AsCString()); |
| else |
| log->Printf ("SBValue(%p)::GetChildAtOffset => NULL", value_sp.get()); |
| } |
| return sb_value; |
| } |
| |
| lldb::SBValue |
| SBValue::Cast (SBType type) |
| { |
| lldb::SBValue sb_value; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| TypeImplSP type_sp (type.GetSP()); |
| if (value_sp && type_sp) |
| sb_value.SetSP(value_sp->Cast(type_sp->GetClangASTType())); |
| return sb_value; |
| } |
| |
| lldb::SBValue |
| SBValue::CreateValueFromExpression (const char *name, const char* expression) |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| lldb::SBValue sb_value; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| lldb::ValueObjectSP new_value_sp; |
| if (value_sp) |
| { |
| ExecutionContext exe_ctx (value_sp->GetExecutionContextRef()); |
| ProcessSP process_sp(exe_ctx.GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| if (log) |
| log->Printf ("SBValue(%p)::CreateValueFromExpression() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| Target* target = exe_ctx.GetTargetPtr(); |
| if (target) |
| { |
| target->EvaluateExpression (expression, |
| exe_ctx.GetFramePtr(), |
| eExecutionPolicyOnlyWhenNeeded, |
| false, // coerce to id |
| true, // unwind on error |
| true, // keep in memory |
| eNoDynamicValues, |
| new_value_sp); |
| if (new_value_sp) |
| { |
| new_value_sp->SetName(ConstString(name)); |
| sb_value.SetSP(new_value_sp); |
| } |
| } |
| } |
| } |
| if (log) |
| { |
| if (new_value_sp) |
| log->Printf ("SBValue(%p)::GetChildFromExpression(name=\"%s\", expression=\"%s\") => SBValue (%p)", |
| value_sp.get(), |
| name, |
| expression, |
| new_value_sp.get()); |
| else |
| log->Printf ("SBValue(%p)::GetChildFromExpression(name=\"%s\", expression=\"%s\") => NULL", |
| value_sp.get(), |
| name, |
| expression); |
| } |
| return sb_value; |
| } |
| |
| lldb::SBValue |
| SBValue::CreateValueFromAddress(const char* name, lldb::addr_t address, SBType sb_type) |
| { |
| lldb::SBValue sb_value; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| lldb::ValueObjectSP new_value_sp; |
| lldb::TypeImplSP type_impl_sp (sb_type.GetSP()); |
| if (value_sp && type_impl_sp) |
| { |
| ClangASTType pointee_ast_type(type_impl_sp->GetASTContext(), type_impl_sp->GetClangASTType().GetPointerType ()); |
| lldb::TypeImplSP pointee_type_impl_sp (new TypeImpl(pointee_ast_type)); |
| if (pointee_type_impl_sp) |
| { |
| |
| lldb::DataBufferSP buffer(new lldb_private::DataBufferHeap(&address,sizeof(lldb::addr_t))); |
| |
| ExecutionContext exe_ctx (value_sp->GetExecutionContextRef()); |
| ValueObjectSP ptr_result_valobj_sp(ValueObjectConstResult::Create (exe_ctx.GetBestExecutionContextScope(), |
| pointee_type_impl_sp->GetASTContext(), |
| pointee_type_impl_sp->GetOpaqueQualType(), |
| ConstString(name), |
| buffer, |
| lldb::endian::InlHostByteOrder(), |
| exe_ctx.GetAddressByteSize())); |
| |
| if (ptr_result_valobj_sp) |
| { |
| ptr_result_valobj_sp->GetValue().SetValueType(Value::eValueTypeLoadAddress); |
| Error err; |
| new_value_sp = ptr_result_valobj_sp->Dereference(err); |
| if (new_value_sp) |
| new_value_sp->SetName(ConstString(name)); |
| } |
| sb_value.SetSP(new_value_sp); |
| } |
| } |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| { |
| if (new_value_sp) |
| log->Printf ("SBValue(%p)::CreateValueFromAddress => \"%s\"", value_sp.get(), new_value_sp->GetName().AsCString()); |
| else |
| log->Printf ("SBValue(%p)::CreateValueFromAddress => NULL", value_sp.get()); |
| } |
| return sb_value; |
| } |
| |
| lldb::SBValue |
| SBValue::CreateValueFromData (const char* name, SBData data, SBType type) |
| { |
| lldb::SBValue sb_value; |
| lldb::ValueObjectSP new_value_sp; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ExecutionContext exe_ctx (value_sp->GetExecutionContextRef()); |
| |
| new_value_sp = ValueObjectConstResult::Create (exe_ctx.GetBestExecutionContextScope(), |
| type.m_opaque_sp->GetASTContext() , |
| type.m_opaque_sp->GetOpaqueQualType(), |
| ConstString(name), |
| *data.m_opaque_sp, |
| LLDB_INVALID_ADDRESS); |
| new_value_sp->SetAddressTypeOfChildren(eAddressTypeLoad); |
| sb_value.SetSP(new_value_sp); |
| } |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| { |
| if (new_value_sp) |
| log->Printf ("SBValue(%p)::GetChildFromExpression => \"%s\"", value_sp.get(), new_value_sp->GetName().AsCString()); |
| else |
| log->Printf ("SBValue(%p)::GetChildFromExpression => NULL", value_sp.get()); |
| } |
| return sb_value; |
| } |
| |
| SBValue |
| SBValue::GetChildAtIndex (uint32_t idx) |
| { |
| const bool can_create_synthetic = false; |
| lldb::DynamicValueType use_dynamic = eNoDynamicValues; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| use_dynamic = target_sp->GetPreferDynamicValue(); |
| } |
| return GetChildAtIndex (idx, use_dynamic, can_create_synthetic); |
| } |
| |
| SBValue |
| SBValue::GetChildAtIndex (uint32_t idx, lldb::DynamicValueType use_dynamic, bool can_create_synthetic) |
| { |
| lldb::ValueObjectSP child_sp; |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| if (log) |
| log->Printf ("SBValue(%p)::GetChildAtIndex() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| const bool can_create = true; |
| child_sp = value_sp->GetChildAtIndex (idx, can_create); |
| if (can_create_synthetic && !child_sp) |
| { |
| if (value_sp->IsPointerType()) |
| { |
| child_sp = value_sp->GetSyntheticArrayMemberFromPointer(idx, can_create); |
| } |
| else if (value_sp->IsArrayType()) |
| { |
| child_sp = value_sp->GetSyntheticArrayMemberFromArray(idx, can_create); |
| } |
| } |
| |
| if (child_sp) |
| { |
| if (use_dynamic != lldb::eNoDynamicValues) |
| { |
| lldb::ValueObjectSP dynamic_sp(child_sp->GetDynamicValue (use_dynamic)); |
| if (dynamic_sp) |
| child_sp = dynamic_sp; |
| } |
| } |
| } |
| } |
| } |
| |
| SBValue sb_value (child_sp); |
| if (log) |
| log->Printf ("SBValue(%p)::GetChildAtIndex (%u) => SBValue(%p)", value_sp.get(), idx, value_sp.get()); |
| |
| return sb_value; |
| } |
| |
| uint32_t |
| SBValue::GetIndexOfChildWithName (const char *name) |
| { |
| uint32_t idx = UINT32_MAX; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| |
| idx = value_sp->GetIndexOfChildWithName (ConstString(name)); |
| } |
| } |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| { |
| if (idx == UINT32_MAX) |
| log->Printf ("SBValue(%p)::GetIndexOfChildWithName (name=\"%s\") => NOT FOUND", value_sp.get(), name); |
| else |
| log->Printf ("SBValue(%p)::GetIndexOfChildWithName (name=\"%s\") => %u", value_sp.get(), name, idx); |
| } |
| return idx; |
| } |
| |
| SBValue |
| SBValue::GetChildMemberWithName (const char *name) |
| { |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| lldb::DynamicValueType use_dynamic_value = eNoDynamicValues; |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| use_dynamic_value = target_sp->GetPreferDynamicValue(); |
| } |
| return GetChildMemberWithName (name, use_dynamic_value); |
| } |
| return SBValue(); |
| } |
| |
| SBValue |
| SBValue::GetChildMemberWithName (const char *name, lldb::DynamicValueType use_dynamic_value) |
| { |
| lldb::ValueObjectSP child_sp; |
| const ConstString str_name (name); |
| |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| if (log) |
| log->Printf ("SBValue(%p)::GetChildMemberWithName() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| child_sp = value_sp->GetChildMemberWithName (str_name, true); |
| if (use_dynamic_value != lldb::eNoDynamicValues) |
| { |
| if (child_sp) |
| { |
| lldb::ValueObjectSP dynamic_sp = child_sp->GetDynamicValue (use_dynamic_value); |
| if (dynamic_sp) |
| child_sp = dynamic_sp; |
| } |
| } |
| } |
| } |
| } |
| |
| SBValue sb_value (child_sp); |
| |
| if (log) |
| log->Printf ("SBValue(%p)::GetChildMemberWithName (name=\"%s\") => SBValue(%p)", value_sp.get(), name, value_sp.get()); |
| |
| return sb_value; |
| } |
| |
| lldb::SBValue |
| SBValue::GetDynamicValue (lldb::DynamicValueType use_dynamic) |
| { |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| log->Printf ("SBValue(%p)::GetDynamicValue() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| return SBValue (value_sp->GetDynamicValue(use_dynamic)); |
| } |
| } |
| } |
| |
| return SBValue(); |
| } |
| |
| lldb::SBValue |
| SBValue::GetStaticValue () |
| { |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| return SBValue(value_sp->GetStaticValue()); |
| } |
| } |
| |
| return SBValue(); |
| } |
| |
| lldb::SBValue |
| SBValue::GetNonSyntheticValue () |
| { |
| SBValue sb_value; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| if (value_sp->IsSynthetic()) |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| // deliberately breaking the rules here to optimize the case where we DO NOT want |
| // the synthetic value to be returned to the user - if we did not do this, we would have to tell |
| // the target to suppress the synthetic value, and then return the flag to its original value |
| if (value_sp->GetParent()) |
| sb_value.m_opaque_sp = value_sp->GetParent()->GetSP(); |
| } |
| } |
| } |
| return sb_value; |
| } |
| |
| bool |
| SBValue::IsDynamic() |
| { |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| return value_sp->IsDynamic(); |
| } |
| } |
| return false; |
| } |
| |
| lldb::SBValue |
| SBValue::GetValueForExpressionPath(const char* expr_path) |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| lldb::ValueObjectSP child_sp; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| if (log) |
| log->Printf ("SBValue(%p)::GetValueForExpressionPath() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| // using default values for all the fancy options, just do it if you can |
| child_sp = value_sp->GetValueForExpressionPath(expr_path); |
| } |
| } |
| } |
| |
| SBValue sb_value (child_sp); |
| |
| if (log) |
| log->Printf ("SBValue(%p)::GetValueForExpressionPath (expr_path=\"%s\") => SBValue(%p)", value_sp.get(), expr_path, value_sp.get()); |
| |
| return sb_value; |
| } |
| |
| int64_t |
| SBValue::GetValueAsSigned(SBError& error, int64_t fail_value) |
| { |
| error.Clear(); |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| log->Printf ("SBValue(%p)::GetValueAsSigned() => error: process is running", value_sp.get()); |
| error.SetErrorString("process is running"); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| Scalar scalar; |
| if (value_sp->ResolveValue (scalar)) |
| return scalar.GetRawBits64(fail_value); |
| else |
| error.SetErrorString("could not get value"); |
| } |
| else |
| error.SetErrorString("could not get target"); |
| } |
| } |
| error.SetErrorString("invalid SBValue"); |
| return fail_value; |
| } |
| |
| uint64_t |
| SBValue::GetValueAsUnsigned(SBError& error, uint64_t fail_value) |
| { |
| error.Clear(); |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| log->Printf ("SBValue(%p)::GetValueAsUnsigned() => error: process is running", value_sp.get()); |
| error.SetErrorString("process is running"); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| Scalar scalar; |
| if (value_sp->ResolveValue (scalar)) |
| return scalar.GetRawBits64(fail_value); |
| else |
| error.SetErrorString("could not get value"); |
| } |
| else |
| error.SetErrorString("could not get target"); |
| } |
| } |
| error.SetErrorString("invalid SBValue"); |
| return fail_value; |
| } |
| |
| int64_t |
| SBValue::GetValueAsSigned(int64_t fail_value) |
| { |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| log->Printf ("SBValue(%p)::GetValueAsSigned() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| Scalar scalar; |
| if (value_sp->ResolveValue (scalar)) |
| return scalar.GetRawBits64(fail_value); |
| } |
| } |
| } |
| return fail_value; |
| } |
| |
| uint64_t |
| SBValue::GetValueAsUnsigned(uint64_t fail_value) |
| { |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| log->Printf ("SBValue(%p)::GetValueAsUnsigned() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| Scalar scalar; |
| if (value_sp->ResolveValue (scalar)) |
| return scalar.GetRawBits64(fail_value); |
| } |
| } |
| } |
| return fail_value; |
| } |
| |
| uint32_t |
| SBValue::GetNumChildren () |
| { |
| uint32_t num_children = 0; |
| |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| if (log) |
| log->Printf ("SBValue(%p)::GetNumChildren() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| |
| num_children = value_sp->GetNumChildren(); |
| } |
| } |
| } |
| |
| if (log) |
| log->Printf ("SBValue(%p)::GetNumChildren () => %u", value_sp.get(), num_children); |
| |
| return num_children; |
| } |
| |
| |
| SBValue |
| SBValue::Dereference () |
| { |
| SBValue sb_value; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| |
| Error error; |
| sb_value = value_sp->Dereference (error); |
| } |
| } |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| log->Printf ("SBValue(%p)::Dereference () => SBValue(%p)", value_sp.get(), value_sp.get()); |
| |
| return sb_value; |
| } |
| |
| bool |
| SBValue::TypeIsPointerType () |
| { |
| bool is_ptr_type = false; |
| |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| |
| is_ptr_type = value_sp->IsPointerType(); |
| } |
| } |
| |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| log->Printf ("SBValue(%p)::TypeIsPointerType () => %i", value_sp.get(), is_ptr_type); |
| |
| |
| return is_ptr_type; |
| } |
| |
| void * |
| SBValue::GetOpaqueType() |
| { |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| TargetSP target_sp(value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| |
| return value_sp->GetClangType(); |
| } |
| } |
| return NULL; |
| } |
| |
| lldb::SBTarget |
| SBValue::GetTarget() |
| { |
| SBTarget sb_target; |
| TargetSP target_sp; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| target_sp = value_sp->GetTargetSP(); |
| sb_target.SetSP (target_sp); |
| } |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| { |
| if (target_sp.get() == NULL) |
| log->Printf ("SBValue(%p)::GetTarget () => NULL", value_sp.get()); |
| else |
| log->Printf ("SBValue(%p)::GetTarget () => %p", value_sp.get(), target_sp.get()); |
| } |
| return sb_target; |
| } |
| |
| lldb::SBProcess |
| SBValue::GetProcess() |
| { |
| SBProcess sb_process; |
| ProcessSP process_sp; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| process_sp = value_sp->GetProcessSP(); |
| if (process_sp) |
| sb_process.SetSP (process_sp); |
| } |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| { |
| if (process_sp.get() == NULL) |
| log->Printf ("SBValue(%p)::GetProcess () => NULL", value_sp.get()); |
| else |
| log->Printf ("SBValue(%p)::GetProcess () => %p", value_sp.get(), process_sp.get()); |
| } |
| return sb_process; |
| } |
| |
| lldb::SBThread |
| SBValue::GetThread() |
| { |
| SBThread sb_thread; |
| ThreadSP thread_sp; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| thread_sp = value_sp->GetThreadSP(); |
| sb_thread.SetThread(thread_sp); |
| } |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| { |
| if (thread_sp.get() == NULL) |
| log->Printf ("SBValue(%p)::GetThread () => NULL", value_sp.get()); |
| else |
| log->Printf ("SBValue(%p)::GetThread () => %p", value_sp.get(), thread_sp.get()); |
| } |
| return sb_thread; |
| } |
| |
| lldb::SBFrame |
| SBValue::GetFrame() |
| { |
| SBFrame sb_frame; |
| StackFrameSP frame_sp; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| frame_sp = value_sp->GetFrameSP(); |
| sb_frame.SetFrameSP (frame_sp); |
| } |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| { |
| if (frame_sp.get() == NULL) |
| log->Printf ("SBValue(%p)::GetFrame () => NULL", value_sp.get()); |
| else |
| log->Printf ("SBValue(%p)::GetFrame () => %p", value_sp.get(), frame_sp.get()); |
| } |
| return sb_frame; |
| } |
| |
| |
| lldb::ValueObjectSP |
| SBValue::GetSP () const |
| { |
| return m_opaque_sp; |
| } |
| |
| void |
| SBValue::SetSP (const lldb::ValueObjectSP &sp) |
| { |
| m_opaque_sp = sp; |
| if (IsValid() && m_opaque_sp->HasSyntheticValue()) |
| m_opaque_sp = m_opaque_sp->GetSyntheticValue(); |
| } |
| |
| |
| bool |
| SBValue::GetExpressionPath (SBStream &description) |
| { |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| value_sp->GetExpressionPath (description.ref(), false); |
| return true; |
| } |
| return false; |
| } |
| |
| bool |
| SBValue::GetExpressionPath (SBStream &description, bool qualify_cxx_base_classes) |
| { |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| value_sp->GetExpressionPath (description.ref(), qualify_cxx_base_classes); |
| return true; |
| } |
| return false; |
| } |
| |
| bool |
| SBValue::GetDescription (SBStream &description) |
| { |
| Stream &strm = description.ref(); |
| |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| log->Printf ("SBValue(%p)::GetDescription() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| ValueObject::DumpValueObject (strm, value_sp.get()); |
| } |
| } |
| else |
| strm.PutCString ("No value"); |
| |
| return true; |
| } |
| |
| lldb::Format |
| SBValue::GetFormat () |
| { |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| return value_sp->GetFormat(); |
| return eFormatDefault; |
| } |
| |
| void |
| SBValue::SetFormat (lldb::Format format) |
| { |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| value_sp->SetFormat(format); |
| } |
| |
| lldb::SBValue |
| SBValue::AddressOf() |
| { |
| SBValue sb_value; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| TargetSP target_sp (value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| Error error; |
| sb_value = value_sp->AddressOf (error); |
| } |
| } |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| log->Printf ("SBValue(%p)::GetPointerToObject () => SBValue(%p)", value_sp.get(), value_sp.get()); |
| |
| return sb_value; |
| } |
| |
| lldb::addr_t |
| SBValue::GetLoadAddress() |
| { |
| lldb::addr_t value = LLDB_INVALID_ADDRESS; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| TargetSP target_sp (value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| const bool scalar_is_load_address = true; |
| AddressType addr_type; |
| value = value_sp->GetAddressOf(scalar_is_load_address, &addr_type); |
| if (addr_type == eAddressTypeFile) |
| { |
| ModuleSP module_sp (value_sp->GetModule()); |
| if (!module_sp) |
| value = LLDB_INVALID_ADDRESS; |
| else |
| { |
| Address addr; |
| module_sp->ResolveFileAddress(value, addr); |
| value = addr.GetLoadAddress(target_sp.get()); |
| } |
| } |
| else if (addr_type == eAddressTypeHost || addr_type == eAddressTypeInvalid) |
| value = LLDB_INVALID_ADDRESS; |
| } |
| } |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| log->Printf ("SBValue(%p)::GetLoadAddress () => (%llu)", value_sp.get(), value); |
| |
| return value; |
| } |
| |
| lldb::SBAddress |
| SBValue::GetAddress() |
| { |
| Address addr; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| TargetSP target_sp (value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| lldb::addr_t value = LLDB_INVALID_ADDRESS; |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| const bool scalar_is_load_address = true; |
| AddressType addr_type; |
| value = value_sp->GetAddressOf(scalar_is_load_address, &addr_type); |
| if (addr_type == eAddressTypeFile) |
| { |
| ModuleSP module_sp (value_sp->GetModule()); |
| if (module_sp) |
| module_sp->ResolveFileAddress(value, addr); |
| } |
| else if (addr_type == eAddressTypeLoad) |
| { |
| // no need to check the return value on this.. if it can actually do the resolve |
| // addr will be in the form (section,offset), otherwise it will simply be returned |
| // as (NULL, value) |
| addr.SetLoadAddress(value, target_sp.get()); |
| } |
| } |
| } |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| log->Printf ("SBValue(%p)::GetAddress () => (%s,%llu)", value_sp.get(), (addr.GetSection() ? addr.GetSection()->GetName().GetCString() : "NULL"), addr.GetOffset()); |
| return SBAddress(new Address(addr)); |
| } |
| |
| lldb::SBData |
| SBValue::GetPointeeData (uint32_t item_idx, |
| uint32_t item_count) |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| lldb::SBData sb_data; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| if (log) |
| log->Printf ("SBValue(%p)::GetPointeeData() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp (value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| DataExtractorSP data_sp(new DataExtractor()); |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| value_sp->GetPointeeData(*data_sp, item_idx, item_count); |
| if (data_sp->GetByteSize() > 0) |
| *sb_data = data_sp; |
| } |
| } |
| } |
| if (log) |
| log->Printf ("SBValue(%p)::GetPointeeData (%d, %d) => SBData(%p)", |
| value_sp.get(), |
| item_idx, |
| item_count, |
| sb_data.get()); |
| |
| return sb_data; |
| } |
| |
| lldb::SBData |
| SBValue::GetData () |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| lldb::SBData sb_data; |
| lldb::ValueObjectSP value_sp(GetSP()); |
| if (value_sp) |
| { |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| if (log) |
| log->Printf ("SBValue(%p)::GetData() => error: process is running", value_sp.get()); |
| } |
| else |
| { |
| TargetSP target_sp (value_sp->GetTargetSP()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker (target_sp->GetAPIMutex()); |
| DataExtractorSP data_sp(new DataExtractor()); |
| value_sp->GetData(*data_sp); |
| if (data_sp->GetByteSize() > 0) |
| *sb_data = data_sp; |
| } |
| } |
| } |
| if (log) |
| log->Printf ("SBValue(%p)::GetData () => SBData(%p)", |
| value_sp.get(), |
| sb_data.get()); |
| |
| return sb_data; |
| } |
| |
| lldb::SBWatchpoint |
| SBValue::Watch (bool resolve_location, bool read, bool write) |
| { |
| SBWatchpoint sb_watchpoint; |
| |
| // If the SBValue is not valid, there's no point in even trying to watch it. |
| lldb::ValueObjectSP value_sp(GetSP()); |
| TargetSP target_sp (GetTarget().GetSP()); |
| if (value_sp && target_sp) |
| { |
| // Can't watch this if the process is running |
| ProcessSP process_sp(value_sp->GetProcessSP()); |
| Process::StopLocker stop_locker; |
| if (process_sp && !stop_locker.TryLock(&process_sp->GetRunLock())) |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| if (log) |
| log->Printf ("SBValue(%p)::Watch() => error: process is running", value_sp.get()); |
| return sb_watchpoint; |
| } |
| |
| // Read and Write cannot both be false. |
| if (!read && !write) |
| return sb_watchpoint; |
| |
| // If the value is not in scope, don't try and watch and invalid value |
| if (!IsInScope()) |
| return sb_watchpoint; |
| |
| addr_t addr = GetLoadAddress(); |
| if (addr == LLDB_INVALID_ADDRESS) |
| return sb_watchpoint; |
| size_t byte_size = GetByteSize(); |
| if (byte_size == 0) |
| return sb_watchpoint; |
| |
| uint32_t watch_type = 0; |
| if (read) |
| watch_type |= LLDB_WATCH_TYPE_READ; |
| if (write) |
| watch_type |= LLDB_WATCH_TYPE_WRITE; |
| |
| WatchpointSP watchpoint_sp = target_sp->CreateWatchpoint(addr, byte_size, watch_type); |
| |
| if (watchpoint_sp) |
| { |
| sb_watchpoint.SetSP (watchpoint_sp); |
| Declaration decl; |
| if (value_sp->GetDeclaration (decl)) |
| { |
| if (decl.GetFile()) |
| { |
| StreamString ss; |
| // True to show fullpath for declaration file. |
| decl.DumpStopContext(&ss, true); |
| watchpoint_sp->SetDeclInfo(ss.GetString()); |
| } |
| } |
| } |
| } |
| return sb_watchpoint; |
| } |
| |
| lldb::SBWatchpoint |
| SBValue::WatchPointee (bool resolve_location, bool read, bool write) |
| { |
| SBWatchpoint sb_watchpoint; |
| if (IsInScope() && GetType().IsPointerType()) |
| sb_watchpoint = Dereference().Watch (resolve_location, read, write); |
| return sb_watchpoint; |
| } |
| |
