//===-- SBTarget.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/SBTarget.h" #include "lldb/lldb-include.h" #include "lldb/API/SBFileSpec.h" #include "lldb/API/SBModule.h" #include "lldb/API/SBStream.h" #include "lldb/Breakpoint/BreakpointID.h" #include "lldb/Breakpoint/BreakpointIDList.h" #include "lldb/Breakpoint/BreakpointList.h" #include "lldb/Breakpoint/BreakpointLocation.h" #include "lldb/Core/Address.h" #include "lldb/Core/AddressResolver.h" #include "lldb/Core/AddressResolverName.h" #include "lldb/Interpreter/Args.h" #include "lldb/Core/ArchSpec.h" #include "lldb/Core/Debugger.h" #include "lldb/Core/Disassembler.h" #include "lldb/Core/FileSpec.h" #include "lldb/Core/Log.h" #include "lldb/Core/RegularExpression.h" #include "lldb/Core/SearchFilter.h" #include "lldb/Core/STLUtils.h" #include "lldb/Target/Process.h" #include "lldb/Target/Target.h" #include "lldb/Target/TargetList.h" #include "lldb/Interpreter/CommandReturnObject.h" #include "../source/Commands/CommandObjectBreakpoint.h" #include "lldb/API/SBDebugger.h" #include "lldb/API/SBProcess.h" #include "lldb/API/SBListener.h" #include "lldb/API/SBBreakpoint.h" using namespace lldb; using namespace lldb_private; #define DEFAULT_DISASM_BYTE_SIZE 32 //---------------------------------------------------------------------- // SBTarget constructor //---------------------------------------------------------------------- SBTarget::SBTarget () { } SBTarget::SBTarget (const SBTarget& rhs) : m_opaque_sp (rhs.m_opaque_sp) { // Log *log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API); // // if (log) // { // SBStream sstr; // GetDescription (sstr, lldb::eDescriptionLevelBrief); // log->Printf ("SBTarget::SBTarget (rhs.sp=%p) => SBTarget(%p): %s", // rhs.m_opaque_sp.get(), m_opaque_sp.get(), sstr.GetData()); // } } SBTarget::SBTarget(const TargetSP& target_sp) : m_opaque_sp (target_sp) { // Log *log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API); // // if (log) // { // SBStream sstr; // GetDescription (sstr, lldb::eDescriptionLevelBrief); // log->Printf ("SBTarget::SBTarget (target_sp=%p) => SBTarget(%p): %s", // target_sp.get(), m_opaque_sp.get(), sstr.GetData()); // } } //---------------------------------------------------------------------- // Destructor //---------------------------------------------------------------------- SBTarget::~SBTarget() { } bool SBTarget::IsValid () const { return m_opaque_sp.get() != NULL; } SBProcess SBTarget::GetProcess () { SBProcess sb_process; if (m_opaque_sp) sb_process.SetProcess (m_opaque_sp->GetProcessSP()); Log *log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API); if (log) { SBStream sstr; sb_process.GetDescription (sstr); log->Printf ("SBTarget(%p)::GetProcess () => SBProcess(%p): %s", m_opaque_sp.get(), sb_process.get(), sstr.GetData()); } return sb_process; } SBDebugger SBTarget::GetDebugger () const { SBDebugger debugger; if (m_opaque_sp) debugger.reset (m_opaque_sp->GetDebugger().GetSP()); return debugger; } // DEPRECATED SBProcess SBTarget::CreateProcess () { SBProcess sb_process; if (m_opaque_sp) sb_process.SetProcess (m_opaque_sp->CreateProcess (m_opaque_sp->GetDebugger().GetListener())); Log *log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API); if (log) { SBStream sstr; sb_process.GetDescription (sstr); log->Printf ("SBTarget(%p)::CreateProcess () => SBProcess(%p): %s", m_opaque_sp.get(), sb_process.get(), sstr.GetData()); } return sb_process; } SBProcess SBTarget::LaunchProcess ( char const **argv, char const **envp, const char *tty, uint32_t launch_flags, bool stop_at_entry ) { Log *log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API); if (log) log->Printf ("SBTarget(%p)::LaunchProcess (argv=%p, envp=%p, tty=\"%s\", launch_flags=%d, stop_at_entry=%i)", m_opaque_sp.get(), argv, envp, tty, launch_flags, stop_at_entry); SBError sb_error; SBProcess sb_process = Launch (argv, envp, tty, launch_flags, stop_at_entry, sb_error); log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API); if (log) { SBStream sstr; sb_process.GetDescription (sstr); log->Printf ("SBTarget(%p)::LaunchProcess (...) => SBProcess(%p): %s", m_opaque_sp.get(), sb_process.get(), sstr.GetData()); } return sb_process; } SBProcess SBTarget::Launch ( char const **argv, char const **envp, const char *tty, uint32_t launch_flags, bool stop_at_entry, SBError &error ) { Log *log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API); if (log) { log->Printf ("SBTarget(%p)::Launch (argv=%p, envp=%p, tty=\"%s\", launch_flags=%d, stop_at_entry=%i, &error (%p))...", m_opaque_sp.get(), argv, envp, tty, launch_flags, stop_at_entry, error.get()); } SBProcess sb_process; if (m_opaque_sp) { // DEPRECATED, this will change when CreateProcess is removed... if (m_opaque_sp->GetProcessSP()) { sb_process.SetProcess(m_opaque_sp->GetProcessSP()); } else { // When launching, we always want to create a new process When // SBTarget::CreateProcess is removed, this will always happen. sb_process.SetProcess (m_opaque_sp->CreateProcess (m_opaque_sp->GetDebugger().GetListener())); } if (sb_process.IsValid()) { error.SetError (sb_process->Launch (argv, envp, launch_flags, tty, tty, tty)); if (error.Success()) { // We we are stopping at the entry point, we can return now! if (stop_at_entry) return sb_process; // Make sure we are stopped at the entry StateType state = sb_process->WaitForProcessToStop (NULL); if (state == eStateStopped) { // resume the process to skip the entry point error.SetError (sb_process->Resume()); if (error.Success()) { // If we are doing synchronous mode, then wait for the // process to stop yet again! if (m_opaque_sp->GetDebugger().GetAsyncExecution () == false) sb_process->WaitForProcessToStop (NULL); } } } } else { error.SetErrorString ("unable to create lldb_private::Process"); } } else { error.SetErrorString ("SBTarget is invalid"); } log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API); if (log) { SBStream sstr; sb_process.GetDescription (sstr); log->Printf ("SBTarget(%p)::Launch (...) => SBProceess(%p): %s", m_opaque_sp.get(), sb_process.get(), sstr.GetData()); } return sb_process; } lldb::SBProcess SBTarget::AttachToProcessWithID ( lldb::pid_t pid,// The process ID to attach to SBError& error // An error explaining what went wrong if attach fails ) { SBProcess sb_process; if (m_opaque_sp) { // DEPRECATED, this will change when CreateProcess is removed... if (m_opaque_sp->GetProcessSP()) { sb_process.SetProcess(m_opaque_sp->GetProcessSP()); } else { // When launching, we always want to create a new process When // SBTarget::CreateProcess is removed, this will always happen. sb_process.SetProcess (m_opaque_sp->CreateProcess (m_opaque_sp->GetDebugger().GetListener())); } if (sb_process.IsValid()) { error.SetError (sb_process->Attach (pid)); } else { error.SetErrorString ("unable to create lldb_private::Process"); } } else { error.SetErrorString ("SBTarget is invalid"); } return sb_process; } lldb::SBProcess SBTarget::AttachToProcessWithName ( const char *name, // basename of process to attach to bool wait_for, // if true wait for a new instance of "name" to be launched SBError& error // An error explaining what went wrong if attach fails ) { SBProcess sb_process; if (m_opaque_sp) { // DEPRECATED, this will change when CreateProcess is removed... if (m_opaque_sp->GetProcessSP()) { sb_process.SetProcess(m_opaque_sp->GetProcessSP()); } else { // When launching, we always want to create a new process When // SBTarget::CreateProcess is removed, this will always happen. sb_process.SetProcess (m_opaque_sp->CreateProcess (m_opaque_sp->GetDebugger().GetListener())); } if (sb_process.IsValid()) { error.SetError (sb_process->Attach (name, wait_for)); } else { error.SetErrorString ("unable to create lldb_private::Process"); } } else { error.SetErrorString ("SBTarget is invalid"); } return sb_process; } SBFileSpec SBTarget::GetExecutable () { Log *log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API); SBFileSpec exe_file_spec; if (m_opaque_sp) { ModuleSP exe_module_sp (m_opaque_sp->GetExecutableModule ()); if (exe_module_sp) exe_file_spec.SetFileSpec (exe_module_sp->GetFileSpec()); } if (log) { if (exe_file_spec.Exists()) { SBStream sstr; exe_file_spec.GetDescription (sstr); log->Printf ("SBTarget(%p)::GetExecutable () => SBFileSpec(%p): %s", m_opaque_sp.get(), exe_file_spec.get(), sstr.GetData()); } else log->Printf ("SBTarget(%p)::GetExecutable () => SBFileSpec (%p): Unable to find valid file", m_opaque_sp.get(), exe_file_spec.get()); } return exe_file_spec; } bool SBTarget::DeleteTargetFromList (TargetList *list) { if (m_opaque_sp) return list->DeleteTarget (m_opaque_sp); else return false; } bool SBTarget::operator == (const SBTarget &rhs) const { return m_opaque_sp.get() == rhs.m_opaque_sp.get(); } bool SBTarget::operator != (const SBTarget &rhs) const { return m_opaque_sp.get() != rhs.m_opaque_sp.get(); } lldb_private::Target * SBTarget::operator ->() const { return m_opaque_sp.get(); } lldb_private::Target * SBTarget::get() const { return m_opaque_sp.get(); } void SBTarget::reset (const lldb::TargetSP& target_sp) { m_opaque_sp = target_sp; } SBBreakpoint SBTarget::BreakpointCreateByLocation (const char *file, uint32_t line) { return SBBreakpoint(BreakpointCreateByLocation (SBFileSpec (file), line)); } SBBreakpoint SBTarget::BreakpointCreateByLocation (const SBFileSpec &sb_file_spec, uint32_t line) { Log *log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API); SBBreakpoint sb_bp; if (m_opaque_sp.get() && line != 0) *sb_bp = m_opaque_sp->CreateBreakpoint (NULL, *sb_file_spec, line, true, false); if (log) { SBStream sstr; sb_bp.GetDescription (sstr); const char *dir = sb_file_spec.GetDirectory(); const char *file = sb_file_spec.GetFilename(); log->Printf ("SBTarget(%p)::BreakpointCreateByLocation ( %s%s%s:%u ) => SBBreakpoint(%p): %s", m_opaque_sp.get(), dir ? dir : "", dir ? "/" : "", file ? file : "", line, sb_bp.get(), sstr.GetData()); } return sb_bp; } SBBreakpoint SBTarget::BreakpointCreateByName (const char *symbol_name, const char *module_name) { Log *log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API); SBBreakpoint sb_bp; if (m_opaque_sp.get() && symbol_name && symbol_name[0]) { if (module_name && module_name[0]) { FileSpec module_file_spec(module_name, false); *sb_bp = m_opaque_sp->CreateBreakpoint (&module_file_spec, symbol_name, eFunctionNameTypeFull | eFunctionNameTypeBase, false); } else { *sb_bp = m_opaque_sp->CreateBreakpoint (NULL, symbol_name, eFunctionNameTypeFull | eFunctionNameTypeBase, false); } } if (log) { SBStream sstr; sb_bp.GetDescription (sstr); log->Printf ("SBTarget(%p)::BreakpointCreateByName (symbol=\"%s\", module=\"%s\") => " "SBBreakpoint(%p): %s", m_opaque_sp.get(), symbol_name, module_name, sb_bp.get(), sstr.GetData()); } return sb_bp; } SBBreakpoint SBTarget::BreakpointCreateByRegex (const char *symbol_name_regex, const char *module_name) { Log *log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API); SBBreakpoint sb_bp; if (m_opaque_sp.get() && symbol_name_regex && symbol_name_regex[0]) { RegularExpression regexp(symbol_name_regex); if (module_name && module_name[0]) { FileSpec module_file_spec(module_name, false); *sb_bp = m_opaque_sp->CreateBreakpoint (&module_file_spec, regexp, false); } else { *sb_bp = m_opaque_sp->CreateBreakpoint (NULL, regexp, false); } } if (log) { SBStream sstr; sb_bp.GetDescription (sstr); log->Printf ("SBTarget(%p)::BreakpointCreateByRegex (symbol_regex=\"%s\", module_name=\"%s\") " "=> SBBreakpoint(%p): %s", m_opaque_sp.get(), symbol_name_regex, module_name, sb_bp.get(), sstr.GetData()); } return sb_bp; } SBBreakpoint SBTarget::BreakpointCreateByAddress (addr_t address) { Log *log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API); SBBreakpoint sb_bp; if (m_opaque_sp.get()) *sb_bp = m_opaque_sp->CreateBreakpoint (address, false); if (log) { SBStream sstr; sb_bp.GetDescription (sstr); log->Printf ("SBTarget(%p)::BreakpointCreateByAddress (%p, address=%p) => " "SBBreakpoint(%p): %s", m_opaque_sp.get(), address, sb_bp.get(), sstr.GetData()); } return sb_bp; } SBBreakpoint SBTarget::FindBreakpointByID (break_id_t bp_id) { Log *log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API); SBBreakpoint sb_breakpoint; if (m_opaque_sp && bp_id != LLDB_INVALID_BREAK_ID) *sb_breakpoint = m_opaque_sp->GetBreakpointByID (bp_id); if (log) { SBStream sstr; sb_breakpoint.GetDescription (sstr); log->Printf ("SBTarget(%p)::FindBreakpointByID (bp_id=%d) => SBBreakpoint(%p): %s", m_opaque_sp.get(), (uint32_t) bp_id, sb_breakpoint.get(), sstr.GetData()); } return sb_breakpoint; } uint32_t SBTarget::GetNumBreakpoints () const { if (m_opaque_sp) return m_opaque_sp->GetBreakpointList().GetSize(); return 0; } SBBreakpoint SBTarget::GetBreakpointAtIndex (uint32_t idx) const { SBBreakpoint sb_breakpoint; if (m_opaque_sp) *sb_breakpoint = m_opaque_sp->GetBreakpointList().GetBreakpointAtIndex(idx); return sb_breakpoint; } bool SBTarget::BreakpointDelete (break_id_t bp_id) { Log *log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API); bool result = false; if (m_opaque_sp) result = m_opaque_sp->RemoveBreakpointByID (bp_id); if (log) { log->Printf ("SBTarget(%p)::BreakpointDelete (bp_id=%d) => %i", m_opaque_sp.get(), (uint32_t) bp_id, result); } return result; } bool SBTarget::EnableAllBreakpoints () { if (m_opaque_sp) { m_opaque_sp->EnableAllBreakpoints (); return true; } return false; } bool SBTarget::DisableAllBreakpoints () { if (m_opaque_sp) { m_opaque_sp->DisableAllBreakpoints (); return true; } return false; } bool SBTarget::DeleteAllBreakpoints () { if (m_opaque_sp) { m_opaque_sp->RemoveAllBreakpoints (); return true; } return false; } uint32_t SBTarget::GetNumModules () const { Log *log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API); uint32_t num = 0; if (m_opaque_sp) num = m_opaque_sp->GetImages().GetSize(); if (log) log->Printf ("SBTarget(%p)::GetNumModules () => %d", m_opaque_sp.get(), num); return num; } void SBTarget::Clear () { Log *log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API); if (log) log->Printf ("SBTarget(%p)::Clear ()", m_opaque_sp.get()); m_opaque_sp.reset(); } SBModule SBTarget::FindModule (const SBFileSpec &sb_file_spec) { SBModule sb_module; if (m_opaque_sp && sb_file_spec.IsValid()) sb_module.SetModule (m_opaque_sp->GetImages().FindFirstModuleForFileSpec (*sb_file_spec, NULL)); return sb_module; } SBModule SBTarget::GetModuleAtIndex (uint32_t idx) { Log *log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API); SBModule sb_module; if (m_opaque_sp) sb_module.SetModule(m_opaque_sp->GetImages().GetModuleAtIndex(idx)); if (log) { SBStream sstr; sb_module.GetDescription (sstr); log->Printf ("SBTarget(%p)::GetModuleAtIndex (idx=%d) => SBModule(%p): %s", m_opaque_sp.get(), idx, sb_module.get(), sstr.GetData()); } return sb_module; } SBBroadcaster SBTarget::GetBroadcaster () const { Log *log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API); SBBroadcaster broadcaster(m_opaque_sp.get(), false); if (log) log->Printf ("SBTarget(%p)::GetBroadcaster () => SBBroadcaster(%p)", m_opaque_sp.get(), broadcaster.get()); return broadcaster; } void SBTarget::Disassemble (lldb::addr_t start_addr, lldb::addr_t end_addr, const char *module_name) { if (start_addr == LLDB_INVALID_ADDRESS) return; FILE *out = m_opaque_sp->GetDebugger().GetOutputFileHandle(); if (out == NULL) return; if (m_opaque_sp) { ModuleSP module_sp; if (module_name != NULL) { FileSpec module_file_spec (module_name, false); module_sp = m_opaque_sp->GetImages().FindFirstModuleForFileSpec (module_file_spec, NULL); } AddressRange range; // Make sure the process object is alive if we have one (it might be // created but we might not be launched yet). Process *sb_process = m_opaque_sp->GetProcessSP().get(); if (sb_process && !sb_process->IsAlive()) sb_process = NULL; // If we are given a module, then "start_addr" is a file address in // that module. if (module_sp) { if (!module_sp->ResolveFileAddress (start_addr, range.GetBaseAddress())) range.GetBaseAddress().SetOffset(start_addr); } else if (m_opaque_sp->GetSectionLoadList().IsEmpty() == false) { // We don't have a module, se we need to figure out if "start_addr" // resolves to anything in a running process. if (!m_opaque_sp->GetSectionLoadList().ResolveLoadAddress (start_addr, range.GetBaseAddress())) range.GetBaseAddress().SetOffset(start_addr); } else { if (m_opaque_sp->GetImages().ResolveFileAddress (start_addr, range.GetBaseAddress())) range.GetBaseAddress().SetOffset(start_addr); } // For now, we need a process; the disassembly functions insist. If we don't have one already, // make one. ExecutionContext exe_ctx; if (sb_process) sb_process->CalculateExecutionContext(exe_ctx); else m_opaque_sp->CalculateExecutionContext(exe_ctx); if (end_addr == LLDB_INVALID_ADDRESS || end_addr < start_addr) range.SetByteSize( DEFAULT_DISASM_BYTE_SIZE); else range.SetByteSize(end_addr - start_addr); StreamFile out_stream (out); Disassembler::Disassemble (m_opaque_sp->GetDebugger(), m_opaque_sp->GetArchitecture(), exe_ctx, range, 3, false, out_stream); } } void SBTarget::Disassemble (const char *function_name, const char *module_name) { if (function_name == NULL) return; FILE *out = m_opaque_sp->GetDebugger().GetOutputFileHandle(); if (out == NULL) return; if (m_opaque_sp) { Disassembler *disassembler = Disassembler::FindPlugin (m_opaque_sp->GetArchitecture()); if (disassembler == NULL) return; ModuleSP module_sp; if (module_name != NULL) { FileSpec module_file_spec (module_name, false); module_sp = m_opaque_sp->GetImages().FindFirstModuleForFileSpec (module_file_spec, NULL); } ExecutionContext exe_ctx; // Make sure the process object is alive if we have one (it might be // created but we might not be launched yet). Process *sb_process = m_opaque_sp->GetProcessSP().get(); if (sb_process && !sb_process->IsAlive()) sb_process = NULL; if (sb_process) sb_process->CalculateExecutionContext(exe_ctx); else m_opaque_sp->CalculateExecutionContext(exe_ctx); StreamFile out_stream (out); Disassembler::Disassemble (m_opaque_sp->GetDebugger(), m_opaque_sp->GetArchitecture(), exe_ctx, ConstString (function_name), module_sp.get(), 3, false, out_stream); } } bool SBTarget::GetDescription (SBStream &description, lldb::DescriptionLevel description_level) { if (m_opaque_sp) { description.ref(); m_opaque_sp->Dump (description.get(), description_level); } else description.Printf ("No value"); return true; } bool SBTarget::GetDescription (SBStream &description, lldb::DescriptionLevel description_level) const { if (m_opaque_sp) { description.ref(); m_opaque_sp->Dump (description.get(), description_level); } else description.Printf ("No value"); return true; }