130fdc8d8SChris Lattner //===-- ObjectFile.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 
10b9c1b51eSKate Stone #include "lldb/Symbol/ObjectFile.h"
1130fdc8d8SChris Lattner #include "lldb/Core/Module.h"
12f4d6de6aSGreg Clayton #include "lldb/Core/ModuleSpec.h"
1330fdc8d8SChris Lattner #include "lldb/Core/PluginManager.h"
141f746071SGreg Clayton #include "lldb/Core/Section.h"
1530fdc8d8SChris Lattner #include "lldb/Symbol/ObjectContainer.h"
1630fdc8d8SChris Lattner #include "lldb/Symbol/SymbolFile.h"
17bf9a7730SZachary Turner #include "lldb/Target/Process.h"
184687db0eSHafiz Abid Qadeer #include "lldb/Target/SectionLoadList.h"
19bf9a7730SZachary Turner #include "lldb/Target/Target.h"
20666cc0b2SZachary Turner #include "lldb/Utility/DataBuffer.h"
21666cc0b2SZachary Turner #include "lldb/Utility/DataBufferHeap.h"
227f6a7a37SZachary Turner #include "lldb/Utility/DataBufferLLVM.h"
236f9e6901SZachary Turner #include "lldb/Utility/Log.h"
24bf9a7730SZachary Turner #include "lldb/Utility/RegularExpression.h"
2538d0632eSPavel Labath #include "lldb/Utility/Timer.h"
26b9c1b51eSKate Stone #include "lldb/lldb-private.h"
2730fdc8d8SChris Lattner 
2830fdc8d8SChris Lattner using namespace lldb;
2930fdc8d8SChris Lattner using namespace lldb_private;
3030fdc8d8SChris Lattner 
31762f7135SGreg Clayton ObjectFileSP
32b9c1b51eSKate Stone ObjectFile::FindPlugin(const lldb::ModuleSP &module_sp, const FileSpec *file,
33b9c1b51eSKate Stone                        lldb::offset_t file_offset, lldb::offset_t file_size,
34b9c1b51eSKate Stone                        DataBufferSP &data_sp, lldb::offset_t &data_offset) {
35e72dfb32SGreg Clayton   ObjectFileSP object_file_sp;
36e72dfb32SGreg Clayton 
37b9c1b51eSKate Stone   if (module_sp) {
38f9d16476SPavel Labath     static Timer::Category func_cat(LLVM_PRETTY_FUNCTION);
39b9c1b51eSKate Stone     Timer scoped_timer(
40f9d16476SPavel Labath         func_cat,
41b9c1b51eSKate Stone         "ObjectFile::FindPlugin (module = %s, file = %p, file_offset = "
42b9c1b51eSKate Stone         "0x%8.8" PRIx64 ", file_size = 0x%8.8" PRIx64 ")",
43b5ad4ec7SGreg Clayton         module_sp->GetFileSpec().GetPath().c_str(),
44b9c1b51eSKate Stone         static_cast<const void *>(file), static_cast<uint64_t>(file_offset),
45324a1036SSaleem Abdulrasool         static_cast<uint64_t>(file_size));
46b9c1b51eSKate Stone     if (file) {
475ce9c565SGreg Clayton       FileSpec archive_file;
485ce9c565SGreg Clayton       ObjectContainerCreateInstance create_object_container_callback;
495ce9c565SGreg Clayton 
505ce9c565SGreg Clayton       const bool file_exists = file->Exists();
51b9c1b51eSKate Stone       if (!data_sp) {
5205097246SAdrian Prantl         // We have an object name which most likely means we have a .o file in
5305097246SAdrian Prantl         // a static archive (.a file). Try and see if we have a cached archive
5405097246SAdrian Prantl         // first without reading any data first
55b9c1b51eSKate Stone         if (file_exists && module_sp->GetObjectName()) {
56b9c1b51eSKate Stone           for (uint32_t idx = 0;
57b9c1b51eSKate Stone                (create_object_container_callback =
58b9c1b51eSKate Stone                     PluginManager::GetObjectContainerCreateCallbackAtIndex(
59b9c1b51eSKate Stone                         idx)) != nullptr;
60b9c1b51eSKate Stone                ++idx) {
61b9c1b51eSKate Stone             std::unique_ptr<ObjectContainer> object_container_ap(
62b9c1b51eSKate Stone                 create_object_container_callback(module_sp, data_sp,
63b9c1b51eSKate Stone                                                  data_offset, file, file_offset,
64b9c1b51eSKate Stone                                                  file_size));
655ce9c565SGreg Clayton 
665ce9c565SGreg Clayton             if (object_container_ap.get())
675ce9c565SGreg Clayton               object_file_sp = object_container_ap->GetObjectFile(file);
685ce9c565SGreg Clayton 
695ce9c565SGreg Clayton             if (object_file_sp.get())
705ce9c565SGreg Clayton               return object_file_sp;
715ce9c565SGreg Clayton           }
725ce9c565SGreg Clayton         }
7305097246SAdrian Prantl         // Ok, we didn't find any containers that have a named object, now lets
7405097246SAdrian Prantl         // read the first 512 bytes from the file so the object file and object
7505097246SAdrian Prantl         // container plug-ins can use these bytes to see if they can parse this
7605097246SAdrian Prantl         // file.
77b9c1b51eSKate Stone         if (file_size > 0) {
787f6a7a37SZachary Turner           data_sp =
797f6a7a37SZachary Turner               DataBufferLLVM::CreateSliceFromPath(file->GetPath(), 512, file_offset);
805ce9c565SGreg Clayton           data_offset = 0;
815ce9c565SGreg Clayton         }
8244435ed0SGreg Clayton       }
8330fdc8d8SChris Lattner 
84b9c1b51eSKate Stone       if (!data_sp || data_sp->GetByteSize() == 0) {
8530fdc8d8SChris Lattner         // Check for archive file with format "/path/to/archive.a(object.o)"
8630fdc8d8SChris Lattner         char path_with_object[PATH_MAX * 2];
87b9c1b51eSKate Stone         module_sp->GetFileSpec().GetPath(path_with_object,
88b9c1b51eSKate Stone                                          sizeof(path_with_object));
8930fdc8d8SChris Lattner 
901f746071SGreg Clayton         ConstString archive_object;
91906ba471SGreg Clayton         const bool must_exist = true;
92b9c1b51eSKate Stone         if (ObjectFile::SplitArchivePathWithObject(
93b9c1b51eSKate Stone                 path_with_object, archive_file, archive_object, must_exist)) {
9430fdc8d8SChris Lattner           file_size = archive_file.GetByteSize();
95b9c1b51eSKate Stone           if (file_size > 0) {
965ce9c565SGreg Clayton             file = &archive_file;
971f746071SGreg Clayton             module_sp->SetFileSpecAndObjectName(archive_file, archive_object);
98b9c1b51eSKate Stone             // Check if this is a object container by iterating through all
9905097246SAdrian Prantl             // object container plugin instances and then trying to get an
10005097246SAdrian Prantl             // object file from the container plugins since we had a name.
10105097246SAdrian Prantl             // Also, don't read
1025ce9c565SGreg Clayton             // ANY data in case there is data cached in the container plug-ins
10305097246SAdrian Prantl             // (like BSD archives caching the contained objects within an
10405097246SAdrian Prantl             // file).
105b9c1b51eSKate Stone             for (uint32_t idx = 0;
106b9c1b51eSKate Stone                  (create_object_container_callback =
107b9c1b51eSKate Stone                       PluginManager::GetObjectContainerCreateCallbackAtIndex(
108b9c1b51eSKate Stone                           idx)) != nullptr;
109b9c1b51eSKate Stone                  ++idx) {
110b9c1b51eSKate Stone               std::unique_ptr<ObjectContainer> object_container_ap(
111b9c1b51eSKate Stone                   create_object_container_callback(module_sp, data_sp,
112b9c1b51eSKate Stone                                                    data_offset, file,
113b9c1b51eSKate Stone                                                    file_offset, file_size));
11430fdc8d8SChris Lattner 
1155ce9c565SGreg Clayton               if (object_container_ap.get())
1165ce9c565SGreg Clayton                 object_file_sp = object_container_ap->GetObjectFile(file);
1175ce9c565SGreg Clayton 
1185ce9c565SGreg Clayton               if (object_file_sp.get())
1195ce9c565SGreg Clayton                 return object_file_sp;
1205ce9c565SGreg Clayton             }
12105097246SAdrian Prantl             // We failed to find any cached object files in the container plug-
12205097246SAdrian Prantl             // ins, so lets read the first 512 bytes and try again below...
1237f6a7a37SZachary Turner             data_sp = DataBufferLLVM::CreateSliceFromPath(archive_file.GetPath(),
1247f6a7a37SZachary Turner                                                      512, file_offset);
1255ce9c565SGreg Clayton           }
1265ce9c565SGreg Clayton         }
1275ce9c565SGreg Clayton       }
1285ce9c565SGreg Clayton 
129b9c1b51eSKate Stone       if (data_sp && data_sp->GetByteSize() > 0) {
13005097246SAdrian Prantl         // Check if this is a normal object file by iterating through all
13105097246SAdrian Prantl         // object file plugin instances.
13230fdc8d8SChris Lattner         ObjectFileCreateInstance create_object_file_callback;
133b9c1b51eSKate Stone         for (uint32_t idx = 0;
134b9c1b51eSKate Stone              (create_object_file_callback =
135b9c1b51eSKate Stone                   PluginManager::GetObjectFileCreateCallbackAtIndex(idx)) !=
136b9c1b51eSKate Stone              nullptr;
137b9c1b51eSKate Stone              ++idx) {
138b9c1b51eSKate Stone           object_file_sp.reset(create_object_file_callback(
139b9c1b51eSKate Stone               module_sp, data_sp, data_offset, file, file_offset, file_size));
140762f7135SGreg Clayton           if (object_file_sp.get())
141762f7135SGreg Clayton             return object_file_sp;
14230fdc8d8SChris Lattner         }
14330fdc8d8SChris Lattner 
14405097246SAdrian Prantl         // Check if this is a object container by iterating through all object
14505097246SAdrian Prantl         // container plugin instances and then trying to get an object file
14605097246SAdrian Prantl         // from the container.
147b9c1b51eSKate Stone         for (uint32_t idx = 0;
148b9c1b51eSKate Stone              (create_object_container_callback =
149b9c1b51eSKate Stone                   PluginManager::GetObjectContainerCreateCallbackAtIndex(
150b9c1b51eSKate Stone                       idx)) != nullptr;
151b9c1b51eSKate Stone              ++idx) {
152b9c1b51eSKate Stone           std::unique_ptr<ObjectContainer> object_container_ap(
153b9c1b51eSKate Stone               create_object_container_callback(module_sp, data_sp, data_offset,
154b9c1b51eSKate Stone                                                file, file_offset, file_size));
15530fdc8d8SChris Lattner 
15630fdc8d8SChris Lattner           if (object_container_ap.get())
157762f7135SGreg Clayton             object_file_sp = object_container_ap->GetObjectFile(file);
15830fdc8d8SChris Lattner 
159762f7135SGreg Clayton           if (object_file_sp.get())
160762f7135SGreg Clayton             return object_file_sp;
16130fdc8d8SChris Lattner         }
16230fdc8d8SChris Lattner       }
16330fdc8d8SChris Lattner     }
16444435ed0SGreg Clayton   }
16505097246SAdrian Prantl   // We didn't find it, so clear our shared pointer in case it contains
16605097246SAdrian Prantl   // anything and return an empty shared pointer
167762f7135SGreg Clayton   object_file_sp.reset();
168762f7135SGreg Clayton   return object_file_sp;
169762f7135SGreg Clayton }
170762f7135SGreg Clayton 
171b9c1b51eSKate Stone ObjectFileSP ObjectFile::FindPlugin(const lldb::ModuleSP &module_sp,
172c9660546SGreg Clayton                                     const ProcessSP &process_sp,
173c9660546SGreg Clayton                                     lldb::addr_t header_addr,
174b9c1b51eSKate Stone                                     DataBufferSP &data_sp) {
175c9660546SGreg Clayton   ObjectFileSP object_file_sp;
176c9660546SGreg Clayton 
177b9c1b51eSKate Stone   if (module_sp) {
178f9d16476SPavel Labath     static Timer::Category func_cat(LLVM_PRETTY_FUNCTION);
179f9d16476SPavel Labath     Timer scoped_timer(func_cat,
180f9d16476SPavel Labath                        "ObjectFile::FindPlugin (module = "
181b9c1b51eSKate Stone                        "%s, process = %p, header_addr = "
182b9c1b51eSKate Stone                        "0x%" PRIx64 ")",
183b5ad4ec7SGreg Clayton                        module_sp->GetFileSpec().GetPath().c_str(),
184324a1036SSaleem Abdulrasool                        static_cast<void *>(process_sp.get()), header_addr);
185c9660546SGreg Clayton     uint32_t idx;
186c9660546SGreg Clayton 
18705097246SAdrian Prantl     // Check if this is a normal object file by iterating through all object
18805097246SAdrian Prantl     // file plugin instances.
189c9660546SGreg Clayton     ObjectFileCreateMemoryInstance create_callback;
190b9c1b51eSKate Stone     for (idx = 0;
191b9c1b51eSKate Stone          (create_callback =
192b9c1b51eSKate Stone               PluginManager::GetObjectFileCreateMemoryCallbackAtIndex(idx)) !=
193b9c1b51eSKate Stone          nullptr;
194b9c1b51eSKate Stone          ++idx) {
195b9c1b51eSKate Stone       object_file_sp.reset(
196b9c1b51eSKate Stone           create_callback(module_sp, data_sp, process_sp, header_addr));
197c9660546SGreg Clayton       if (object_file_sp.get())
198c9660546SGreg Clayton         return object_file_sp;
199c9660546SGreg Clayton     }
200c9660546SGreg Clayton   }
201324a1036SSaleem Abdulrasool 
20205097246SAdrian Prantl   // We didn't find it, so clear our shared pointer in case it contains
20305097246SAdrian Prantl   // anything and return an empty shared pointer
204c9660546SGreg Clayton   object_file_sp.reset();
205c9660546SGreg Clayton   return object_file_sp;
206c9660546SGreg Clayton }
207c9660546SGreg Clayton 
208b9c1b51eSKate Stone size_t ObjectFile::GetModuleSpecifications(const FileSpec &file,
209f4d6de6aSGreg Clayton                                            lldb::offset_t file_offset,
2102540a8a7SGreg Clayton                                            lldb::offset_t file_size,
211b9c1b51eSKate Stone                                            ModuleSpecList &specs) {
2127f6a7a37SZachary Turner   DataBufferSP data_sp = DataBufferLLVM::CreateSliceFromPath(file.GetPath(), 512, file_offset);
213b9c1b51eSKate Stone   if (data_sp) {
214b9c1b51eSKate Stone     if (file_size == 0) {
2152540a8a7SGreg Clayton       const lldb::offset_t actual_file_size = file.GetByteSize();
2162540a8a7SGreg Clayton       if (actual_file_size > file_offset)
2172540a8a7SGreg Clayton         file_size = actual_file_size - file_offset;
2182540a8a7SGreg Clayton     }
219f4d6de6aSGreg Clayton     return ObjectFile::GetModuleSpecifications(file,        // file spec
220f4d6de6aSGreg Clayton                                                data_sp,     // data bytes
221f4d6de6aSGreg Clayton                                                0,           // data offset
222f4d6de6aSGreg Clayton                                                file_offset, // file offset
2232540a8a7SGreg Clayton                                                file_size,   // file length
224f4d6de6aSGreg Clayton                                                specs);
2252540a8a7SGreg Clayton   }
226f4d6de6aSGreg Clayton   return 0;
227f4d6de6aSGreg Clayton }
228f4d6de6aSGreg Clayton 
229b9c1b51eSKate Stone size_t ObjectFile::GetModuleSpecifications(
230b9c1b51eSKate Stone     const lldb_private::FileSpec &file, lldb::DataBufferSP &data_sp,
231b9c1b51eSKate Stone     lldb::offset_t data_offset, lldb::offset_t file_offset,
232b9c1b51eSKate Stone     lldb::offset_t file_size, lldb_private::ModuleSpecList &specs) {
233f4d6de6aSGreg Clayton   const size_t initial_count = specs.GetSize();
234f4d6de6aSGreg Clayton   ObjectFileGetModuleSpecifications callback;
235f4d6de6aSGreg Clayton   uint32_t i;
236f4d6de6aSGreg Clayton   // Try the ObjectFile plug-ins
237b9c1b51eSKate Stone   for (i = 0;
238b9c1b51eSKate Stone        (callback =
239b9c1b51eSKate Stone             PluginManager::GetObjectFileGetModuleSpecificationsCallbackAtIndex(
240b9c1b51eSKate Stone                 i)) != nullptr;
241b9c1b51eSKate Stone        ++i) {
2422540a8a7SGreg Clayton     if (callback(file, data_sp, data_offset, file_offset, file_size, specs) > 0)
243f4d6de6aSGreg Clayton       return specs.GetSize() - initial_count;
244f4d6de6aSGreg Clayton   }
245f4d6de6aSGreg Clayton 
246f4d6de6aSGreg Clayton   // Try the ObjectContainer plug-ins
247b9c1b51eSKate Stone   for (i = 0;
248b9c1b51eSKate Stone        (callback = PluginManager::
249b9c1b51eSKate Stone             GetObjectContainerGetModuleSpecificationsCallbackAtIndex(i)) !=
250b9c1b51eSKate Stone        nullptr;
251b9c1b51eSKate Stone        ++i) {
2522540a8a7SGreg Clayton     if (callback(file, data_sp, data_offset, file_offset, file_size, specs) > 0)
253f4d6de6aSGreg Clayton       return specs.GetSize() - initial_count;
254f4d6de6aSGreg Clayton   }
255f4d6de6aSGreg Clayton   return 0;
256f4d6de6aSGreg Clayton }
257f4d6de6aSGreg Clayton 
258e72dfb32SGreg Clayton ObjectFile::ObjectFile(const lldb::ModuleSP &module_sp,
259762f7135SGreg Clayton                        const FileSpec *file_spec_ptr,
260b9c1b51eSKate Stone                        lldb::offset_t file_offset, lldb::offset_t length,
26123f8c95aSGreg Clayton                        const lldb::DataBufferSP &data_sp,
262b9c1b51eSKate Stone                        lldb::offset_t data_offset)
263b9c1b51eSKate Stone     : ModuleChild(module_sp),
264762f7135SGreg Clayton       m_file(), // This file could be different from the original module's file
265b9c1b51eSKate Stone       m_type(eTypeInvalid), m_strata(eStrataInvalid),
266b9c1b51eSKate Stone       m_file_offset(file_offset), m_length(length), m_data(),
267b9c1b51eSKate Stone       m_unwind_table(*this), m_process_wp(),
268b9c1b51eSKate Stone       m_memory_addr(LLDB_INVALID_ADDRESS), m_sections_ap(), m_symtab_ap(),
269b9c1b51eSKate Stone       m_synthetic_symbol_idx(0) {
270762f7135SGreg Clayton   if (file_spec_ptr)
271762f7135SGreg Clayton     m_file = *file_spec_ptr;
2725ce9c565SGreg Clayton   if (data_sp)
2735ce9c565SGreg Clayton     m_data.SetData(data_sp, data_offset, length);
2745160ce5cSGreg Clayton   Log *log(lldb_private::GetLogIfAllCategoriesSet(LIBLLDB_LOG_OBJECT));
275762f7135SGreg Clayton   if (log)
276b9c1b51eSKate Stone     log->Printf("%p ObjectFile::ObjectFile() module = %p (%s), file = %s, "
277b9c1b51eSKate Stone                 "file_offset = 0x%8.8" PRIx64 ", size = %" PRIu64,
278b9c1b51eSKate Stone                 static_cast<void *>(this), static_cast<void *>(module_sp.get()),
279b5ad4ec7SGreg Clayton                 module_sp->GetSpecificationDescription().c_str(),
280b9c1b51eSKate Stone                 m_file ? m_file.GetPath().c_str() : "<NULL>", m_file_offset,
281b9c1b51eSKate Stone                 m_length);
282762f7135SGreg Clayton }
283762f7135SGreg Clayton 
284e72dfb32SGreg Clayton ObjectFile::ObjectFile(const lldb::ModuleSP &module_sp,
285b9c1b51eSKate Stone                        const ProcessSP &process_sp, lldb::addr_t header_addr,
286b9c1b51eSKate Stone                        DataBufferSP &header_data_sp)
287b9c1b51eSKate Stone     : ModuleChild(module_sp), m_file(), m_type(eTypeInvalid),
288b9c1b51eSKate Stone       m_strata(eStrataInvalid), m_file_offset(0), m_length(0), m_data(),
289b9c1b51eSKate Stone       m_unwind_table(*this), m_process_wp(process_sp),
290b9c1b51eSKate Stone       m_memory_addr(header_addr), m_sections_ap(), m_symtab_ap(),
291b9c1b51eSKate Stone       m_synthetic_symbol_idx(0) {
292c9660546SGreg Clayton   if (header_data_sp)
293c9660546SGreg Clayton     m_data.SetData(header_data_sp, 0, header_data_sp->GetByteSize());
2945160ce5cSGreg Clayton   Log *log(lldb_private::GetLogIfAllCategoriesSet(LIBLLDB_LOG_OBJECT));
295c9660546SGreg Clayton   if (log)
296b9c1b51eSKate Stone     log->Printf("%p ObjectFile::ObjectFile() module = %p (%s), process = %p, "
297b9c1b51eSKate Stone                 "header_addr = 0x%" PRIx64,
298b9c1b51eSKate Stone                 static_cast<void *>(this), static_cast<void *>(module_sp.get()),
299b5ad4ec7SGreg Clayton                 module_sp->GetSpecificationDescription().c_str(),
300324a1036SSaleem Abdulrasool                 static_cast<void *>(process_sp.get()), m_memory_addr);
301c9660546SGreg Clayton }
302c9660546SGreg Clayton 
303b9c1b51eSKate Stone ObjectFile::~ObjectFile() {
3045160ce5cSGreg Clayton   Log *log(lldb_private::GetLogIfAllCategoriesSet(LIBLLDB_LOG_OBJECT));
305762f7135SGreg Clayton   if (log)
306b9c1b51eSKate Stone     log->Printf("%p ObjectFile::~ObjectFile ()\n", static_cast<void *>(this));
30730fdc8d8SChris Lattner }
3085aee162fSJim Ingham 
309b9c1b51eSKate Stone bool ObjectFile::SetModulesArchitecture(const ArchSpec &new_arch) {
310e72dfb32SGreg Clayton   ModuleSP module_sp(GetModule());
311e72dfb32SGreg Clayton   if (module_sp)
312e72dfb32SGreg Clayton     return module_sp->SetArchitecture(new_arch);
313e72dfb32SGreg Clayton   return false;
3145aee162fSJim Ingham }
3155aee162fSJim Ingham 
316b9c1b51eSKate Stone AddressClass ObjectFile::GetAddressClass(addr_t file_addr) {
3173046e668SGreg Clayton   Symtab *symtab = GetSymtab();
318b9c1b51eSKate Stone   if (symtab) {
319ded470d3SGreg Clayton     Symbol *symbol = symtab->FindSymbolContainingFileAddress(file_addr);
320b9c1b51eSKate Stone     if (symbol) {
321b9c1b51eSKate Stone       if (symbol->ValueIsAddress()) {
322358cf1eaSGreg Clayton         const SectionSP section_sp(symbol->GetAddressRef().GetSection());
323b9c1b51eSKate Stone         if (section_sp) {
324e72dfb32SGreg Clayton           const SectionType section_type = section_sp->GetType();
325b9c1b51eSKate Stone           switch (section_type) {
326324a1036SSaleem Abdulrasool           case eSectionTypeInvalid:
327324a1036SSaleem Abdulrasool             return eAddressClassUnknown;
328324a1036SSaleem Abdulrasool           case eSectionTypeCode:
329324a1036SSaleem Abdulrasool             return eAddressClassCode;
330324a1036SSaleem Abdulrasool           case eSectionTypeContainer:
331324a1036SSaleem Abdulrasool             return eAddressClassUnknown;
3325009f9d5SGreg Clayton           case eSectionTypeData:
3335009f9d5SGreg Clayton           case eSectionTypeDataCString:
3345009f9d5SGreg Clayton           case eSectionTypeDataCStringPointers:
3355009f9d5SGreg Clayton           case eSectionTypeDataSymbolAddress:
3365009f9d5SGreg Clayton           case eSectionTypeData4:
3375009f9d5SGreg Clayton           case eSectionTypeData8:
3385009f9d5SGreg Clayton           case eSectionTypeData16:
3395009f9d5SGreg Clayton           case eSectionTypeDataPointers:
3405009f9d5SGreg Clayton           case eSectionTypeZeroFill:
3415009f9d5SGreg Clayton           case eSectionTypeDataObjCMessageRefs:
3425009f9d5SGreg Clayton           case eSectionTypeDataObjCCFStrings:
34365d4d5c3SRyan Brown           case eSectionTypeGoSymtab:
3445009f9d5SGreg Clayton             return eAddressClassData;
3455009f9d5SGreg Clayton           case eSectionTypeDebug:
3465009f9d5SGreg Clayton           case eSectionTypeDWARFDebugAbbrev:
347c178d4c0STamas Berghammer           case eSectionTypeDWARFDebugAddr:
3485009f9d5SGreg Clayton           case eSectionTypeDWARFDebugAranges:
349963ce483STamas Berghammer           case eSectionTypeDWARFDebugCuIndex:
3505009f9d5SGreg Clayton           case eSectionTypeDWARFDebugFrame:
3515009f9d5SGreg Clayton           case eSectionTypeDWARFDebugInfo:
3525009f9d5SGreg Clayton           case eSectionTypeDWARFDebugLine:
3535009f9d5SGreg Clayton           case eSectionTypeDWARFDebugLoc:
3545009f9d5SGreg Clayton           case eSectionTypeDWARFDebugMacInfo:
355d8335e9aSSiva Chandra           case eSectionTypeDWARFDebugMacro:
356a041d848SPavel Labath           case eSectionTypeDWARFDebugNames:
3575009f9d5SGreg Clayton           case eSectionTypeDWARFDebugPubNames:
3585009f9d5SGreg Clayton           case eSectionTypeDWARFDebugPubTypes:
3595009f9d5SGreg Clayton           case eSectionTypeDWARFDebugRanges:
3605009f9d5SGreg Clayton           case eSectionTypeDWARFDebugStr:
361c178d4c0STamas Berghammer           case eSectionTypeDWARFDebugStrOffsets:
3622550ca1eSGreg Clayton           case eSectionTypeDWARFDebugTypes:
3635009f9d5SGreg Clayton           case eSectionTypeDWARFAppleNames:
3645009f9d5SGreg Clayton           case eSectionTypeDWARFAppleTypes:
3655009f9d5SGreg Clayton           case eSectionTypeDWARFAppleNamespaces:
3665009f9d5SGreg Clayton           case eSectionTypeDWARFAppleObjC:
367e4777a9dSJan Kratochvil           case eSectionTypeDWARFGNUDebugAltLink:
3685009f9d5SGreg Clayton             return eAddressClassDebug;
369324a1036SSaleem Abdulrasool           case eSectionTypeEHFrame:
370648f3c7eSTamas Berghammer           case eSectionTypeARMexidx:
371648f3c7eSTamas Berghammer           case eSectionTypeARMextab:
372e589e7e3SJason Molenda           case eSectionTypeCompactUnwind:
373324a1036SSaleem Abdulrasool             return eAddressClassRuntime;
374a7499c98SMichael Sartain           case eSectionTypeELFSymbolTable:
375a7499c98SMichael Sartain           case eSectionTypeELFDynamicSymbols:
376a7499c98SMichael Sartain           case eSectionTypeELFRelocationEntries:
377a7499c98SMichael Sartain           case eSectionTypeELFDynamicLinkInfo:
378324a1036SSaleem Abdulrasool           case eSectionTypeOther:
379324a1036SSaleem Abdulrasool             return eAddressClassUnknown;
38031d315b3STamas Berghammer           case eSectionTypeAbsoluteAddress:
381b9c1b51eSKate Stone             // In case of absolute sections decide the address class based on
38205097246SAdrian Prantl             // the symbol type because the section type isn't specify if it is
38305097246SAdrian Prantl             // a code or a data section.
38431d315b3STamas Berghammer             break;
385ded470d3SGreg Clayton           }
386ded470d3SGreg Clayton         }
387ded470d3SGreg Clayton       }
388ded470d3SGreg Clayton 
389e0d378b3SGreg Clayton       const SymbolType symbol_type = symbol->GetType();
390b9c1b51eSKate Stone       switch (symbol_type) {
391b9c1b51eSKate Stone       case eSymbolTypeAny:
392b9c1b51eSKate Stone         return eAddressClassUnknown;
393b9c1b51eSKate Stone       case eSymbolTypeAbsolute:
394b9c1b51eSKate Stone         return eAddressClassUnknown;
395b9c1b51eSKate Stone       case eSymbolTypeCode:
396b9c1b51eSKate Stone         return eAddressClassCode;
397b9c1b51eSKate Stone       case eSymbolTypeTrampoline:
398b9c1b51eSKate Stone         return eAddressClassCode;
399b9c1b51eSKate Stone       case eSymbolTypeResolver:
400b9c1b51eSKate Stone         return eAddressClassCode;
401b9c1b51eSKate Stone       case eSymbolTypeData:
402b9c1b51eSKate Stone         return eAddressClassData;
403b9c1b51eSKate Stone       case eSymbolTypeRuntime:
404b9c1b51eSKate Stone         return eAddressClassRuntime;
405b9c1b51eSKate Stone       case eSymbolTypeException:
406b9c1b51eSKate Stone         return eAddressClassRuntime;
407b9c1b51eSKate Stone       case eSymbolTypeSourceFile:
408b9c1b51eSKate Stone         return eAddressClassDebug;
409b9c1b51eSKate Stone       case eSymbolTypeHeaderFile:
410b9c1b51eSKate Stone         return eAddressClassDebug;
411b9c1b51eSKate Stone       case eSymbolTypeObjectFile:
412b9c1b51eSKate Stone         return eAddressClassDebug;
413b9c1b51eSKate Stone       case eSymbolTypeCommonBlock:
414b9c1b51eSKate Stone         return eAddressClassDebug;
415b9c1b51eSKate Stone       case eSymbolTypeBlock:
416b9c1b51eSKate Stone         return eAddressClassDebug;
417b9c1b51eSKate Stone       case eSymbolTypeLocal:
418b9c1b51eSKate Stone         return eAddressClassData;
419b9c1b51eSKate Stone       case eSymbolTypeParam:
420b9c1b51eSKate Stone         return eAddressClassData;
421b9c1b51eSKate Stone       case eSymbolTypeVariable:
422b9c1b51eSKate Stone         return eAddressClassData;
423b9c1b51eSKate Stone       case eSymbolTypeVariableType:
424b9c1b51eSKate Stone         return eAddressClassDebug;
425b9c1b51eSKate Stone       case eSymbolTypeLineEntry:
426b9c1b51eSKate Stone         return eAddressClassDebug;
427b9c1b51eSKate Stone       case eSymbolTypeLineHeader:
428b9c1b51eSKate Stone         return eAddressClassDebug;
429b9c1b51eSKate Stone       case eSymbolTypeScopeBegin:
430b9c1b51eSKate Stone         return eAddressClassDebug;
431b9c1b51eSKate Stone       case eSymbolTypeScopeEnd:
432b9c1b51eSKate Stone         return eAddressClassDebug;
433b9c1b51eSKate Stone       case eSymbolTypeAdditional:
434b9c1b51eSKate Stone         return eAddressClassUnknown;
435b9c1b51eSKate Stone       case eSymbolTypeCompiler:
436b9c1b51eSKate Stone         return eAddressClassDebug;
437b9c1b51eSKate Stone       case eSymbolTypeInstrumentation:
438b9c1b51eSKate Stone         return eAddressClassDebug;
439b9c1b51eSKate Stone       case eSymbolTypeUndefined:
440b9c1b51eSKate Stone         return eAddressClassUnknown;
441b9c1b51eSKate Stone       case eSymbolTypeObjCClass:
442b9c1b51eSKate Stone         return eAddressClassRuntime;
443b9c1b51eSKate Stone       case eSymbolTypeObjCMetaClass:
444b9c1b51eSKate Stone         return eAddressClassRuntime;
445b9c1b51eSKate Stone       case eSymbolTypeObjCIVar:
446b9c1b51eSKate Stone         return eAddressClassRuntime;
447b9c1b51eSKate Stone       case eSymbolTypeReExported:
448b9c1b51eSKate Stone         return eAddressClassRuntime;
449ded470d3SGreg Clayton       }
450ded470d3SGreg Clayton     }
451ded470d3SGreg Clayton   }
452ded470d3SGreg Clayton   return eAddressClassUnknown;
453ded470d3SGreg Clayton }
454ded470d3SGreg Clayton 
455b9c1b51eSKate Stone DataBufferSP ObjectFile::ReadMemory(const ProcessSP &process_sp,
456b9c1b51eSKate Stone                                     lldb::addr_t addr, size_t byte_size) {
457c9660546SGreg Clayton   DataBufferSP data_sp;
458b9c1b51eSKate Stone   if (process_sp) {
4597b0992d9SGreg Clayton     std::unique_ptr<DataBufferHeap> data_ap(new DataBufferHeap(byte_size, 0));
46097206d57SZachary Turner     Status error;
461b9c1b51eSKate Stone     const size_t bytes_read = process_sp->ReadMemory(
462b9c1b51eSKate Stone         addr, data_ap->GetBytes(), data_ap->GetByteSize(), error);
463c9660546SGreg Clayton     if (bytes_read == byte_size)
464c9660546SGreg Clayton       data_sp.reset(data_ap.release());
465c9660546SGreg Clayton   }
466c9660546SGreg Clayton   return data_sp;
467c9660546SGreg Clayton }
468c9660546SGreg Clayton 
469b9c1b51eSKate Stone size_t ObjectFile::GetData(lldb::offset_t offset, size_t length,
470b9c1b51eSKate Stone                            DataExtractor &data) const {
471b9c1b51eSKate Stone   // The entire file has already been mmap'ed into m_data, so just copy from
47205097246SAdrian Prantl   // there as the back mmap buffer will be shared with shared pointers.
47344435ed0SGreg Clayton   return data.SetData(m_data, offset, length);
47444435ed0SGreg Clayton }
47544435ed0SGreg Clayton 
476b9c1b51eSKate Stone size_t ObjectFile::CopyData(lldb::offset_t offset, size_t length,
477b9c1b51eSKate Stone                             void *dst) const {
478b9c1b51eSKate Stone   // The entire file has already been mmap'ed into m_data, so just copy from
47905097246SAdrian Prantl   // there Note that the data remains in target byte order.
480b0e33d41SEd Maste   return m_data.CopyData(offset, length, dst);
48144435ed0SGreg Clayton }
482ded470d3SGreg Clayton 
483d13f691fSEd Maste size_t ObjectFile::ReadSectionData(Section *section,
484b9c1b51eSKate Stone                                    lldb::offset_t section_offset, void *dst,
485d13f691fSEd Maste                                    size_t dst_len) {
486f03e6d84SMatthew Gardiner   assert(section);
487f03e6d84SMatthew Gardiner   section_offset *= section->GetTargetByteSize();
488f03e6d84SMatthew Gardiner 
489a7499c98SMichael Sartain   // If some other objectfile owns this data, pass this to them.
490a7499c98SMichael Sartain   if (section->GetObjectFile() != this)
491b9c1b51eSKate Stone     return section->GetObjectFile()->ReadSectionData(section, section_offset,
492b9c1b51eSKate Stone                                                      dst, dst_len);
493a7499c98SMichael Sartain 
494b9c1b51eSKate Stone   if (IsInMemory()) {
495c9660546SGreg Clayton     ProcessSP process_sp(m_process_wp.lock());
496b9c1b51eSKate Stone     if (process_sp) {
49797206d57SZachary Turner       Status error;
498b9c1b51eSKate Stone       const addr_t base_load_addr =
499b9c1b51eSKate Stone           section->GetLoadBaseAddress(&process_sp->GetTarget());
50039f7ee86SGreg Clayton       if (base_load_addr != LLDB_INVALID_ADDRESS)
501b9c1b51eSKate Stone         return process_sp->ReadMemory(base_load_addr + section_offset, dst,
502b9c1b51eSKate Stone                                       dst_len, error);
503c9660546SGreg Clayton     }
504b9c1b51eSKate Stone   } else {
505d13f691fSEd Maste     if (!section->IsRelocated())
506d13f691fSEd Maste       RelocateSection(section);
507d13f691fSEd Maste 
508a746e8e5SZachary Turner     const lldb::offset_t section_file_size = section->GetFileSize();
509b9c1b51eSKate Stone     if (section_offset < section_file_size) {
510a746e8e5SZachary Turner       const size_t section_bytes_left = section_file_size - section_offset;
511a746e8e5SZachary Turner       size_t section_dst_len = dst_len;
512ee212e2cSGreg Clayton       if (section_dst_len > section_bytes_left)
513ee212e2cSGreg Clayton         section_dst_len = section_bytes_left;
514b9c1b51eSKate Stone       return CopyData(section->GetFileOffset() + section_offset,
515b9c1b51eSKate Stone                       section_dst_len, dst);
516b9c1b51eSKate Stone     } else {
517b9c1b51eSKate Stone       if (section->GetType() == eSectionTypeZeroFill) {
518ecda2b2dSSean Callanan         const uint64_t section_size = section->GetByteSize();
519ecda2b2dSSean Callanan         const uint64_t section_bytes_left = section_size - section_offset;
520ecda2b2dSSean Callanan         uint64_t section_dst_len = dst_len;
521ecda2b2dSSean Callanan         if (section_dst_len > section_bytes_left)
522ecda2b2dSSean Callanan           section_dst_len = section_bytes_left;
523b2f1fb29SVirgile Bello         memset(dst, 0, section_dst_len);
524ecda2b2dSSean Callanan         return section_dst_len;
525ecda2b2dSSean Callanan       }
526ecda2b2dSSean Callanan     }
527c9660546SGreg Clayton   }
528c9660546SGreg Clayton   return 0;
529c9660546SGreg Clayton }
530c9660546SGreg Clayton 
531c9660546SGreg Clayton //----------------------------------------------------------------------
532c9660546SGreg Clayton // Get the section data the file on disk
533c9660546SGreg Clayton //----------------------------------------------------------------------
534d13f691fSEd Maste size_t ObjectFile::ReadSectionData(Section *section,
535d13f691fSEd Maste                                    DataExtractor &section_data) {
536a7499c98SMichael Sartain   // If some other objectfile owns this data, pass this to them.
537a7499c98SMichael Sartain   if (section->GetObjectFile() != this)
538a7499c98SMichael Sartain     return section->GetObjectFile()->ReadSectionData(section, section_data);
539a7499c98SMichael Sartain 
540b9c1b51eSKate Stone   if (IsInMemory()) {
541c9660546SGreg Clayton     ProcessSP process_sp(m_process_wp.lock());
542b9c1b51eSKate Stone     if (process_sp) {
543b9c1b51eSKate Stone       const addr_t base_load_addr =
544b9c1b51eSKate Stone           section->GetLoadBaseAddress(&process_sp->GetTarget());
545b9c1b51eSKate Stone       if (base_load_addr != LLDB_INVALID_ADDRESS) {
546b9c1b51eSKate Stone         DataBufferSP data_sp(
547b9c1b51eSKate Stone             ReadMemory(process_sp, base_load_addr, section->GetByteSize()));
548b9c1b51eSKate Stone         if (data_sp) {
549c9660546SGreg Clayton           section_data.SetData(data_sp, 0, data_sp->GetByteSize());
550c9660546SGreg Clayton           section_data.SetByteOrder(process_sp->GetByteOrder());
551c9660546SGreg Clayton           section_data.SetAddressByteSize(process_sp->GetAddressByteSize());
552c9660546SGreg Clayton           return section_data.GetByteSize();
553c9660546SGreg Clayton         }
554c9660546SGreg Clayton       }
555c9660546SGreg Clayton     }
556b9c1b51eSKate Stone     return GetData(section->GetFileOffset(), section->GetFileSize(),
557b9c1b51eSKate Stone                    section_data);
558b9c1b51eSKate Stone   } else {
55905097246SAdrian Prantl     // The object file now contains a full mmap'ed copy of the object file
56005097246SAdrian Prantl     // data, so just use this
561d13f691fSEd Maste     if (!section->IsRelocated())
562d13f691fSEd Maste       RelocateSection(section);
563d13f691fSEd Maste 
564b9c1b51eSKate Stone     return GetData(section->GetFileOffset(), section->GetFileSize(),
565b9c1b51eSKate Stone                    section_data);
566c9660546SGreg Clayton   }
567c9660546SGreg Clayton }
568c9660546SGreg Clayton 
569b9c1b51eSKate Stone bool ObjectFile::SplitArchivePathWithObject(const char *path_with_object,
570b9c1b51eSKate Stone                                             FileSpec &archive_file,
571b9c1b51eSKate Stone                                             ConstString &archive_object,
572b9c1b51eSKate Stone                                             bool must_exist) {
57395eae423SZachary Turner   RegularExpression g_object_regex(llvm::StringRef("(.*)\\(([^\\)]+)\\)$"));
574bc43cab5SGreg Clayton   RegularExpression::Match regex_match(2);
57595eae423SZachary Turner   if (g_object_regex.Execute(llvm::StringRef::withNullAsEmpty(path_with_object),
57695eae423SZachary Turner                              &regex_match)) {
5771f746071SGreg Clayton     std::string path;
5781f746071SGreg Clayton     std::string obj;
579bc43cab5SGreg Clayton     if (regex_match.GetMatchAtIndex(path_with_object, 1, path) &&
580b9c1b51eSKate Stone         regex_match.GetMatchAtIndex(path_with_object, 2, obj)) {
581*937348cdSJonas Devlieghere       archive_file.SetFile(path, false, FileSpec::Style::native);
5821f746071SGreg Clayton       archive_object.SetCString(obj.c_str());
583906ba471SGreg Clayton       if (must_exist && !archive_file.Exists())
584906ba471SGreg Clayton         return false;
5851f746071SGreg Clayton       return true;
5861f746071SGreg Clayton     }
5871f746071SGreg Clayton   }
5881f746071SGreg Clayton   return false;
5891f746071SGreg Clayton }
5901f746071SGreg Clayton 
591b9c1b51eSKate Stone void ObjectFile::ClearSymtab() {
5929422dd64SGreg Clayton   ModuleSP module_sp(GetModule());
593b9c1b51eSKate Stone   if (module_sp) {
59416ff8604SSaleem Abdulrasool     std::lock_guard<std::recursive_mutex> guard(module_sp->GetMutex());
5955160ce5cSGreg Clayton     Log *log(lldb_private::GetLogIfAllCategoriesSet(LIBLLDB_LOG_OBJECT));
5969422dd64SGreg Clayton     if (log)
5973046e668SGreg Clayton       log->Printf("%p ObjectFile::ClearSymtab () symtab = %p",
598324a1036SSaleem Abdulrasool                   static_cast<void *>(this),
599324a1036SSaleem Abdulrasool                   static_cast<void *>(m_symtab_ap.get()));
6009422dd64SGreg Clayton     m_symtab_ap.reset();
6019422dd64SGreg Clayton   }
6029422dd64SGreg Clayton }
6033046e668SGreg Clayton 
604b9c1b51eSKate Stone SectionList *ObjectFile::GetSectionList(bool update_module_section_list) {
605b9c1b51eSKate Stone   if (m_sections_ap.get() == nullptr) {
606b9c1b51eSKate Stone     if (update_module_section_list) {
6073046e668SGreg Clayton       ModuleSP module_sp(GetModule());
608b9c1b51eSKate Stone       if (module_sp) {
60916ff8604SSaleem Abdulrasool         std::lock_guard<std::recursive_mutex> guard(module_sp->GetMutex());
6103046e668SGreg Clayton         CreateSections(*module_sp->GetUnifiedSectionList());
6113046e668SGreg Clayton       }
612b9c1b51eSKate Stone     } else {
613eb882fc1STamas Berghammer       SectionList unified_section_list;
614eb882fc1STamas Berghammer       CreateSections(unified_section_list);
615eb882fc1STamas Berghammer     }
616eb882fc1STamas Berghammer   }
6173046e668SGreg Clayton   return m_sections_ap.get();
618a7499c98SMichael Sartain }
619649a607eSJason Molenda 
620649a607eSJason Molenda lldb::SymbolType
621649a607eSJason Molenda ObjectFile::GetSymbolTypeFromName(llvm::StringRef name,
622b9c1b51eSKate Stone                                   lldb::SymbolType symbol_type_hint) {
623b9c1b51eSKate Stone   if (!name.empty()) {
624b9c1b51eSKate Stone     if (name.startswith("_OBJC_")) {
625649a607eSJason Molenda       // ObjC
626649a607eSJason Molenda       if (name.startswith("_OBJC_CLASS_$_"))
627649a607eSJason Molenda         return lldb::eSymbolTypeObjCClass;
628649a607eSJason Molenda       if (name.startswith("_OBJC_METACLASS_$_"))
629649a607eSJason Molenda         return lldb::eSymbolTypeObjCMetaClass;
630649a607eSJason Molenda       if (name.startswith("_OBJC_IVAR_$_"))
631649a607eSJason Molenda         return lldb::eSymbolTypeObjCIVar;
632b9c1b51eSKate Stone     } else if (name.startswith(".objc_class_name_")) {
633649a607eSJason Molenda       // ObjC v1
634649a607eSJason Molenda       return lldb::eSymbolTypeObjCClass;
635649a607eSJason Molenda     }
636649a607eSJason Molenda   }
637649a607eSJason Molenda   return symbol_type_hint;
638649a607eSJason Molenda }
6396b63b148STamas Berghammer 
640b9c1b51eSKate Stone ConstString ObjectFile::GetNextSyntheticSymbolName() {
6416b63b148STamas Berghammer   StreamString ss;
6426b63b148STamas Berghammer   ConstString file_name = GetModule()->GetFileSpec().GetFilename();
643b9c1b51eSKate Stone   ss.Printf("___lldb_unnamed_symbol%u$$%s", ++m_synthetic_symbol_idx,
644b9c1b51eSKate Stone             file_name.GetCString());
645c156427dSZachary Turner   return ConstString(ss.GetString());
6466b63b148STamas Berghammer }
6474687db0eSHafiz Abid Qadeer 
64816064d35SPavel Labath std::vector<ObjectFile::LoadableData>
64916064d35SPavel Labath ObjectFile::GetLoadableData(Target &target) {
65016064d35SPavel Labath   std::vector<LoadableData> loadables;
6514687db0eSHafiz Abid Qadeer   SectionList *section_list = GetSectionList();
6524687db0eSHafiz Abid Qadeer   if (!section_list)
65316064d35SPavel Labath     return loadables;
65416064d35SPavel Labath   // Create a list of loadable data from loadable sections
6554687db0eSHafiz Abid Qadeer   size_t section_count = section_list->GetNumSections(0);
6564687db0eSHafiz Abid Qadeer   for (size_t i = 0; i < section_count; ++i) {
65716064d35SPavel Labath     LoadableData loadable;
6584687db0eSHafiz Abid Qadeer     SectionSP section_sp = section_list->GetSectionAtIndex(i);
65916064d35SPavel Labath     loadable.Dest =
66016064d35SPavel Labath         target.GetSectionLoadList().GetSectionLoadAddress(section_sp);
66116064d35SPavel Labath     if (loadable.Dest == LLDB_INVALID_ADDRESS)
66216064d35SPavel Labath       continue;
6634687db0eSHafiz Abid Qadeer     // We can skip sections like bss
6644687db0eSHafiz Abid Qadeer     if (section_sp->GetFileSize() == 0)
6654687db0eSHafiz Abid Qadeer       continue;
66616064d35SPavel Labath     DataExtractor section_data;
6674687db0eSHafiz Abid Qadeer     section_sp->GetSectionData(section_data);
66816064d35SPavel Labath     loadable.Contents = llvm::ArrayRef<uint8_t>(section_data.GetDataStart(),
66916064d35SPavel Labath                                                 section_data.GetByteSize());
67016064d35SPavel Labath     loadables.push_back(loadable);
671ec03d7e3SPavel Labath   }
67216064d35SPavel Labath   return loadables;
6734687db0eSHafiz Abid Qadeer }
674d13f691fSEd Maste 
675d13f691fSEd Maste void ObjectFile::RelocateSection(lldb_private::Section *section)
676d13f691fSEd Maste {
677d13f691fSEd Maste }
67850251fc7SPavel Labath 
67950251fc7SPavel Labath DataBufferSP ObjectFile::MapFileData(const FileSpec &file, uint64_t Size,
68050251fc7SPavel Labath                                      uint64_t Offset) {
68150251fc7SPavel Labath   return DataBufferLLVM::CreateSliceFromPath(file.GetPath(), Size, Offset);
68250251fc7SPavel Labath }
683