130fdc8d8SChris Lattner //===-- ThreadPlanStepOverBreakpoint.cpp ------------------------*- C++ -*-===//
230fdc8d8SChris Lattner //
330fdc8d8SChris Lattner //                     The LLVM Compiler Infrastructure
430fdc8d8SChris Lattner //
530fdc8d8SChris Lattner // This file is distributed under the University of Illinois Open Source
630fdc8d8SChris Lattner // License. See LICENSE.TXT for details.
730fdc8d8SChris Lattner //
830fdc8d8SChris Lattner //===----------------------------------------------------------------------===//
930fdc8d8SChris Lattner 
1030fdc8d8SChris Lattner #include "lldb/Target/ThreadPlanStepOverBreakpoint.h"
1130fdc8d8SChris Lattner 
1230fdc8d8SChris Lattner // C Includes
1330fdc8d8SChris Lattner // C++ Includes
1430fdc8d8SChris Lattner // Other libraries and framework includes
1530fdc8d8SChris Lattner // Project includes
1630fdc8d8SChris Lattner #include "lldb/Target/Process.h"
1730fdc8d8SChris Lattner #include "lldb/Target/RegisterContext.h"
186f9e6901SZachary Turner #include "lldb/Utility/Log.h"
19bf9a7730SZachary Turner #include "lldb/Utility/Stream.h"
2030fdc8d8SChris Lattner 
2130fdc8d8SChris Lattner using namespace lldb;
2230fdc8d8SChris Lattner using namespace lldb_private;
2330fdc8d8SChris Lattner 
2430fdc8d8SChris Lattner //----------------------------------------------------------------------
25b9c1b51eSKate Stone // ThreadPlanStepOverBreakpoint: Single steps over a breakpoint bp_site_sp at
26b9c1b51eSKate Stone // the pc.
2730fdc8d8SChris Lattner //----------------------------------------------------------------------
2830fdc8d8SChris Lattner 
29b9c1b51eSKate Stone ThreadPlanStepOverBreakpoint::ThreadPlanStepOverBreakpoint(Thread &thread)
30b9c1b51eSKate Stone     : ThreadPlan(
31b9c1b51eSKate Stone           ThreadPlan::eKindStepOverBreakpoint, "Step over breakpoint trap",
32b9c1b51eSKate Stone           thread, eVoteNo,
3330fdc8d8SChris Lattner           eVoteNoOpinion), // We need to report the run since this happens
3405097246SAdrian Prantl                            // first in the thread plan stack when stepping over
3505097246SAdrian Prantl                            // a breakpoint
36b01e742aSJim Ingham       m_breakpoint_addr(LLDB_INVALID_ADDRESS),
37b9c1b51eSKate Stone       m_auto_continue(false), m_reenabled_breakpoint_site(false)
38b01e742aSJim Ingham 
3930fdc8d8SChris Lattner {
4030fdc8d8SChris Lattner   m_breakpoint_addr = m_thread.GetRegisterContext()->GetPC();
41b9c1b51eSKate Stone   m_breakpoint_site_id =
42b9c1b51eSKate Stone       m_thread.GetProcess()->GetBreakpointSiteList().FindIDByAddress(
43b9c1b51eSKate Stone           m_breakpoint_addr);
4430fdc8d8SChris Lattner }
4530fdc8d8SChris Lattner 
46b9c1b51eSKate Stone ThreadPlanStepOverBreakpoint::~ThreadPlanStepOverBreakpoint() {}
47b9c1b51eSKate Stone 
48b9c1b51eSKate Stone void ThreadPlanStepOverBreakpoint::GetDescription(
49b9c1b51eSKate Stone     Stream *s, lldb::DescriptionLevel level) {
50b9c1b51eSKate Stone   s->Printf("Single stepping past breakpoint site %" PRIu64 " at 0x%" PRIx64,
51b9c1b51eSKate Stone             m_breakpoint_site_id, (uint64_t)m_breakpoint_addr);
5230fdc8d8SChris Lattner }
5330fdc8d8SChris Lattner 
54b9c1b51eSKate Stone bool ThreadPlanStepOverBreakpoint::ValidatePlan(Stream *error) { return true; }
5530fdc8d8SChris Lattner 
56b9c1b51eSKate Stone bool ThreadPlanStepOverBreakpoint::DoPlanExplainsStop(Event *event_ptr) {
5760c4118cSJim Ingham   StopInfoSP stop_info_sp = GetPrivateStopInfo();
58b9c1b51eSKate Stone   if (stop_info_sp) {
59b9c1b51eSKate Stone     // It's a little surprising that we stop here for a breakpoint hit.
6005097246SAdrian Prantl     // However, when you single step ONTO a breakpoint we still want to call
6105097246SAdrian Prantl     // that a breakpoint hit, and trigger the actions, etc.  Otherwise you
6205097246SAdrian Prantl     // would see the
63b9c1b51eSKate Stone     // PC at the breakpoint without having triggered the actions, then you'd
64b9c1b51eSKate Stone     // continue, the PC wouldn't change,
6505097246SAdrian Prantl     // and you'd see the breakpoint hit, which would be odd. So the lower
6605097246SAdrian Prantl     // levels fake "step onto breakpoint address" and return that as a
6705097246SAdrian Prantl     // breakpoint.  So our trace step COULD appear as a breakpoint hit if the
6805097246SAdrian Prantl     // next instruction also contained a breakpoint.
69bc1d7f7aSJim Ingham     StopReason reason = stop_info_sp->GetStopReason();
708b91d0cdSJim Ingham 
71*a435d733SJim Ingham     Log *log(lldb_private::GetLogIfAllCategoriesSet(LIBLLDB_LOG_STEP));
72*a435d733SJim Ingham 
73*a435d733SJim Ingham     if (log)
74*a435d733SJim Ingham       log->Printf("Step over breakpoint stopped for reason: %s.",
75*a435d733SJim Ingham           Thread::StopReasonAsCString(reason));
76*a435d733SJim Ingham 
77b9c1b51eSKate Stone     switch (reason) {
788b91d0cdSJim Ingham       case eStopReasonTrace:
798b91d0cdSJim Ingham       case eStopReasonNone:
8030fdc8d8SChris Lattner         return true;
818b91d0cdSJim Ingham       case eStopReasonBreakpoint:
82*a435d733SJim Ingham       {
83b9c1b51eSKate Stone         // It's a little surprising that we stop here for a breakpoint hit.
8405097246SAdrian Prantl         // However, when you single step ONTO a breakpoint we still want to call
8505097246SAdrian Prantl         // that a breakpoint hit, and trigger the actions, etc.  Otherwise you
86b9c1b51eSKate Stone         // would see the PC at the breakpoint without having triggered the
8705097246SAdrian Prantl         // actions, then you'd continue, the PC wouldn't change, and you'd see
88*a435d733SJim Ingham         // the breakpoint hit, which would be odd. So the lower levels fake
89*a435d733SJim Ingham         // "step onto breakpoint address" and return that as a breakpoint hit.
90*a435d733SJim Ingham         // So our trace step COULD appear as a breakpoint hit if the next
91*a435d733SJim Ingham         // instruction also contained a breakpoint.  We don't want to handle
92*a435d733SJim Ingham         // that, since we really don't know what to do with breakpoint hits.
93*a435d733SJim Ingham         // But make sure we don't set ourselves to auto-continue or we'll wrench
94*a435d733SJim Ingham         // control away from the plans that can deal with this.
95*a435d733SJim Ingham         // Be careful, however, as we may have "seen a breakpoint under the PC
96*a435d733SJim Ingham         // because we stopped without changing the PC, in which case we do want
97*a435d733SJim Ingham         // to re-claim this stop so we'll try again.
98*a435d733SJim Ingham         lldb::addr_t pc_addr = m_thread.GetRegisterContext()->GetPC();
99*a435d733SJim Ingham 
100*a435d733SJim Ingham         if (pc_addr == m_breakpoint_addr) {
101*a435d733SJim Ingham           if (log)
102*a435d733SJim Ingham             log->Printf("Got breakpoint stop reason but pc: %" PRIu64
103*a435d733SJim Ingham                         "hasn't changed.", pc_addr);
104*a435d733SJim Ingham           return true;
105*a435d733SJim Ingham         }
106*a435d733SJim Ingham 
1078b91d0cdSJim Ingham         SetAutoContinue(false);
108bc1d7f7aSJim Ingham         return false;
109*a435d733SJim Ingham       }
1108b91d0cdSJim Ingham       default:
1118b91d0cdSJim Ingham         return false;
1128b91d0cdSJim Ingham     }
113bc1d7f7aSJim Ingham   }
114bc1d7f7aSJim Ingham   return false;
11530fdc8d8SChris Lattner }
11630fdc8d8SChris Lattner 
117b9c1b51eSKate Stone bool ThreadPlanStepOverBreakpoint::ShouldStop(Event *event_ptr) {
1188b91d0cdSJim Ingham   return !ShouldAutoContinue(event_ptr);
11930fdc8d8SChris Lattner }
12030fdc8d8SChris Lattner 
121b9c1b51eSKate Stone bool ThreadPlanStepOverBreakpoint::StopOthers() { return true; }
12230fdc8d8SChris Lattner 
123b9c1b51eSKate Stone StateType ThreadPlanStepOverBreakpoint::GetPlanRunState() {
12430fdc8d8SChris Lattner   return eStateStepping;
12530fdc8d8SChris Lattner }
12630fdc8d8SChris Lattner 
127b9c1b51eSKate Stone bool ThreadPlanStepOverBreakpoint::DoWillResume(StateType resume_state,
128b9c1b51eSKate Stone                                                 bool current_plan) {
129b9c1b51eSKate Stone   if (current_plan) {
130b9c1b51eSKate Stone     BreakpointSiteSP bp_site_sp(
131b9c1b51eSKate Stone         m_thread.GetProcess()->GetBreakpointSiteList().FindByAddress(
132b9c1b51eSKate Stone             m_breakpoint_addr));
133*a435d733SJim Ingham     if (bp_site_sp && bp_site_sp->IsEnabled()) {
134299c0c1cSJim Ingham       m_thread.GetProcess()->DisableBreakpointSite(bp_site_sp.get());
135*a435d733SJim Ingham       m_reenabled_breakpoint_site = false;
136*a435d733SJim Ingham     }
13730fdc8d8SChris Lattner   }
13830fdc8d8SChris Lattner   return true;
13930fdc8d8SChris Lattner }
14030fdc8d8SChris Lattner 
141b9c1b51eSKate Stone bool ThreadPlanStepOverBreakpoint::WillStop() {
1426e0ff1a3SGreg Clayton   ReenableBreakpointSite();
14330fdc8d8SChris Lattner   return true;
14430fdc8d8SChris Lattner }
14530fdc8d8SChris Lattner 
146*a435d733SJim Ingham void ThreadPlanStepOverBreakpoint::WillPop() {
147*a435d733SJim Ingham   ReenableBreakpointSite();
148*a435d733SJim Ingham }
149*a435d733SJim Ingham 
150b9c1b51eSKate Stone bool ThreadPlanStepOverBreakpoint::MischiefManaged() {
15130fdc8d8SChris Lattner   lldb::addr_t pc_addr = m_thread.GetRegisterContext()->GetPC();
15230fdc8d8SChris Lattner 
153b9c1b51eSKate Stone   if (pc_addr == m_breakpoint_addr) {
154b9c1b51eSKate Stone     // If we are still at the PC of our breakpoint, then for some reason we
15505097246SAdrian Prantl     // didn't get a chance to run.
15630fdc8d8SChris Lattner     return false;
157b9c1b51eSKate Stone   } else {
1585160ce5cSGreg Clayton     Log *log(lldb_private::GetLogIfAllCategoriesSet(LIBLLDB_LOG_STEP));
15930fdc8d8SChris Lattner     if (log)
16030fdc8d8SChris Lattner       log->Printf("Completed step over breakpoint plan.");
161b9c1b51eSKate Stone     // Otherwise, re-enable the breakpoint we were stepping over, and we're
162b9c1b51eSKate Stone     // done.
1636e0ff1a3SGreg Clayton     ReenableBreakpointSite();
16430fdc8d8SChris Lattner     ThreadPlan::MischiefManaged();
16530fdc8d8SChris Lattner     return true;
16630fdc8d8SChris Lattner   }
16730fdc8d8SChris Lattner }
16830fdc8d8SChris Lattner 
169b9c1b51eSKate Stone void ThreadPlanStepOverBreakpoint::ReenableBreakpointSite() {
170b9c1b51eSKate Stone   if (!m_reenabled_breakpoint_site) {
1716e0ff1a3SGreg Clayton     m_reenabled_breakpoint_site = true;
172b9c1b51eSKate Stone     BreakpointSiteSP bp_site_sp(
173b9c1b51eSKate Stone         m_thread.GetProcess()->GetBreakpointSiteList().FindByAddress(
174b9c1b51eSKate Stone             m_breakpoint_addr));
175b9c1b51eSKate Stone     if (bp_site_sp) {
1766e0ff1a3SGreg Clayton       m_thread.GetProcess()->EnableBreakpointSite(bp_site_sp.get());
1776e0ff1a3SGreg Clayton     }
1786e0ff1a3SGreg Clayton   }
1796e0ff1a3SGreg Clayton }
180b9c1b51eSKate Stone void ThreadPlanStepOverBreakpoint::ThreadDestroyed() {
1816e0ff1a3SGreg Clayton   ReenableBreakpointSite();
1826e0ff1a3SGreg Clayton }
1836e0ff1a3SGreg Clayton 
184b9c1b51eSKate Stone void ThreadPlanStepOverBreakpoint::SetAutoContinue(bool do_it) {
185b01e742aSJim Ingham   m_auto_continue = do_it;
186b01e742aSJim Ingham }
187b01e742aSJim Ingham 
188b9c1b51eSKate Stone bool ThreadPlanStepOverBreakpoint::ShouldAutoContinue(Event *event_ptr) {
189b01e742aSJim Ingham   return m_auto_continue;
190b01e742aSJim Ingham }
1918b91d0cdSJim Ingham 
192b9c1b51eSKate Stone bool ThreadPlanStepOverBreakpoint::IsPlanStale() {
1938b91d0cdSJim Ingham   return m_thread.GetRegisterContext()->GetPC() != m_breakpoint_addr;
1948b91d0cdSJim Ingham }
195