1 //===-- ThreadPlanCallFunction.cpp ------------------------------*- C++ -*-===//
3 // The LLVM Compiler Infrastructure
5 // This file is distributed under the University of Illinois Open Source
6 // License. See LICENSE.TXT for details.
8 //===----------------------------------------------------------------------===//
12 // Other libraries and framework includes
14 #include "lldb/Target/ThreadPlanCallFunction.h"
15 #include "lldb/Breakpoint/Breakpoint.h"
16 #include "lldb/Breakpoint/BreakpointLocation.h"
17 #include "lldb/Core/Address.h"
18 #include "lldb/Core/Module.h"
19 #include "lldb/Symbol/ObjectFile.h"
20 #include "lldb/Target/ABI.h"
21 #include "lldb/Target/LanguageRuntime.h"
22 #include "lldb/Target/Process.h"
23 #include "lldb/Target/RegisterContext.h"
24 #include "lldb/Target/StopInfo.h"
25 #include "lldb/Target/Target.h"
26 #include "lldb/Target/Thread.h"
27 #include "lldb/Target/ThreadPlanRunToAddress.h"
28 #include "lldb/Utility/Log.h"
29 #include "lldb/Utility/Stream.h"
32 using namespace lldb_private;
34 //----------------------------------------------------------------------
35 // ThreadPlanCallFunction: Plan to call a single function
36 //----------------------------------------------------------------------
37 bool ThreadPlanCallFunction::ConstructorSetup(
38 Thread &thread, ABI *&abi, lldb::addr_t &start_load_addr,
39 lldb::addr_t &function_load_addr) {
40 SetIsMasterPlan(true);
41 SetOkayToDiscard(false);
44 ProcessSP process_sp(thread.GetProcess());
48 abi = process_sp->GetABI().get();
53 Log *log(lldb_private::GetLogIfAnyCategoriesSet(LIBLLDB_LOG_STEP));
57 m_function_sp = thread.GetRegisterContext()->GetSP() - abi->GetRedZoneSize();
58 // If we can't read memory at the point of the process where we are planning
59 // to put our function, we're
60 // not going to get any further...
62 process_sp->ReadUnsignedIntegerFromMemory(m_function_sp, 4, 0, error);
63 if (!error.Success()) {
64 m_constructor_errors.Printf(
65 "Trying to put the stack in unreadable memory at: 0x%" PRIx64 ".",
68 log->Printf("ThreadPlanCallFunction(%p): %s.", static_cast<void *>(this),
69 m_constructor_errors.GetData());
73 Module *exe_module = GetTarget().GetExecutableModulePointer();
75 if (exe_module == nullptr) {
76 m_constructor_errors.Printf(
77 "Can't execute code without an executable module.");
79 log->Printf("ThreadPlanCallFunction(%p): %s.", static_cast<void *>(this),
80 m_constructor_errors.GetData());
83 ObjectFile *objectFile = exe_module->GetObjectFile();
85 m_constructor_errors.Printf(
86 "Could not find object file for module \"%s\".",
87 exe_module->GetFileSpec().GetFilename().AsCString());
90 log->Printf("ThreadPlanCallFunction(%p): %s.",
91 static_cast<void *>(this), m_constructor_errors.GetData());
95 m_start_addr = objectFile->GetEntryPointAddress();
96 if (!m_start_addr.IsValid()) {
97 m_constructor_errors.Printf(
98 "Could not find entry point address for executable module \"%s\".",
99 exe_module->GetFileSpec().GetFilename().AsCString());
101 log->Printf("ThreadPlanCallFunction(%p): %s.",
102 static_cast<void *>(this), m_constructor_errors.GetData());
107 start_load_addr = m_start_addr.GetLoadAddress(&GetTarget());
109 // Checkpoint the thread state so we can restore it later.
110 if (log && log->GetVerbose())
111 ReportRegisterState("About to checkpoint thread before function call. "
112 "Original register state was:");
114 if (!thread.CheckpointThreadState(m_stored_thread_state)) {
115 m_constructor_errors.Printf("Setting up ThreadPlanCallFunction, failed to "
116 "checkpoint thread state.");
118 log->Printf("ThreadPlanCallFunction(%p): %s.", static_cast<void *>(this),
119 m_constructor_errors.GetData());
122 function_load_addr = m_function_addr.GetLoadAddress(&GetTarget());
127 ThreadPlanCallFunction::ThreadPlanCallFunction(
128 Thread &thread, const Address &function, const CompilerType &return_type,
129 llvm::ArrayRef<addr_t> args, const EvaluateExpressionOptions &options)
130 : ThreadPlan(ThreadPlan::eKindCallFunction, "Call function plan", thread,
131 eVoteNoOpinion, eVoteNoOpinion),
132 m_valid(false), m_stop_other_threads(options.GetStopOthers()),
133 m_unwind_on_error(options.DoesUnwindOnError()),
134 m_ignore_breakpoints(options.DoesIgnoreBreakpoints()),
135 m_debug_execution(options.GetDebug()),
136 m_trap_exceptions(options.GetTrapExceptions()), m_function_addr(function),
137 m_function_sp(0), m_takedown_done(false),
138 m_should_clear_objc_exception_bp(false),
139 m_should_clear_cxx_exception_bp(false),
140 m_stop_address(LLDB_INVALID_ADDRESS), m_return_type(return_type) {
141 lldb::addr_t start_load_addr = LLDB_INVALID_ADDRESS;
142 lldb::addr_t function_load_addr = LLDB_INVALID_ADDRESS;
145 if (!ConstructorSetup(thread, abi, start_load_addr, function_load_addr))
148 if (!abi->PrepareTrivialCall(thread, m_function_sp, function_load_addr,
149 start_load_addr, args))
152 ReportRegisterState("Function call was set up. Register state was:");
157 ThreadPlanCallFunction::ThreadPlanCallFunction(
158 Thread &thread, const Address &function,
159 const EvaluateExpressionOptions &options)
160 : ThreadPlan(ThreadPlan::eKindCallFunction, "Call function plan", thread,
161 eVoteNoOpinion, eVoteNoOpinion),
162 m_valid(false), m_stop_other_threads(options.GetStopOthers()),
163 m_unwind_on_error(options.DoesUnwindOnError()),
164 m_ignore_breakpoints(options.DoesIgnoreBreakpoints()),
165 m_debug_execution(options.GetDebug()),
166 m_trap_exceptions(options.GetTrapExceptions()), m_function_addr(function),
167 m_function_sp(0), m_takedown_done(false),
168 m_should_clear_objc_exception_bp(false),
169 m_should_clear_cxx_exception_bp(false),
170 m_stop_address(LLDB_INVALID_ADDRESS), m_return_type(CompilerType()) {}
172 ThreadPlanCallFunction::~ThreadPlanCallFunction() {
173 DoTakedown(PlanSucceeded());
176 void ThreadPlanCallFunction::ReportRegisterState(const char *message) {
177 Log *log(lldb_private::GetLogIfAllCategoriesSet(LIBLLDB_LOG_STEP));
178 if (log && log->GetVerbose()) {
180 RegisterContext *reg_ctx = m_thread.GetRegisterContext().get();
182 log->PutCString(message);
184 RegisterValue reg_value;
186 for (uint32_t reg_idx = 0, num_registers = reg_ctx->GetRegisterCount();
187 reg_idx < num_registers; ++reg_idx) {
188 const RegisterInfo *reg_info = reg_ctx->GetRegisterInfoAtIndex(reg_idx);
189 if (reg_ctx->ReadRegister(reg_info, reg_value)) {
190 reg_value.Dump(&strm, reg_info, true, false, eFormatDefault);
194 log->PutString(strm.GetString());
198 void ThreadPlanCallFunction::DoTakedown(bool success) {
199 Log *log(lldb_private::GetLogIfAnyCategoriesSet(LIBLLDB_LOG_STEP));
202 // Don't call DoTakedown if we were never valid to begin with.
204 log->Printf("ThreadPlanCallFunction(%p): Log called on "
205 "ThreadPlanCallFunction that was never valid.",
206 static_cast<void *>(this));
210 if (!m_takedown_done) {
215 log->Printf("ThreadPlanCallFunction(%p): DoTakedown called for thread "
216 "0x%4.4" PRIx64 ", m_valid: %d complete: %d.\n",
217 static_cast<void *>(this), m_thread.GetID(), m_valid,
219 m_takedown_done = true;
221 m_thread.GetStackFrameAtIndex(0)->GetRegisterContext()->GetPC();
222 m_real_stop_info_sp = GetPrivateStopInfo();
223 if (!m_thread.RestoreRegisterStateFromCheckpoint(m_stored_thread_state)) {
225 log->Printf("ThreadPlanCallFunction(%p): DoTakedown failed to restore "
227 static_cast<void *>(this));
229 SetPlanComplete(success);
231 if (log && log->GetVerbose())
232 ReportRegisterState("Restoring thread state after function call. "
233 "Restored register state:");
236 log->Printf("ThreadPlanCallFunction(%p): DoTakedown called as no-op for "
237 "thread 0x%4.4" PRIx64 ", m_valid: %d complete: %d.\n",
238 static_cast<void *>(this), m_thread.GetID(), m_valid,
243 void ThreadPlanCallFunction::WillPop() { DoTakedown(PlanSucceeded()); }
245 void ThreadPlanCallFunction::GetDescription(Stream *s, DescriptionLevel level) {
246 if (level == eDescriptionLevelBrief) {
247 s->Printf("Function call thread plan");
249 TargetSP target_sp(m_thread.CalculateTarget());
250 s->Printf("Thread plan to call 0x%" PRIx64,
251 m_function_addr.GetLoadAddress(target_sp.get()));
255 bool ThreadPlanCallFunction::ValidatePlan(Stream *error) {
258 if (m_constructor_errors.GetSize() > 0)
259 error->PutCString(m_constructor_errors.GetString());
261 error->PutCString("Unknown error");
269 Vote ThreadPlanCallFunction::ShouldReportStop(Event *event_ptr) {
270 if (m_takedown_done || IsPlanComplete())
273 return ThreadPlan::ShouldReportStop(event_ptr);
276 bool ThreadPlanCallFunction::DoPlanExplainsStop(Event *event_ptr) {
277 Log *log(lldb_private::GetLogIfAnyCategoriesSet(LIBLLDB_LOG_STEP |
278 LIBLLDB_LOG_PROCESS));
279 m_real_stop_info_sp = GetPrivateStopInfo();
281 // If our subplan knows why we stopped, even if it's done (which would forward
282 // the question to us)
284 if (m_subplan_sp && m_subplan_sp->PlanExplainsStop(event_ptr)) {
289 // Check if the breakpoint is one of ours.
291 StopReason stop_reason;
292 if (!m_real_stop_info_sp)
293 stop_reason = eStopReasonNone;
295 stop_reason = m_real_stop_info_sp->GetStopReason();
298 "ThreadPlanCallFunction::PlanExplainsStop: Got stop reason - %s.",
299 Thread::StopReasonAsCString(stop_reason));
301 if (stop_reason == eStopReasonBreakpoint && BreakpointsExplainStop())
304 // One more quirk here. If this event was from Halt interrupting the target,
305 // then we should not consider
306 // ourselves complete. Return true to acknowledge the stop.
307 if (Process::ProcessEventData::GetInterruptedFromEvent(event_ptr)) {
309 log->Printf("ThreadPlanCallFunction::PlanExplainsStop: The event is an "
310 "Interrupt, returning true.");
313 // We control breakpoints separately from other "stop reasons." So first,
314 // check the case where we stopped for an internal breakpoint, in that case,
316 // If it is not an internal breakpoint, consult m_ignore_breakpoints.
318 if (stop_reason == eStopReasonBreakpoint) {
319 ProcessSP process_sp(m_thread.CalculateProcess());
320 uint64_t break_site_id = m_real_stop_info_sp->GetValue();
321 BreakpointSiteSP bp_site_sp;
323 bp_site_sp = process_sp->GetBreakpointSiteList().FindByID(break_site_id);
325 uint32_t num_owners = bp_site_sp->GetNumberOfOwners();
326 bool is_internal = true;
327 for (uint32_t i = 0; i < num_owners; i++) {
328 Breakpoint &bp = bp_site_sp->GetOwnerAtIndex(i)->GetBreakpoint();
330 log->Printf("ThreadPlanCallFunction::PlanExplainsStop: hit "
331 "breakpoint %d while calling function",
334 if (!bp.IsInternal()) {
341 log->Printf("ThreadPlanCallFunction::PlanExplainsStop hit an "
342 "internal breakpoint, not stopping.");
347 if (m_ignore_breakpoints) {
349 log->Printf("ThreadPlanCallFunction::PlanExplainsStop: we are ignoring "
350 "breakpoints, overriding breakpoint stop info ShouldStop, "
352 m_real_stop_info_sp->OverrideShouldStop(false);
356 log->Printf("ThreadPlanCallFunction::PlanExplainsStop: we are not "
357 "ignoring breakpoints, overriding breakpoint stop info "
358 "ShouldStop, returning true");
359 m_real_stop_info_sp->OverrideShouldStop(true);
362 } else if (!m_unwind_on_error) {
363 // If we don't want to discard this plan, than any stop we don't understand
364 // should be propagated up the stack.
367 // If the subplan is running, any crashes are attributable to us.
368 // If we want to discard the plan, then we say we explain the stop
369 // but if we are going to be discarded, let whoever is above us
371 // But don't discard the plan if the stop would restart itself (for instance
373 // signal that is set not to stop. Check that here first. We just say we
375 // but aren't done and everything will continue on from there.
377 if (m_real_stop_info_sp &&
378 m_real_stop_info_sp->ShouldStopSynchronous(event_ptr)) {
379 SetPlanComplete(false);
380 return m_subplan_sp ? m_unwind_on_error : false;
386 bool ThreadPlanCallFunction::ShouldStop(Event *event_ptr) {
387 // We do some computation in DoPlanExplainsStop that may or may not set the
389 // We need to do that here to make sure our state is correct.
390 DoPlanExplainsStop(event_ptr);
392 if (IsPlanComplete()) {
393 ReportRegisterState("Function completed. Register state was:");
400 bool ThreadPlanCallFunction::StopOthers() { return m_stop_other_threads; }
402 StateType ThreadPlanCallFunction::GetPlanRunState() { return eStateRunning; }
404 void ThreadPlanCallFunction::DidPush() {
405 //#define SINGLE_STEP_EXPRESSIONS
407 // Now set the thread state to "no reason" so we don't run with whatever
408 // signal was outstanding...
409 // Wait till the plan is pushed so we aren't changing the stop info till we're
412 GetThread().SetStopInfoToNothing();
414 #ifndef SINGLE_STEP_EXPRESSIONS
416 new ThreadPlanRunToAddress(m_thread, m_start_addr, m_stop_other_threads));
418 m_thread.QueueThreadPlan(m_subplan_sp, false);
419 m_subplan_sp->SetPrivate(true);
423 bool ThreadPlanCallFunction::WillStop() { return true; }
425 bool ThreadPlanCallFunction::MischiefManaged() {
426 Log *log(lldb_private::GetLogIfAllCategoriesSet(LIBLLDB_LOG_STEP));
428 if (IsPlanComplete()) {
430 log->Printf("ThreadPlanCallFunction(%p): Completed call function plan.",
431 static_cast<void *>(this));
433 ThreadPlan::MischiefManaged();
440 void ThreadPlanCallFunction::SetBreakpoints() {
441 ProcessSP process_sp(m_thread.CalculateProcess());
442 if (m_trap_exceptions && process_sp) {
443 m_cxx_language_runtime =
444 process_sp->GetLanguageRuntime(eLanguageTypeC_plus_plus);
445 m_objc_language_runtime = process_sp->GetLanguageRuntime(eLanguageTypeObjC);
447 if (m_cxx_language_runtime) {
448 m_should_clear_cxx_exception_bp =
449 !m_cxx_language_runtime->ExceptionBreakpointsAreSet();
450 m_cxx_language_runtime->SetExceptionBreakpoints();
452 if (m_objc_language_runtime) {
453 m_should_clear_objc_exception_bp =
454 !m_objc_language_runtime->ExceptionBreakpointsAreSet();
455 m_objc_language_runtime->SetExceptionBreakpoints();
460 void ThreadPlanCallFunction::ClearBreakpoints() {
461 if (m_trap_exceptions) {
462 if (m_cxx_language_runtime && m_should_clear_cxx_exception_bp)
463 m_cxx_language_runtime->ClearExceptionBreakpoints();
464 if (m_objc_language_runtime && m_should_clear_objc_exception_bp)
465 m_objc_language_runtime->ClearExceptionBreakpoints();
469 bool ThreadPlanCallFunction::BreakpointsExplainStop() {
470 StopInfoSP stop_info_sp = GetPrivateStopInfo();
472 if (m_trap_exceptions) {
473 if ((m_cxx_language_runtime &&
474 m_cxx_language_runtime->ExceptionBreakpointsExplainStop(
476 (m_objc_language_runtime &&
477 m_objc_language_runtime->ExceptionBreakpointsExplainStop(
479 Log *log(lldb_private::GetLogIfAnyCategoriesSet(LIBLLDB_LOG_STEP));
481 log->Printf("ThreadPlanCallFunction::BreakpointsExplainStop - Hit an "
482 "exception breakpoint, setting plan complete.");
484 SetPlanComplete(false);
486 // If the user has set the ObjC language breakpoint, it would normally get
487 // priority over our internal
488 // catcher breakpoint, but in this case we can't let that happen, so force
489 // the ShouldStop here.
490 stop_info_sp->OverrideShouldStop(true);
498 void ThreadPlanCallFunction::SetStopOthers(bool new_value) {
499 m_subplan_sp->SetStopOthers(new_value);
502 bool ThreadPlanCallFunction::RestoreThreadState() {
503 return GetThread().RestoreThreadStateFromCheckpoint(m_stored_thread_state);
506 void ThreadPlanCallFunction::SetReturnValue() {
507 ProcessSP process_sp(m_thread.GetProcess());
508 const ABI *abi = process_sp ? process_sp->GetABI().get() : nullptr;
509 if (abi && m_return_type.IsValid()) {
510 const bool persistent = false;
512 abi->GetReturnValueObject(m_thread, m_return_type, persistent);