159d8dd79SMed Ismail Bennani //===-- ScriptedThread.cpp ------------------------------------------------===//
259d8dd79SMed Ismail Bennani //
359d8dd79SMed Ismail Bennani // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
459d8dd79SMed Ismail Bennani // See https://llvm.org/LICENSE.txt for license information.
559d8dd79SMed Ismail Bennani // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
659d8dd79SMed Ismail Bennani //
759d8dd79SMed Ismail Bennani //===----------------------------------------------------------------------===//
859d8dd79SMed Ismail Bennani 
959d8dd79SMed Ismail Bennani #include "ScriptedThread.h"
1059d8dd79SMed Ismail Bennani 
1159d8dd79SMed Ismail Bennani #include "Plugins/Process/Utility/RegisterContextThreadMemory.h"
1259d8dd79SMed Ismail Bennani #include "lldb/Target/OperatingSystem.h"
1359d8dd79SMed Ismail Bennani #include "lldb/Target/Process.h"
1459d8dd79SMed Ismail Bennani #include "lldb/Target/RegisterContext.h"
1559d8dd79SMed Ismail Bennani #include "lldb/Target/StopInfo.h"
1659d8dd79SMed Ismail Bennani #include "lldb/Target/Unwind.h"
1759d8dd79SMed Ismail Bennani #include "lldb/Utility/DataBufferHeap.h"
18*c34698a8SPavel Labath #include "lldb/Utility/LLDBLog.h"
1959d8dd79SMed Ismail Bennani #include <memory>
2059d8dd79SMed Ismail Bennani 
2159d8dd79SMed Ismail Bennani using namespace lldb;
2259d8dd79SMed Ismail Bennani using namespace lldb_private;
2359d8dd79SMed Ismail Bennani 
2459d8dd79SMed Ismail Bennani void ScriptedThread::CheckInterpreterAndScriptObject() const {
2559d8dd79SMed Ismail Bennani   lldbassert(m_script_object_sp && "Invalid Script Object.");
2659d8dd79SMed Ismail Bennani   lldbassert(GetInterface() && "Invalid Scripted Thread Interface.");
2759d8dd79SMed Ismail Bennani }
2859d8dd79SMed Ismail Bennani 
2945148bfeSMed Ismail Bennani llvm::Expected<std::shared_ptr<ScriptedThread>>
3045148bfeSMed Ismail Bennani ScriptedThread::Create(ScriptedProcess &process,
3145148bfeSMed Ismail Bennani                        StructuredData::Generic *script_object) {
3245148bfeSMed Ismail Bennani   if (!process.IsValid())
3345148bfeSMed Ismail Bennani     return llvm::createStringError(llvm::inconvertibleErrorCode(),
3445148bfeSMed Ismail Bennani                                    "Invalid scripted process.");
3559d8dd79SMed Ismail Bennani 
3659d8dd79SMed Ismail Bennani   process.CheckInterpreterAndScriptObject();
3759d8dd79SMed Ismail Bennani 
3845148bfeSMed Ismail Bennani   auto scripted_thread_interface =
3945148bfeSMed Ismail Bennani       process.GetInterface().CreateScriptedThreadInterface();
4045148bfeSMed Ismail Bennani   if (!scripted_thread_interface)
4145148bfeSMed Ismail Bennani     return llvm::createStringError(
4245148bfeSMed Ismail Bennani         llvm::inconvertibleErrorCode(),
4345148bfeSMed Ismail Bennani         "Failed to create scripted thread interface.");
4459d8dd79SMed Ismail Bennani 
4545148bfeSMed Ismail Bennani   llvm::StringRef thread_class_name;
4645148bfeSMed Ismail Bennani   if (!script_object) {
4759d8dd79SMed Ismail Bennani     llvm::Optional<std::string> class_name =
4859d8dd79SMed Ismail Bennani         process.GetInterface().GetScriptedThreadPluginName();
4945148bfeSMed Ismail Bennani     if (!class_name || class_name->empty())
5045148bfeSMed Ismail Bennani       return llvm::createStringError(
5145148bfeSMed Ismail Bennani           llvm::inconvertibleErrorCode(),
5245148bfeSMed Ismail Bennani           "Failed to get scripted thread class name.");
5345148bfeSMed Ismail Bennani     thread_class_name = *class_name;
5459d8dd79SMed Ismail Bennani   }
5559d8dd79SMed Ismail Bennani 
5659d8dd79SMed Ismail Bennani   ExecutionContext exe_ctx(process);
5745148bfeSMed Ismail Bennani   StructuredData::GenericSP owned_script_object_sp =
5845148bfeSMed Ismail Bennani       scripted_thread_interface->CreatePluginObject(
5945148bfeSMed Ismail Bennani           thread_class_name, exe_ctx,
6045148bfeSMed Ismail Bennani           process.m_scripted_process_info.GetArgsSP(), script_object);
6159d8dd79SMed Ismail Bennani 
6245148bfeSMed Ismail Bennani   if (!owned_script_object_sp)
6345148bfeSMed Ismail Bennani     return llvm::createStringError(llvm::inconvertibleErrorCode(),
6445148bfeSMed Ismail Bennani                                    "Failed to create script object.");
6545148bfeSMed Ismail Bennani   if (!owned_script_object_sp->IsValid())
6645148bfeSMed Ismail Bennani     return llvm::createStringError(llvm::inconvertibleErrorCode(),
6745148bfeSMed Ismail Bennani                                    "Created script object is invalid.");
6859d8dd79SMed Ismail Bennani 
69d3e0f7e1SMed Ismail Bennani   lldb::tid_t tid = scripted_thread_interface->GetThreadID();
7045148bfeSMed Ismail Bennani 
7145148bfeSMed Ismail Bennani   return std::make_shared<ScriptedThread>(process, scripted_thread_interface,
7245148bfeSMed Ismail Bennani                                           tid, owned_script_object_sp);
7359d8dd79SMed Ismail Bennani }
7459d8dd79SMed Ismail Bennani 
7545148bfeSMed Ismail Bennani ScriptedThread::ScriptedThread(ScriptedProcess &process,
7645148bfeSMed Ismail Bennani                                ScriptedThreadInterfaceSP interface_sp,
7745148bfeSMed Ismail Bennani                                lldb::tid_t tid,
7845148bfeSMed Ismail Bennani                                StructuredData::GenericSP script_object_sp)
7945148bfeSMed Ismail Bennani     : Thread(process, tid), m_scripted_process(process),
8045148bfeSMed Ismail Bennani       m_scripted_thread_interface_sp(interface_sp),
8145148bfeSMed Ismail Bennani       m_script_object_sp(script_object_sp) {}
8245148bfeSMed Ismail Bennani 
8359d8dd79SMed Ismail Bennani ScriptedThread::~ScriptedThread() { DestroyThread(); }
8459d8dd79SMed Ismail Bennani 
8559d8dd79SMed Ismail Bennani const char *ScriptedThread::GetName() {
8659d8dd79SMed Ismail Bennani   CheckInterpreterAndScriptObject();
8759d8dd79SMed Ismail Bennani   llvm::Optional<std::string> thread_name = GetInterface()->GetName();
8859d8dd79SMed Ismail Bennani   if (!thread_name)
8959d8dd79SMed Ismail Bennani     return nullptr;
9059d8dd79SMed Ismail Bennani   return ConstString(thread_name->c_str()).AsCString();
9159d8dd79SMed Ismail Bennani }
9259d8dd79SMed Ismail Bennani 
9359d8dd79SMed Ismail Bennani const char *ScriptedThread::GetQueueName() {
9459d8dd79SMed Ismail Bennani   CheckInterpreterAndScriptObject();
9559d8dd79SMed Ismail Bennani   llvm::Optional<std::string> queue_name = GetInterface()->GetQueue();
9659d8dd79SMed Ismail Bennani   if (!queue_name)
9759d8dd79SMed Ismail Bennani     return nullptr;
9859d8dd79SMed Ismail Bennani   return ConstString(queue_name->c_str()).AsCString();
9959d8dd79SMed Ismail Bennani }
10059d8dd79SMed Ismail Bennani 
10159d8dd79SMed Ismail Bennani void ScriptedThread::WillResume(StateType resume_state) {}
10259d8dd79SMed Ismail Bennani 
10359d8dd79SMed Ismail Bennani void ScriptedThread::ClearStackFrames() { Thread::ClearStackFrames(); }
10459d8dd79SMed Ismail Bennani 
10559d8dd79SMed Ismail Bennani RegisterContextSP ScriptedThread::GetRegisterContext() {
106676576b6SMed Ismail Bennani   if (!m_reg_context_sp)
107676576b6SMed Ismail Bennani     m_reg_context_sp = CreateRegisterContextForFrame(nullptr);
10859d8dd79SMed Ismail Bennani   return m_reg_context_sp;
10959d8dd79SMed Ismail Bennani }
11059d8dd79SMed Ismail Bennani 
11159d8dd79SMed Ismail Bennani RegisterContextSP
11259d8dd79SMed Ismail Bennani ScriptedThread::CreateRegisterContextForFrame(StackFrame *frame) {
113676576b6SMed Ismail Bennani   const uint32_t concrete_frame_idx =
114676576b6SMed Ismail Bennani       frame ? frame->GetConcreteFrameIndex() : 0;
11559d8dd79SMed Ismail Bennani 
116676576b6SMed Ismail Bennani   if (concrete_frame_idx)
11759d8dd79SMed Ismail Bennani     return GetUnwinder().CreateRegisterContextForFrame(frame);
118676576b6SMed Ismail Bennani 
119676576b6SMed Ismail Bennani   lldb::RegisterContextSP reg_ctx_sp;
120676576b6SMed Ismail Bennani   Status error;
121676576b6SMed Ismail Bennani 
122676576b6SMed Ismail Bennani   llvm::Optional<std::string> reg_data = GetInterface()->GetRegisterContext();
123676576b6SMed Ismail Bennani   if (!reg_data)
124676576b6SMed Ismail Bennani     return GetInterface()->ErrorWithMessage<lldb::RegisterContextSP>(
125676576b6SMed Ismail Bennani         LLVM_PRETTY_FUNCTION, "Failed to get scripted thread registers data.",
126a007a6d8SPavel Labath         error, LLDBLog::Thread);
127676576b6SMed Ismail Bennani 
128676576b6SMed Ismail Bennani   DataBufferSP data_sp(
129676576b6SMed Ismail Bennani       std::make_shared<DataBufferHeap>(reg_data->c_str(), reg_data->size()));
130676576b6SMed Ismail Bennani 
131676576b6SMed Ismail Bennani   if (!data_sp->GetByteSize())
132676576b6SMed Ismail Bennani     return GetInterface()->ErrorWithMessage<lldb::RegisterContextSP>(
133676576b6SMed Ismail Bennani         LLVM_PRETTY_FUNCTION, "Failed to copy raw registers data.", error,
134a007a6d8SPavel Labath         LLDBLog::Thread);
135676576b6SMed Ismail Bennani 
136676576b6SMed Ismail Bennani   std::shared_ptr<RegisterContextMemory> reg_ctx_memory =
137676576b6SMed Ismail Bennani       std::make_shared<RegisterContextMemory>(
138676576b6SMed Ismail Bennani           *this, 0, *GetDynamicRegisterInfo(), LLDB_INVALID_ADDRESS);
139676576b6SMed Ismail Bennani   if (!reg_ctx_memory)
140676576b6SMed Ismail Bennani     return GetInterface()->ErrorWithMessage<lldb::RegisterContextSP>(
141676576b6SMed Ismail Bennani         LLVM_PRETTY_FUNCTION, "Failed to create a register context.", error,
142a007a6d8SPavel Labath         LLDBLog::Thread);
143676576b6SMed Ismail Bennani 
144676576b6SMed Ismail Bennani   reg_ctx_memory->SetAllRegisterData(data_sp);
145676576b6SMed Ismail Bennani   m_reg_context_sp = reg_ctx_memory;
146676576b6SMed Ismail Bennani 
147676576b6SMed Ismail Bennani   return m_reg_context_sp;
14859d8dd79SMed Ismail Bennani }
14959d8dd79SMed Ismail Bennani 
15059d8dd79SMed Ismail Bennani bool ScriptedThread::CalculateStopInfo() {
15159d8dd79SMed Ismail Bennani   StructuredData::DictionarySP dict_sp = GetInterface()->GetStopReason();
15259d8dd79SMed Ismail Bennani 
15359d8dd79SMed Ismail Bennani   Status error;
154cfa55bfeSMed Ismail Bennani   if (!dict_sp)
155cfa55bfeSMed Ismail Bennani     return GetInterface()->ErrorWithMessage<bool>(
156cfa55bfeSMed Ismail Bennani         LLVM_PRETTY_FUNCTION, "Failed to get scripted thread stop info.", error,
157a007a6d8SPavel Labath         LLDBLog::Thread);
158cfa55bfeSMed Ismail Bennani 
15959d8dd79SMed Ismail Bennani   lldb::StopInfoSP stop_info_sp;
16059d8dd79SMed Ismail Bennani   lldb::StopReason stop_reason_type;
16159d8dd79SMed Ismail Bennani 
16259d8dd79SMed Ismail Bennani   if (!dict_sp->GetValueForKeyAsInteger("type", stop_reason_type))
16359d8dd79SMed Ismail Bennani     return GetInterface()->ErrorWithMessage<bool>(
16488a941baSMed Ismail Bennani         LLVM_PRETTY_FUNCTION,
165676576b6SMed Ismail Bennani         "Couldn't find value for key 'type' in stop reason dictionary.", error,
166a007a6d8SPavel Labath         LLDBLog::Thread);
16759d8dd79SMed Ismail Bennani 
16859d8dd79SMed Ismail Bennani   StructuredData::Dictionary *data_dict;
16959d8dd79SMed Ismail Bennani   if (!dict_sp->GetValueForKeyAsDictionary("data", data_dict))
17059d8dd79SMed Ismail Bennani     return GetInterface()->ErrorWithMessage<bool>(
17188a941baSMed Ismail Bennani         LLVM_PRETTY_FUNCTION,
172cfa55bfeSMed Ismail Bennani         "Couldn't find value for key 'data' in stop reason dictionary.", error,
173a007a6d8SPavel Labath         LLDBLog::Thread);
17459d8dd79SMed Ismail Bennani 
17559d8dd79SMed Ismail Bennani   switch (stop_reason_type) {
17659d8dd79SMed Ismail Bennani   case lldb::eStopReasonNone:
177cfa55bfeSMed Ismail Bennani     return true;
17859d8dd79SMed Ismail Bennani   case lldb::eStopReasonBreakpoint: {
17959d8dd79SMed Ismail Bennani     lldb::break_id_t break_id;
18059d8dd79SMed Ismail Bennani     data_dict->GetValueForKeyAsInteger("break_id", break_id,
18159d8dd79SMed Ismail Bennani                                        LLDB_INVALID_BREAK_ID);
18259d8dd79SMed Ismail Bennani     stop_info_sp =
18359d8dd79SMed Ismail Bennani         StopInfo::CreateStopReasonWithBreakpointSiteID(*this, break_id);
18459d8dd79SMed Ismail Bennani   } break;
18559d8dd79SMed Ismail Bennani   case lldb::eStopReasonSignal: {
18659d8dd79SMed Ismail Bennani     int signal;
18759d8dd79SMed Ismail Bennani     llvm::StringRef description;
18859d8dd79SMed Ismail Bennani     data_dict->GetValueForKeyAsInteger("signal", signal,
18959d8dd79SMed Ismail Bennani                                        LLDB_INVALID_SIGNAL_NUMBER);
19059d8dd79SMed Ismail Bennani     data_dict->GetValueForKeyAsString("desc", description);
19159d8dd79SMed Ismail Bennani     stop_info_sp =
19259d8dd79SMed Ismail Bennani         StopInfo::CreateStopReasonWithSignal(*this, signal, description.data());
19359d8dd79SMed Ismail Bennani   } break;
194cfa55bfeSMed Ismail Bennani   case lldb::eStopReasonException: {
195cfa55bfeSMed Ismail Bennani     llvm::StringRef description;
196cfa55bfeSMed Ismail Bennani     data_dict->GetValueForKeyAsString("desc", description);
197cfa55bfeSMed Ismail Bennani 
198cfa55bfeSMed Ismail Bennani     stop_info_sp =
199cfa55bfeSMed Ismail Bennani         StopInfo::CreateStopReasonWithException(*this, description.data());
200cfa55bfeSMed Ismail Bennani   } break;
20159d8dd79SMed Ismail Bennani   default:
20259d8dd79SMed Ismail Bennani     return GetInterface()->ErrorWithMessage<bool>(
20388a941baSMed Ismail Bennani         LLVM_PRETTY_FUNCTION,
20459d8dd79SMed Ismail Bennani         llvm::Twine("Unsupported stop reason type (" +
20559d8dd79SMed Ismail Bennani                     llvm::Twine(stop_reason_type) + llvm::Twine(")."))
20659d8dd79SMed Ismail Bennani             .str(),
207a007a6d8SPavel Labath         error, LLDBLog::Thread);
20859d8dd79SMed Ismail Bennani   }
20959d8dd79SMed Ismail Bennani 
210cfa55bfeSMed Ismail Bennani   if (!stop_info_sp)
211cfa55bfeSMed Ismail Bennani     return false;
212cfa55bfeSMed Ismail Bennani 
21359d8dd79SMed Ismail Bennani   SetStopInfo(stop_info_sp);
21459d8dd79SMed Ismail Bennani   return true;
21559d8dd79SMed Ismail Bennani }
21659d8dd79SMed Ismail Bennani 
21759d8dd79SMed Ismail Bennani void ScriptedThread::RefreshStateAfterStop() {
218676576b6SMed Ismail Bennani   GetRegisterContext()->InvalidateIfNeeded(/*force=*/false);
21959d8dd79SMed Ismail Bennani }
22059d8dd79SMed Ismail Bennani 
22159d8dd79SMed Ismail Bennani lldb::ScriptedThreadInterfaceSP ScriptedThread::GetInterface() const {
2221b86344fSMed Ismail Bennani   return m_scripted_thread_interface_sp;
22359d8dd79SMed Ismail Bennani }
22459d8dd79SMed Ismail Bennani 
22559d8dd79SMed Ismail Bennani std::shared_ptr<DynamicRegisterInfo> ScriptedThread::GetDynamicRegisterInfo() {
22659d8dd79SMed Ismail Bennani   CheckInterpreterAndScriptObject();
22759d8dd79SMed Ismail Bennani 
22859d8dd79SMed Ismail Bennani   if (!m_register_info_sp) {
22959d8dd79SMed Ismail Bennani     StructuredData::DictionarySP reg_info = GetInterface()->GetRegisterInfo();
230caea440aSMed Ismail Bennani 
231caea440aSMed Ismail Bennani     Status error;
23259d8dd79SMed Ismail Bennani     if (!reg_info)
233caea440aSMed Ismail Bennani       return GetInterface()
234caea440aSMed Ismail Bennani           ->ErrorWithMessage<std::shared_ptr<DynamicRegisterInfo>>(
235caea440aSMed Ismail Bennani               LLVM_PRETTY_FUNCTION,
236caea440aSMed Ismail Bennani               "Failed to get scripted thread registers info.", error,
237a007a6d8SPavel Labath               LLDBLog::Thread);
23859d8dd79SMed Ismail Bennani 
23959d8dd79SMed Ismail Bennani     m_register_info_sp = std::make_shared<DynamicRegisterInfo>(
24059d8dd79SMed Ismail Bennani         *reg_info, m_scripted_process.GetTarget().GetArchitecture());
24159d8dd79SMed Ismail Bennani   }
24259d8dd79SMed Ismail Bennani 
24359d8dd79SMed Ismail Bennani   return m_register_info_sp;
24459d8dd79SMed Ismail Bennani }
245