130fdc8d8SChris Lattner //===-- DynamicLoader.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 
1034ede34aSEugene Zelenko // C Includes
1134ede34aSEugene Zelenko // C++ Includes
1234ede34aSEugene Zelenko // Other libraries and framework includes
1334ede34aSEugene Zelenko // Project includes
14b9c1b51eSKate Stone #include "lldb/Target/DynamicLoader.h"
159e02dacdSSteve Pucci #include "lldb/Core/Module.h"
169e02dacdSSteve Pucci #include "lldb/Core/ModuleSpec.h"
17d7d69f80STamas Berghammer #include "lldb/Core/PluginManager.h"
189e02dacdSSteve Pucci #include "lldb/Core/Section.h"
19d7d69f80STamas Berghammer #include "lldb/Target/MemoryRegionInfo.h"
20d7d69f80STamas Berghammer #include "lldb/Target/Process.h"
21d7d69f80STamas Berghammer #include "lldb/Target/Target.h"
22b9c1b51eSKate Stone #include "lldb/lldb-private.h"
2330fdc8d8SChris Lattner 
2430fdc8d8SChris Lattner using namespace lldb;
2530fdc8d8SChris Lattner using namespace lldb_private;
2630fdc8d8SChris Lattner 
27b9c1b51eSKate Stone DynamicLoader *DynamicLoader::FindPlugin(Process *process,
28b9c1b51eSKate Stone                                          const char *plugin_name) {
2934ede34aSEugene Zelenko   DynamicLoaderCreateInstance create_callback = nullptr;
30b9c1b51eSKate Stone   if (plugin_name) {
3157abc5d6SGreg Clayton     ConstString const_plugin_name(plugin_name);
32b9c1b51eSKate Stone     create_callback =
33b9c1b51eSKate Stone         PluginManager::GetDynamicLoaderCreateCallbackForPluginName(
34b9c1b51eSKate Stone             const_plugin_name);
35b9c1b51eSKate Stone     if (create_callback) {
36b9c1b51eSKate Stone       std::unique_ptr<DynamicLoader> instance_ap(
37b9c1b51eSKate Stone           create_callback(process, true));
3834ede34aSEugene Zelenko       if (instance_ap)
3930fdc8d8SChris Lattner         return instance_ap.release();
4030fdc8d8SChris Lattner     }
41b9c1b51eSKate Stone   } else {
42b9c1b51eSKate Stone     for (uint32_t idx = 0;
43b9c1b51eSKate Stone          (create_callback =
44b9c1b51eSKate Stone               PluginManager::GetDynamicLoaderCreateCallbackAtIndex(idx)) !=
45b9c1b51eSKate Stone          nullptr;
46b9c1b51eSKate Stone          ++idx) {
47b9c1b51eSKate Stone       std::unique_ptr<DynamicLoader> instance_ap(
48b9c1b51eSKate Stone           create_callback(process, false));
4934ede34aSEugene Zelenko       if (instance_ap)
5030fdc8d8SChris Lattner         return instance_ap.release();
5130fdc8d8SChris Lattner     }
5230fdc8d8SChris Lattner   }
5334ede34aSEugene Zelenko   return nullptr;
5430fdc8d8SChris Lattner }
5530fdc8d8SChris Lattner 
56b9c1b51eSKate Stone DynamicLoader::DynamicLoader(Process *process) : m_process(process) {}
5730fdc8d8SChris Lattner 
5834ede34aSEugene Zelenko DynamicLoader::~DynamicLoader() = default;
5930fdc8d8SChris Lattner 
6030fdc8d8SChris Lattner //----------------------------------------------------------------------
61ed8a705cSGreg Clayton // Accessosors to the global setting as to whether to stop at image
6230fdc8d8SChris Lattner // (shared library) loading/unloading.
6330fdc8d8SChris Lattner //----------------------------------------------------------------------
6434ede34aSEugene Zelenko 
65b9c1b51eSKate Stone bool DynamicLoader::GetStopWhenImagesChange() const {
662995077dSJim Ingham   return m_process->GetStopOnSharedLibraryEvents();
6730fdc8d8SChris Lattner }
6830fdc8d8SChris Lattner 
69b9c1b51eSKate Stone void DynamicLoader::SetStopWhenImagesChange(bool stop) {
702995077dSJim Ingham   m_process->SetStopOnSharedLibraryEvents(stop);
7130fdc8d8SChris Lattner }
7230fdc8d8SChris Lattner 
73b9c1b51eSKate Stone ModuleSP DynamicLoader::GetTargetExecutable() {
749e02dacdSSteve Pucci   Target &target = m_process->GetTarget();
759e02dacdSSteve Pucci   ModuleSP executable = target.GetExecutableModule();
769e02dacdSSteve Pucci 
77b9c1b51eSKate Stone   if (executable) {
78b9c1b51eSKate Stone     if (executable->GetFileSpec().Exists()) {
79b9c1b51eSKate Stone       ModuleSpec module_spec(executable->GetFileSpec(),
80b9c1b51eSKate Stone                              executable->GetArchitecture());
819e02dacdSSteve Pucci       ModuleSP module_sp(new Module(module_spec));
829e02dacdSSteve Pucci 
83b9c1b51eSKate Stone       // Check if the executable has changed and set it to the target executable
84b9c1b51eSKate Stone       // if they differ.
85b9c1b51eSKate Stone       if (module_sp && module_sp->GetUUID().IsValid() &&
86b9c1b51eSKate Stone           executable->GetUUID().IsValid()) {
879e02dacdSSteve Pucci         if (module_sp->GetUUID() != executable->GetUUID())
889e02dacdSSteve Pucci           executable.reset();
89b9c1b51eSKate Stone       } else if (executable->FileHasChanged()) {
909e02dacdSSteve Pucci         executable.reset();
919e02dacdSSteve Pucci       }
929e02dacdSSteve Pucci 
93b9c1b51eSKate Stone       if (!executable) {
949e02dacdSSteve Pucci         executable = target.GetSharedModule(module_spec);
95b9c1b51eSKate Stone         if (executable.get() != target.GetExecutableModulePointer()) {
969e02dacdSSteve Pucci           // Don't load dependent images since we are in dyld where we will know
979e02dacdSSteve Pucci           // and find out about all images that are loaded
989e02dacdSSteve Pucci           const bool get_dependent_images = false;
999e02dacdSSteve Pucci           target.SetExecutableModule(executable, get_dependent_images);
1009e02dacdSSteve Pucci         }
1019e02dacdSSteve Pucci       }
1029e02dacdSSteve Pucci     }
1039e02dacdSSteve Pucci   }
1049e02dacdSSteve Pucci   return executable;
1059e02dacdSSteve Pucci }
1069e02dacdSSteve Pucci 
107b9c1b51eSKate Stone void DynamicLoader::UpdateLoadedSections(ModuleSP module, addr_t link_map_addr,
10842ecef3bSTamas Berghammer                                          addr_t base_addr,
109b9c1b51eSKate Stone                                          bool base_addr_is_offset) {
11042ecef3bSTamas Berghammer   UpdateLoadedSectionsCommon(module, base_addr, base_addr_is_offset);
1119e02dacdSSteve Pucci }
1129e02dacdSSteve Pucci 
113b9c1b51eSKate Stone void DynamicLoader::UpdateLoadedSectionsCommon(ModuleSP module,
11442ecef3bSTamas Berghammer                                                addr_t base_addr,
115b9c1b51eSKate Stone                                                bool base_addr_is_offset) {
1169e02dacdSSteve Pucci   bool changed;
117b9c1b51eSKate Stone   module->SetLoadAddress(m_process->GetTarget(), base_addr, base_addr_is_offset,
118b9c1b51eSKate Stone                          changed);
1199e02dacdSSteve Pucci }
1209e02dacdSSteve Pucci 
121b9c1b51eSKate Stone void DynamicLoader::UnloadSections(const ModuleSP module) {
1229e02dacdSSteve Pucci   UnloadSectionsCommon(module);
1239e02dacdSSteve Pucci }
1249e02dacdSSteve Pucci 
125b9c1b51eSKate Stone void DynamicLoader::UnloadSectionsCommon(const ModuleSP module) {
1269e02dacdSSteve Pucci   Target &target = m_process->GetTarget();
1279e02dacdSSteve Pucci   const SectionList *sections = GetSectionListFromModule(module);
1289e02dacdSSteve Pucci 
1299e02dacdSSteve Pucci   assert(sections && "SectionList missing from unloaded module.");
1309e02dacdSSteve Pucci 
1319e02dacdSSteve Pucci   const size_t num_sections = sections->GetSize();
132b9c1b51eSKate Stone   for (size_t i = 0; i < num_sections; ++i) {
1339e02dacdSSteve Pucci     SectionSP section_sp(sections->GetSectionAtIndex(i));
1349e02dacdSSteve Pucci     target.SetSectionUnloaded(section_sp);
1359e02dacdSSteve Pucci   }
1369e02dacdSSteve Pucci }
1379e02dacdSSteve Pucci 
1389e02dacdSSteve Pucci const SectionList *
139b9c1b51eSKate Stone DynamicLoader::GetSectionListFromModule(const ModuleSP module) const {
1409e02dacdSSteve Pucci   SectionList *sections = nullptr;
141b9c1b51eSKate Stone   if (module) {
1429e02dacdSSteve Pucci     ObjectFile *obj_file = module->GetObjectFile();
143b9c1b51eSKate Stone     if (obj_file != nullptr) {
1449e02dacdSSteve Pucci       sections = obj_file->GetSectionList();
1459e02dacdSSteve Pucci     }
1469e02dacdSSteve Pucci   }
1479e02dacdSSteve Pucci   return sections;
1489e02dacdSSteve Pucci }
1499e02dacdSSteve Pucci 
150b9c1b51eSKate Stone ModuleSP DynamicLoader::LoadModuleAtAddress(const FileSpec &file,
15142ecef3bSTamas Berghammer                                             addr_t link_map_addr,
15242ecef3bSTamas Berghammer                                             addr_t base_addr,
153b9c1b51eSKate Stone                                             bool base_addr_is_offset) {
1549e02dacdSSteve Pucci   Target &target = m_process->GetTarget();
1559e02dacdSSteve Pucci   ModuleList &modules = target.GetImages();
156d7d69f80STamas Berghammer   ModuleSpec module_spec(file, target.GetArchitecture());
1579e02dacdSSteve Pucci   ModuleSP module_sp;
1589e02dacdSSteve Pucci 
159b9c1b51eSKate Stone   if ((module_sp = modules.FindFirstModule(module_spec))) {
160b9c1b51eSKate Stone     UpdateLoadedSections(module_sp, link_map_addr, base_addr,
161b9c1b51eSKate Stone                          base_addr_is_offset);
162d7d69f80STamas Berghammer     return module_sp;
1639e02dacdSSteve Pucci   }
164d7d69f80STamas Berghammer 
165b9c1b51eSKate Stone   if ((module_sp = target.GetSharedModule(module_spec))) {
166b9c1b51eSKate Stone     UpdateLoadedSections(module_sp, link_map_addr, base_addr,
167b9c1b51eSKate Stone                          base_addr_is_offset);
168d7d69f80STamas Berghammer     return module_sp;
1699e02dacdSSteve Pucci   }
170d7d69f80STamas Berghammer 
171d7d69f80STamas Berghammer   bool check_alternative_file_name = true;
172b9c1b51eSKate Stone   if (base_addr_is_offset) {
173b9c1b51eSKate Stone     // Try to fetch the load address of the file from the process as we need
174b9c1b51eSKate Stone     // absolute load
17542ecef3bSTamas Berghammer     // address to read the file out of the memory instead of a load bias.
1765d410241SJason Molenda     bool is_loaded = false;
177f2561846STamas Berghammer     lldb::addr_t load_addr;
178f2561846STamas Berghammer     Error error = m_process->GetFileLoadAddress(file, is_loaded, load_addr);
179b9c1b51eSKate Stone     if (error.Success() && is_loaded) {
180d7d69f80STamas Berghammer       check_alternative_file_name = false;
18142ecef3bSTamas Berghammer       base_addr = load_addr;
18242ecef3bSTamas Berghammer     }
183d7d69f80STamas Berghammer   }
184d7d69f80STamas Berghammer 
185b9c1b51eSKate Stone   // We failed to find the module based on its name. Lets try to check if we can
186b9c1b51eSKate Stone   // find a
187d7d69f80STamas Berghammer   // different name based on the memory region info.
188b9c1b51eSKate Stone   if (check_alternative_file_name) {
189d7d69f80STamas Berghammer     MemoryRegionInfo memory_info;
190d7d69f80STamas Berghammer     Error error = m_process->GetMemoryRegionInfo(base_addr, memory_info);
191b9c1b51eSKate Stone     if (error.Success() && memory_info.GetMapped() &&
192*5ba3d85cSNitesh Jain         memory_info.GetRange().GetRangeBase() == base_addr &&
193*5ba3d85cSNitesh Jain         !(memory_info.GetName().IsEmpty())) {
194b9c1b51eSKate Stone       ModuleSpec new_module_spec(
195b9c1b51eSKate Stone           FileSpec(memory_info.GetName().AsCString(), false),
196d7d69f80STamas Berghammer           target.GetArchitecture());
197d7d69f80STamas Berghammer 
198b9c1b51eSKate Stone       if ((module_sp = modules.FindFirstModule(new_module_spec))) {
199d7d69f80STamas Berghammer         UpdateLoadedSections(module_sp, link_map_addr, base_addr, false);
200d7d69f80STamas Berghammer         return module_sp;
201d7d69f80STamas Berghammer       }
202d7d69f80STamas Berghammer 
203b9c1b51eSKate Stone       if ((module_sp = target.GetSharedModule(new_module_spec))) {
204d7d69f80STamas Berghammer         UpdateLoadedSections(module_sp, link_map_addr, base_addr, false);
205d7d69f80STamas Berghammer         return module_sp;
206d7d69f80STamas Berghammer       }
207d7d69f80STamas Berghammer     }
208d7d69f80STamas Berghammer   }
209f2561846STamas Berghammer 
210b9c1b51eSKate Stone   if ((module_sp = m_process->ReadModuleFromMemory(file, base_addr))) {
21142ecef3bSTamas Berghammer     UpdateLoadedSections(module_sp, link_map_addr, base_addr, false);
212f2561846STamas Berghammer     target.GetImages().AppendIfNeeded(module_sp);
213f2561846STamas Berghammer   }
2149e02dacdSSteve Pucci 
2159e02dacdSSteve Pucci   return module_sp;
2169e02dacdSSteve Pucci }
2179e02dacdSSteve Pucci 
218b9c1b51eSKate Stone int64_t DynamicLoader::ReadUnsignedIntWithSizeInBytes(addr_t addr,
219b9c1b51eSKate Stone                                                       int size_in_bytes) {
2209e02dacdSSteve Pucci   Error error;
221b9c1b51eSKate Stone   uint64_t value =
222b9c1b51eSKate Stone       m_process->ReadUnsignedIntegerFromMemory(addr, size_in_bytes, 0, error);
2239e02dacdSSteve Pucci   if (error.Fail())
2249e02dacdSSteve Pucci     return -1;
2259e02dacdSSteve Pucci   else
2269e02dacdSSteve Pucci     return (int64_t)value;
2279e02dacdSSteve Pucci }
2289e02dacdSSteve Pucci 
229b9c1b51eSKate Stone addr_t DynamicLoader::ReadPointer(addr_t addr) {
2309e02dacdSSteve Pucci   Error error;
2319e02dacdSSteve Pucci   addr_t value = m_process->ReadPointerFromMemory(addr, error);
2329e02dacdSSteve Pucci   if (error.Fail())
2339e02dacdSSteve Pucci     return LLDB_INVALID_ADDRESS;
2349e02dacdSSteve Pucci   else
2359e02dacdSSteve Pucci     return value;
2369e02dacdSSteve Pucci }
237519b0816SJim Ingham 
238519b0816SJim Ingham void DynamicLoader::LoadOperatingSystemPlugin(bool flush)
239519b0816SJim Ingham {
240519b0816SJim Ingham     if (m_process)
241519b0816SJim Ingham         m_process->LoadOperatingSystemPlugin(flush);
242519b0816SJim Ingham }
243519b0816SJim Ingham 
244