xref: /openbsd/gnu/llvm/lldb/source/API/SBModule.cpp (revision 097a140d) 
1 //===-- SBModule.cpp --------------------------------------------*- C++ -*-===//
2 //
3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
4 // See https://llvm.org/LICENSE.txt for license information.
5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
6 //
7 //===----------------------------------------------------------------------===//
8 
9 #include "lldb/API/SBModule.h"
10 #include "SBReproducerPrivate.h"
11 #include "lldb/API/SBAddress.h"
12 #include "lldb/API/SBFileSpec.h"
13 #include "lldb/API/SBModuleSpec.h"
14 #include "lldb/API/SBProcess.h"
15 #include "lldb/API/SBStream.h"
16 #include "lldb/API/SBSymbolContextList.h"
17 #include "lldb/Core/Module.h"
18 #include "lldb/Core/Section.h"
19 #include "lldb/Core/ValueObjectList.h"
20 #include "lldb/Core/ValueObjectVariable.h"
21 #include "lldb/Symbol/ObjectFile.h"
22 #include "lldb/Symbol/SymbolFile.h"
23 #include "lldb/Symbol/Symtab.h"
24 #include "lldb/Symbol/TypeSystem.h"
25 #include "lldb/Symbol/VariableList.h"
26 #include "lldb/Target/Target.h"
27 #include "lldb/Utility/StreamString.h"
28 
29 using namespace lldb;
30 using namespace lldb_private;
31 
32 SBModule::SBModule() : m_opaque_sp() {
33   LLDB_RECORD_CONSTRUCTOR_NO_ARGS(SBModule);
34 }
35 
36 SBModule::SBModule(const lldb::ModuleSP &module_sp) : m_opaque_sp(module_sp) {}
37 
38 SBModule::SBModule(const SBModuleSpec &module_spec) : m_opaque_sp() {
39   LLDB_RECORD_CONSTRUCTOR(SBModule, (const lldb::SBModuleSpec &), module_spec);
40 
41   ModuleSP module_sp;
42   Status error = ModuleList::GetSharedModule(
43       *module_spec.m_opaque_up, module_sp, nullptr, nullptr, nullptr);
44   if (module_sp)
45     SetSP(module_sp);
46 }
47 
48 SBModule::SBModule(const SBModule &rhs) : m_opaque_sp(rhs.m_opaque_sp) {
49   LLDB_RECORD_CONSTRUCTOR(SBModule, (const lldb::SBModule &), rhs);
50 }
51 
52 SBModule::SBModule(lldb::SBProcess &process, lldb::addr_t header_addr)
53     : m_opaque_sp() {
54   LLDB_RECORD_CONSTRUCTOR(SBModule, (lldb::SBProcess &, lldb::addr_t), process,
55                           header_addr);
56 
57   ProcessSP process_sp(process.GetSP());
58   if (process_sp) {
59     m_opaque_sp = process_sp->ReadModuleFromMemory(FileSpec(), header_addr);
60     if (m_opaque_sp) {
61       Target &target = process_sp->GetTarget();
62       bool changed = false;
63       m_opaque_sp->SetLoadAddress(target, 0, true, changed);
64       target.GetImages().Append(m_opaque_sp);
65     }
66   }
67 }
68 
69 const SBModule &SBModule::operator=(const SBModule &rhs) {
70   LLDB_RECORD_METHOD(const lldb::SBModule &,
71                      SBModule, operator=,(const lldb::SBModule &), rhs);
72 
73   if (this != &rhs)
74     m_opaque_sp = rhs.m_opaque_sp;
75   return LLDB_RECORD_RESULT(*this);
76 }
77 
78 SBModule::~SBModule() {}
79 
80 bool SBModule::IsValid() const {
81   LLDB_RECORD_METHOD_CONST_NO_ARGS(bool, SBModule, IsValid);
82   return this->operator bool();
83 }
84 SBModule::operator bool() const {
85   LLDB_RECORD_METHOD_CONST_NO_ARGS(bool, SBModule, operator bool);
86 
87   return m_opaque_sp.get() != nullptr;
88 }
89 
90 void SBModule::Clear() {
91   LLDB_RECORD_METHOD_NO_ARGS(void, SBModule, Clear);
92 
93   m_opaque_sp.reset();
94 }
95 
96 SBFileSpec SBModule::GetFileSpec() const {
97   LLDB_RECORD_METHOD_CONST_NO_ARGS(lldb::SBFileSpec, SBModule, GetFileSpec);
98 
99   SBFileSpec file_spec;
100   ModuleSP module_sp(GetSP());
101   if (module_sp)
102     file_spec.SetFileSpec(module_sp->GetFileSpec());
103 
104   return LLDB_RECORD_RESULT(file_spec);
105 }
106 
107 lldb::SBFileSpec SBModule::GetPlatformFileSpec() const {
108   LLDB_RECORD_METHOD_CONST_NO_ARGS(lldb::SBFileSpec, SBModule,
109                                    GetPlatformFileSpec);
110 
111 
112   SBFileSpec file_spec;
113   ModuleSP module_sp(GetSP());
114   if (module_sp)
115     file_spec.SetFileSpec(module_sp->GetPlatformFileSpec());
116 
117   return LLDB_RECORD_RESULT(file_spec);
118 }
119 
120 bool SBModule::SetPlatformFileSpec(const lldb::SBFileSpec &platform_file) {
121   LLDB_RECORD_METHOD(bool, SBModule, SetPlatformFileSpec,
122                      (const lldb::SBFileSpec &), platform_file);
123 
124   bool result = false;
125 
126   ModuleSP module_sp(GetSP());
127   if (module_sp) {
128     module_sp->SetPlatformFileSpec(*platform_file);
129     result = true;
130   }
131 
132   return result;
133 }
134 
135 lldb::SBFileSpec SBModule::GetRemoteInstallFileSpec() {
136   LLDB_RECORD_METHOD_NO_ARGS(lldb::SBFileSpec, SBModule,
137                              GetRemoteInstallFileSpec);
138 
139   SBFileSpec sb_file_spec;
140   ModuleSP module_sp(GetSP());
141   if (module_sp)
142     sb_file_spec.SetFileSpec(module_sp->GetRemoteInstallFileSpec());
143   return LLDB_RECORD_RESULT(sb_file_spec);
144 }
145 
146 bool SBModule::SetRemoteInstallFileSpec(lldb::SBFileSpec &file) {
147   LLDB_RECORD_METHOD(bool, SBModule, SetRemoteInstallFileSpec,
148                      (lldb::SBFileSpec &), file);
149 
150   ModuleSP module_sp(GetSP());
151   if (module_sp) {
152     module_sp->SetRemoteInstallFileSpec(file.ref());
153     return true;
154   }
155   return false;
156 }
157 
158 const uint8_t *SBModule::GetUUIDBytes() const {
159   LLDB_RECORD_METHOD_CONST_NO_ARGS(const uint8_t *, SBModule, GetUUIDBytes);
160 
161   const uint8_t *uuid_bytes = nullptr;
162   ModuleSP module_sp(GetSP());
163   if (module_sp)
164     uuid_bytes = module_sp->GetUUID().GetBytes().data();
165 
166   return uuid_bytes;
167 }
168 
169 const char *SBModule::GetUUIDString() const {
170   LLDB_RECORD_METHOD_CONST_NO_ARGS(const char *, SBModule, GetUUIDString);
171 
172   const char *uuid_cstr = nullptr;
173   ModuleSP module_sp(GetSP());
174   if (module_sp) {
175     // We are going to return a "const char *" value through the public API, so
176     // we need to constify it so it gets added permanently the string pool and
177     // then we don't need to worry about the lifetime of the string as it will
178     // never go away once it has been put into the ConstString string pool
179     uuid_cstr = ConstString(module_sp->GetUUID().GetAsString()).GetCString();
180   }
181 
182   if (uuid_cstr && uuid_cstr[0]) {
183     return uuid_cstr;
184   }
185 
186   return nullptr;
187 }
188 
189 bool SBModule::operator==(const SBModule &rhs) const {
190   LLDB_RECORD_METHOD_CONST(bool, SBModule, operator==,(const lldb::SBModule &),
191                            rhs);
192 
193   if (m_opaque_sp)
194     return m_opaque_sp.get() == rhs.m_opaque_sp.get();
195   return false;
196 }
197 
198 bool SBModule::operator!=(const SBModule &rhs) const {
199   LLDB_RECORD_METHOD_CONST(bool, SBModule, operator!=,(const lldb::SBModule &),
200                            rhs);
201 
202   if (m_opaque_sp)
203     return m_opaque_sp.get() != rhs.m_opaque_sp.get();
204   return false;
205 }
206 
207 ModuleSP SBModule::GetSP() const { return m_opaque_sp; }
208 
209 void SBModule::SetSP(const ModuleSP &module_sp) { m_opaque_sp = module_sp; }
210 
211 SBAddress SBModule::ResolveFileAddress(lldb::addr_t vm_addr) {
212   LLDB_RECORD_METHOD(lldb::SBAddress, SBModule, ResolveFileAddress,
213                      (lldb::addr_t), vm_addr);
214 
215   lldb::SBAddress sb_addr;
216   ModuleSP module_sp(GetSP());
217   if (module_sp) {
218     Address addr;
219     if (module_sp->ResolveFileAddress(vm_addr, addr))
220       sb_addr.ref() = addr;
221   }
222   return LLDB_RECORD_RESULT(sb_addr);
223 }
224 
225 SBSymbolContext
226 SBModule::ResolveSymbolContextForAddress(const SBAddress &addr,
227                                          uint32_t resolve_scope) {
228   LLDB_RECORD_METHOD(lldb::SBSymbolContext, SBModule,
229                      ResolveSymbolContextForAddress,
230                      (const lldb::SBAddress &, uint32_t), addr, resolve_scope);
231 
232   SBSymbolContext sb_sc;
233   ModuleSP module_sp(GetSP());
234   SymbolContextItem scope = static_cast<SymbolContextItem>(resolve_scope);
235   if (module_sp && addr.IsValid())
236     module_sp->ResolveSymbolContextForAddress(addr.ref(), scope, *sb_sc);
237   return LLDB_RECORD_RESULT(sb_sc);
238 }
239 
240 bool SBModule::GetDescription(SBStream &description) {
241   LLDB_RECORD_METHOD(bool, SBModule, GetDescription, (lldb::SBStream &),
242                      description);
243 
244   Stream &strm = description.ref();
245 
246   ModuleSP module_sp(GetSP());
247   if (module_sp) {
248     module_sp->GetDescription(strm.AsRawOstream());
249   } else
250     strm.PutCString("No value");
251 
252   return true;
253 }
254 
255 uint32_t SBModule::GetNumCompileUnits() {
256   LLDB_RECORD_METHOD_NO_ARGS(uint32_t, SBModule, GetNumCompileUnits);
257 
258   ModuleSP module_sp(GetSP());
259   if (module_sp) {
260     return module_sp->GetNumCompileUnits();
261   }
262   return 0;
263 }
264 
265 SBCompileUnit SBModule::GetCompileUnitAtIndex(uint32_t index) {
266   LLDB_RECORD_METHOD(lldb::SBCompileUnit, SBModule, GetCompileUnitAtIndex,
267                      (uint32_t), index);
268 
269   SBCompileUnit sb_cu;
270   ModuleSP module_sp(GetSP());
271   if (module_sp) {
272     CompUnitSP cu_sp = module_sp->GetCompileUnitAtIndex(index);
273     sb_cu.reset(cu_sp.get());
274   }
275   return LLDB_RECORD_RESULT(sb_cu);
276 }
277 
278 SBSymbolContextList SBModule::FindCompileUnits(const SBFileSpec &sb_file_spec) {
279   LLDB_RECORD_METHOD(lldb::SBSymbolContextList, SBModule, FindCompileUnits,
280                      (const lldb::SBFileSpec &), sb_file_spec);
281 
282   SBSymbolContextList sb_sc_list;
283   const ModuleSP module_sp(GetSP());
284   if (sb_file_spec.IsValid() && module_sp) {
285     module_sp->FindCompileUnits(*sb_file_spec, *sb_sc_list);
286   }
287   return LLDB_RECORD_RESULT(sb_sc_list);
288 }
289 
290 static Symtab *GetUnifiedSymbolTable(const lldb::ModuleSP &module_sp) {
291   if (module_sp)
292     return module_sp->GetSymtab();
293   return nullptr;
294 }
295 
296 size_t SBModule::GetNumSymbols() {
297   LLDB_RECORD_METHOD_NO_ARGS(size_t, SBModule, GetNumSymbols);
298 
299   ModuleSP module_sp(GetSP());
300   if (Symtab *symtab = GetUnifiedSymbolTable(module_sp))
301     return symtab->GetNumSymbols();
302   return 0;
303 }
304 
305 SBSymbol SBModule::GetSymbolAtIndex(size_t idx) {
306   LLDB_RECORD_METHOD(lldb::SBSymbol, SBModule, GetSymbolAtIndex, (size_t), idx);
307 
308   SBSymbol sb_symbol;
309   ModuleSP module_sp(GetSP());
310   Symtab *symtab = GetUnifiedSymbolTable(module_sp);
311   if (symtab)
312     sb_symbol.SetSymbol(symtab->SymbolAtIndex(idx));
313   return LLDB_RECORD_RESULT(sb_symbol);
314 }
315 
316 lldb::SBSymbol SBModule::FindSymbol(const char *name,
317                                     lldb::SymbolType symbol_type) {
318   LLDB_RECORD_METHOD(lldb::SBSymbol, SBModule, FindSymbol,
319                      (const char *, lldb::SymbolType), name, symbol_type);
320 
321   SBSymbol sb_symbol;
322   if (name && name[0]) {
323     ModuleSP module_sp(GetSP());
324     Symtab *symtab = GetUnifiedSymbolTable(module_sp);
325     if (symtab)
326       sb_symbol.SetSymbol(symtab->FindFirstSymbolWithNameAndType(
327           ConstString(name), symbol_type, Symtab::eDebugAny,
328           Symtab::eVisibilityAny));
329   }
330   return LLDB_RECORD_RESULT(sb_symbol);
331 }
332 
333 lldb::SBSymbolContextList SBModule::FindSymbols(const char *name,
334                                                 lldb::SymbolType symbol_type) {
335   LLDB_RECORD_METHOD(lldb::SBSymbolContextList, SBModule, FindSymbols,
336                      (const char *, lldb::SymbolType), name, symbol_type);
337 
338   SBSymbolContextList sb_sc_list;
339   if (name && name[0]) {
340     ModuleSP module_sp(GetSP());
341     Symtab *symtab = GetUnifiedSymbolTable(module_sp);
342     if (symtab) {
343       std::vector<uint32_t> matching_symbol_indexes;
344       symtab->FindAllSymbolsWithNameAndType(ConstString(name), symbol_type,
345                                             matching_symbol_indexes);
346       const size_t num_matches = matching_symbol_indexes.size();
347       if (num_matches) {
348         SymbolContext sc;
349         sc.module_sp = module_sp;
350         SymbolContextList &sc_list = *sb_sc_list;
351         for (size_t i = 0; i < num_matches; ++i) {
352           sc.symbol = symtab->SymbolAtIndex(matching_symbol_indexes[i]);
353           if (sc.symbol)
354             sc_list.Append(sc);
355         }
356       }
357     }
358   }
359   return LLDB_RECORD_RESULT(sb_sc_list);
360 }
361 
362 size_t SBModule::GetNumSections() {
363   LLDB_RECORD_METHOD_NO_ARGS(size_t, SBModule, GetNumSections);
364 
365   ModuleSP module_sp(GetSP());
366   if (module_sp) {
367     // Give the symbol vendor a chance to add to the unified section list.
368     module_sp->GetSymbolFile();
369     SectionList *section_list = module_sp->GetSectionList();
370     if (section_list)
371       return section_list->GetSize();
372   }
373   return 0;
374 }
375 
376 SBSection SBModule::GetSectionAtIndex(size_t idx) {
377   LLDB_RECORD_METHOD(lldb::SBSection, SBModule, GetSectionAtIndex, (size_t),
378                      idx);
379 
380   SBSection sb_section;
381   ModuleSP module_sp(GetSP());
382   if (module_sp) {
383     // Give the symbol vendor a chance to add to the unified section list.
384     module_sp->GetSymbolFile();
385     SectionList *section_list = module_sp->GetSectionList();
386 
387     if (section_list)
388       sb_section.SetSP(section_list->GetSectionAtIndex(idx));
389   }
390   return LLDB_RECORD_RESULT(sb_section);
391 }
392 
393 lldb::SBSymbolContextList SBModule::FindFunctions(const char *name,
394                                                   uint32_t name_type_mask) {
395   LLDB_RECORD_METHOD(lldb::SBSymbolContextList, SBModule, FindFunctions,
396                      (const char *, uint32_t), name, name_type_mask);
397 
398   lldb::SBSymbolContextList sb_sc_list;
399   ModuleSP module_sp(GetSP());
400   if (name && module_sp) {
401     const bool symbols_ok = true;
402     const bool inlines_ok = true;
403     FunctionNameType type = static_cast<FunctionNameType>(name_type_mask);
404     module_sp->FindFunctions(ConstString(name), nullptr, type, symbols_ok,
405                              inlines_ok, *sb_sc_list);
406   }
407   return LLDB_RECORD_RESULT(sb_sc_list);
408 }
409 
410 SBValueList SBModule::FindGlobalVariables(SBTarget &target, const char *name,
411                                           uint32_t max_matches) {
412   LLDB_RECORD_METHOD(lldb::SBValueList, SBModule, FindGlobalVariables,
413                      (lldb::SBTarget &, const char *, uint32_t), target, name,
414                      max_matches);
415 
416   SBValueList sb_value_list;
417   ModuleSP module_sp(GetSP());
418   if (name && module_sp) {
419     VariableList variable_list;
420     module_sp->FindGlobalVariables(ConstString(name), nullptr, max_matches,
421                                    variable_list);
422     for (const VariableSP &var_sp : variable_list) {
423       lldb::ValueObjectSP valobj_sp;
424       TargetSP target_sp(target.GetSP());
425       valobj_sp = ValueObjectVariable::Create(target_sp.get(), var_sp);
426       if (valobj_sp)
427         sb_value_list.Append(SBValue(valobj_sp));
428     }
429   }
430 
431   return LLDB_RECORD_RESULT(sb_value_list);
432 }
433 
434 lldb::SBValue SBModule::FindFirstGlobalVariable(lldb::SBTarget &target,
435                                                 const char *name) {
436   LLDB_RECORD_METHOD(lldb::SBValue, SBModule, FindFirstGlobalVariable,
437                      (lldb::SBTarget &, const char *), target, name);
438 
439   SBValueList sb_value_list(FindGlobalVariables(target, name, 1));
440   if (sb_value_list.IsValid() && sb_value_list.GetSize() > 0)
441     return LLDB_RECORD_RESULT(sb_value_list.GetValueAtIndex(0));
442   return LLDB_RECORD_RESULT(SBValue());
443 }
444 
445 lldb::SBType SBModule::FindFirstType(const char *name_cstr) {
446   LLDB_RECORD_METHOD(lldb::SBType, SBModule, FindFirstType, (const char *),
447                      name_cstr);
448 
449   SBType sb_type;
450   ModuleSP module_sp(GetSP());
451   if (name_cstr && module_sp) {
452     SymbolContext sc;
453     const bool exact_match = false;
454     ConstString name(name_cstr);
455 
456     sb_type = SBType(module_sp->FindFirstType(sc, name, exact_match));
457 
458     if (!sb_type.IsValid()) {
459       auto type_system_or_err =
460           module_sp->GetTypeSystemForLanguage(eLanguageTypeC);
461       if (auto err = type_system_or_err.takeError()) {
462         llvm::consumeError(std::move(err));
463         return LLDB_RECORD_RESULT(SBType());
464       }
465       sb_type = SBType(type_system_or_err->GetBuiltinTypeByName(name));
466     }
467   }
468   return LLDB_RECORD_RESULT(sb_type);
469 }
470 
471 lldb::SBType SBModule::GetBasicType(lldb::BasicType type) {
472   LLDB_RECORD_METHOD(lldb::SBType, SBModule, GetBasicType, (lldb::BasicType),
473                      type);
474 
475   ModuleSP module_sp(GetSP());
476   if (module_sp) {
477     auto type_system_or_err =
478         module_sp->GetTypeSystemForLanguage(eLanguageTypeC);
479     if (auto err = type_system_or_err.takeError()) {
480       llvm::consumeError(std::move(err));
481     } else {
482       return LLDB_RECORD_RESULT(
483           SBType(type_system_or_err->GetBasicTypeFromAST(type)));
484     }
485   }
486   return LLDB_RECORD_RESULT(SBType());
487 }
488 
489 lldb::SBTypeList SBModule::FindTypes(const char *type) {
490   LLDB_RECORD_METHOD(lldb::SBTypeList, SBModule, FindTypes, (const char *),
491                      type);
492 
493   SBTypeList retval;
494 
495   ModuleSP module_sp(GetSP());
496   if (type && module_sp) {
497     TypeList type_list;
498     const bool exact_match = false;
499     ConstString name(type);
500     llvm::DenseSet<SymbolFile *> searched_symbol_files;
501     module_sp->FindTypes(name, exact_match, UINT32_MAX, searched_symbol_files,
502                          type_list);
503 
504     if (type_list.Empty()) {
505       auto type_system_or_err =
506           module_sp->GetTypeSystemForLanguage(eLanguageTypeC);
507       if (auto err = type_system_or_err.takeError()) {
508         llvm::consumeError(std::move(err));
509       } else {
510         CompilerType compiler_type =
511             type_system_or_err->GetBuiltinTypeByName(name);
512         if (compiler_type)
513           retval.Append(SBType(compiler_type));
514       }
515     } else {
516       for (size_t idx = 0; idx < type_list.GetSize(); idx++) {
517         TypeSP type_sp(type_list.GetTypeAtIndex(idx));
518         if (type_sp)
519           retval.Append(SBType(type_sp));
520       }
521     }
522   }
523   return LLDB_RECORD_RESULT(retval);
524 }
525 
526 lldb::SBType SBModule::GetTypeByID(lldb::user_id_t uid) {
527   LLDB_RECORD_METHOD(lldb::SBType, SBModule, GetTypeByID, (lldb::user_id_t),
528                      uid);
529 
530   ModuleSP module_sp(GetSP());
531   if (module_sp) {
532     if (SymbolFile *symfile = module_sp->GetSymbolFile()) {
533       Type *type_ptr = symfile->ResolveTypeUID(uid);
534       if (type_ptr)
535         return LLDB_RECORD_RESULT(SBType(type_ptr->shared_from_this()));
536     }
537   }
538   return LLDB_RECORD_RESULT(SBType());
539 }
540 
541 lldb::SBTypeList SBModule::GetTypes(uint32_t type_mask) {
542   LLDB_RECORD_METHOD(lldb::SBTypeList, SBModule, GetTypes, (uint32_t),
543                      type_mask);
544 
545   SBTypeList sb_type_list;
546 
547   ModuleSP module_sp(GetSP());
548   if (!module_sp)
549     return LLDB_RECORD_RESULT(sb_type_list);
550   SymbolFile *symfile = module_sp->GetSymbolFile();
551   if (!symfile)
552     return LLDB_RECORD_RESULT(sb_type_list);
553 
554   TypeClass type_class = static_cast<TypeClass>(type_mask);
555   TypeList type_list;
556   symfile->GetTypes(nullptr, type_class, type_list);
557   sb_type_list.m_opaque_up->Append(type_list);
558   return LLDB_RECORD_RESULT(sb_type_list);
559 }
560 
561 SBSection SBModule::FindSection(const char *sect_name) {
562   LLDB_RECORD_METHOD(lldb::SBSection, SBModule, FindSection, (const char *),
563                      sect_name);
564 
565   SBSection sb_section;
566 
567   ModuleSP module_sp(GetSP());
568   if (sect_name && module_sp) {
569     // Give the symbol vendor a chance to add to the unified section list.
570     module_sp->GetSymbolFile();
571     SectionList *section_list = module_sp->GetSectionList();
572     if (section_list) {
573       ConstString const_sect_name(sect_name);
574       SectionSP section_sp(section_list->FindSectionByName(const_sect_name));
575       if (section_sp) {
576         sb_section.SetSP(section_sp);
577       }
578     }
579   }
580   return LLDB_RECORD_RESULT(sb_section);
581 }
582 
583 lldb::ByteOrder SBModule::GetByteOrder() {
584   LLDB_RECORD_METHOD_NO_ARGS(lldb::ByteOrder, SBModule, GetByteOrder);
585 
586   ModuleSP module_sp(GetSP());
587   if (module_sp)
588     return module_sp->GetArchitecture().GetByteOrder();
589   return eByteOrderInvalid;
590 }
591 
592 const char *SBModule::GetTriple() {
593   LLDB_RECORD_METHOD_NO_ARGS(const char *, SBModule, GetTriple);
594 
595   ModuleSP module_sp(GetSP());
596   if (module_sp) {
597     std::string triple(module_sp->GetArchitecture().GetTriple().str());
598     // Unique the string so we don't run into ownership issues since the const
599     // strings put the string into the string pool once and the strings never
600     // comes out
601     ConstString const_triple(triple.c_str());
602     return const_triple.GetCString();
603   }
604   return nullptr;
605 }
606 
607 uint32_t SBModule::GetAddressByteSize() {
608   LLDB_RECORD_METHOD_NO_ARGS(uint32_t, SBModule, GetAddressByteSize);
609 
610   ModuleSP module_sp(GetSP());
611   if (module_sp)
612     return module_sp->GetArchitecture().GetAddressByteSize();
613   return sizeof(void *);
614 }
615 
616 uint32_t SBModule::GetVersion(uint32_t *versions, uint32_t num_versions) {
617   LLDB_RECORD_METHOD(uint32_t, SBModule, GetVersion, (uint32_t *, uint32_t),
618                      versions, num_versions);
619 
620   llvm::VersionTuple version;
621   if (ModuleSP module_sp = GetSP())
622     version = module_sp->GetVersion();
623   uint32_t result = 0;
624   if (!version.empty())
625     ++result;
626   if (version.getMinor())
627     ++result;
628   if(version.getSubminor())
629     ++result;
630 
631   if (!versions)
632     return result;
633 
634   if (num_versions > 0)
635     versions[0] = version.empty() ? UINT32_MAX : version.getMajor();
636   if (num_versions > 1)
637     versions[1] = version.getMinor().getValueOr(UINT32_MAX);
638   if (num_versions > 2)
639     versions[2] = version.getSubminor().getValueOr(UINT32_MAX);
640   for (uint32_t i = 3; i < num_versions; ++i)
641     versions[i] = UINT32_MAX;
642   return result;
643 }
644 
645 lldb::SBFileSpec SBModule::GetSymbolFileSpec() const {
646   LLDB_RECORD_METHOD_CONST_NO_ARGS(lldb::SBFileSpec, SBModule,
647                                    GetSymbolFileSpec);
648 
649   lldb::SBFileSpec sb_file_spec;
650   ModuleSP module_sp(GetSP());
651   if (module_sp) {
652     if (SymbolFile *symfile = module_sp->GetSymbolFile())
653       sb_file_spec.SetFileSpec(symfile->GetObjectFile()->GetFileSpec());
654   }
655   return LLDB_RECORD_RESULT(sb_file_spec);
656 }
657 
658 lldb::SBAddress SBModule::GetObjectFileHeaderAddress() const {
659   LLDB_RECORD_METHOD_CONST_NO_ARGS(lldb::SBAddress, SBModule,
660                                    GetObjectFileHeaderAddress);
661 
662   lldb::SBAddress sb_addr;
663   ModuleSP module_sp(GetSP());
664   if (module_sp) {
665     ObjectFile *objfile_ptr = module_sp->GetObjectFile();
666     if (objfile_ptr)
667       sb_addr.ref() = objfile_ptr->GetBaseAddress();
668   }
669   return LLDB_RECORD_RESULT(sb_addr);
670 }
671 
672 lldb::SBAddress SBModule::GetObjectFileEntryPointAddress() const {
673   LLDB_RECORD_METHOD_CONST_NO_ARGS(lldb::SBAddress, SBModule,
674                                    GetObjectFileEntryPointAddress);
675 
676   lldb::SBAddress sb_addr;
677   ModuleSP module_sp(GetSP());
678   if (module_sp) {
679     ObjectFile *objfile_ptr = module_sp->GetObjectFile();
680     if (objfile_ptr)
681       sb_addr.ref() = objfile_ptr->GetEntryPointAddress();
682   }
683   return LLDB_RECORD_RESULT(sb_addr);
684 }
685 
686 namespace lldb_private {
687 namespace repro {
688 
689 template <>
690 void RegisterMethods<SBModule>(Registry &R) {
691   LLDB_REGISTER_CONSTRUCTOR(SBModule, ());
692   LLDB_REGISTER_CONSTRUCTOR(SBModule, (const lldb::SBModuleSpec &));
693   LLDB_REGISTER_CONSTRUCTOR(SBModule, (const lldb::SBModule &));
694   LLDB_REGISTER_CONSTRUCTOR(SBModule, (lldb::SBProcess &, lldb::addr_t));
695   LLDB_REGISTER_METHOD(const lldb::SBModule &,
696                        SBModule, operator=,(const lldb::SBModule &));
697   LLDB_REGISTER_METHOD_CONST(bool, SBModule, IsValid, ());
698   LLDB_REGISTER_METHOD_CONST(bool, SBModule, operator bool, ());
699   LLDB_REGISTER_METHOD(void, SBModule, Clear, ());
700   LLDB_REGISTER_METHOD_CONST(lldb::SBFileSpec, SBModule, GetFileSpec, ());
701   LLDB_REGISTER_METHOD_CONST(lldb::SBFileSpec, SBModule, GetPlatformFileSpec,
702                              ());
703   LLDB_REGISTER_METHOD(bool, SBModule, SetPlatformFileSpec,
704                        (const lldb::SBFileSpec &));
705   LLDB_REGISTER_METHOD(lldb::SBFileSpec, SBModule, GetRemoteInstallFileSpec,
706                        ());
707   LLDB_REGISTER_METHOD(bool, SBModule, SetRemoteInstallFileSpec,
708                        (lldb::SBFileSpec &));
709   LLDB_REGISTER_METHOD_CONST(const char *, SBModule, GetUUIDString, ());
710   LLDB_REGISTER_METHOD_CONST(bool,
711                              SBModule, operator==,(const lldb::SBModule &));
712   LLDB_REGISTER_METHOD_CONST(bool,
713                              SBModule, operator!=,(const lldb::SBModule &));
714   LLDB_REGISTER_METHOD(lldb::SBAddress, SBModule, ResolveFileAddress,
715                        (lldb::addr_t));
716   LLDB_REGISTER_METHOD(lldb::SBSymbolContext, SBModule,
717                        ResolveSymbolContextForAddress,
718                        (const lldb::SBAddress &, uint32_t));
719   LLDB_REGISTER_METHOD(bool, SBModule, GetDescription, (lldb::SBStream &));
720   LLDB_REGISTER_METHOD(uint32_t, SBModule, GetNumCompileUnits, ());
721   LLDB_REGISTER_METHOD(lldb::SBCompileUnit, SBModule, GetCompileUnitAtIndex,
722                        (uint32_t));
723   LLDB_REGISTER_METHOD(lldb::SBSymbolContextList, SBModule, FindCompileUnits,
724                        (const lldb::SBFileSpec &));
725   LLDB_REGISTER_METHOD(size_t, SBModule, GetNumSymbols, ());
726   LLDB_REGISTER_METHOD(lldb::SBSymbol, SBModule, GetSymbolAtIndex, (size_t));
727   LLDB_REGISTER_METHOD(lldb::SBSymbol, SBModule, FindSymbol,
728                        (const char *, lldb::SymbolType));
729   LLDB_REGISTER_METHOD(lldb::SBSymbolContextList, SBModule, FindSymbols,
730                        (const char *, lldb::SymbolType));
731   LLDB_REGISTER_METHOD(size_t, SBModule, GetNumSections, ());
732   LLDB_REGISTER_METHOD(lldb::SBSection, SBModule, GetSectionAtIndex,
733                        (size_t));
734   LLDB_REGISTER_METHOD(lldb::SBSymbolContextList, SBModule, FindFunctions,
735                        (const char *, uint32_t));
736   LLDB_REGISTER_METHOD(lldb::SBValueList, SBModule, FindGlobalVariables,
737                        (lldb::SBTarget &, const char *, uint32_t));
738   LLDB_REGISTER_METHOD(lldb::SBValue, SBModule, FindFirstGlobalVariable,
739                        (lldb::SBTarget &, const char *));
740   LLDB_REGISTER_METHOD(lldb::SBType, SBModule, FindFirstType, (const char *));
741   LLDB_REGISTER_METHOD(lldb::SBType, SBModule, GetBasicType,
742                        (lldb::BasicType));
743   LLDB_REGISTER_METHOD(lldb::SBTypeList, SBModule, FindTypes, (const char *));
744   LLDB_REGISTER_METHOD(lldb::SBType, SBModule, GetTypeByID,
745                        (lldb::user_id_t));
746   LLDB_REGISTER_METHOD(lldb::SBTypeList, SBModule, GetTypes, (uint32_t));
747   LLDB_REGISTER_METHOD(lldb::SBSection, SBModule, FindSection,
748                        (const char *));
749   LLDB_REGISTER_METHOD(lldb::ByteOrder, SBModule, GetByteOrder, ());
750   LLDB_REGISTER_METHOD(const char *, SBModule, GetTriple, ());
751   LLDB_REGISTER_METHOD(uint32_t, SBModule, GetAddressByteSize, ());
752   LLDB_REGISTER_METHOD(uint32_t, SBModule, GetVersion,
753                        (uint32_t *, uint32_t));
754   LLDB_REGISTER_METHOD_CONST(lldb::SBFileSpec, SBModule, GetSymbolFileSpec,
755                              ());
756   LLDB_REGISTER_METHOD_CONST(lldb::SBAddress, SBModule,
757                              GetObjectFileHeaderAddress, ());
758   LLDB_REGISTER_METHOD_CONST(lldb::SBAddress, SBModule,
759                              GetObjectFileEntryPointAddress, ());
760 }
761 
762 }
763 }
764