//===-- ClangExpressionDeclMap.cpp -----------------------------*- C++ -*-===// // // The LLVM Compiler Infrastructure // // This file is distributed under the University of Illinois Open Source // License. See LICENSE.TXT for details. // //===----------------------------------------------------------------------===// #include "lldb/Expression/ClangExpressionDeclMap.h" // C Includes // C++ Includes // Other libraries and framework includes // Project includes #include "clang/AST/DeclarationName.h" #include "clang/AST/Decl.h" #include "lldb/lldb-private.h" #include "lldb/Core/Address.h" #include "lldb/Core/Error.h" #include "lldb/Core/Log.h" #include "lldb/Core/Module.h" #include "lldb/Core/ValueObjectConstResult.h" #include "lldb/Expression/ASTDumper.h" #include "lldb/Expression/ClangASTSource.h" #include "lldb/Expression/ClangPersistentVariables.h" #include "lldb/Host/Endian.h" #include "lldb/Symbol/ClangASTContext.h" #include "lldb/Symbol/ClangNamespaceDecl.h" #include "lldb/Symbol/CompileUnit.h" #include "lldb/Symbol/Function.h" #include "lldb/Symbol/ObjectFile.h" #include "lldb/Symbol/SymbolContext.h" #include "lldb/Symbol/Type.h" #include "lldb/Symbol/TypeList.h" #include "lldb/Symbol/Variable.h" #include "lldb/Symbol/VariableList.h" #include "lldb/Target/ExecutionContext.h" #include "lldb/Target/Process.h" #include "lldb/Target/RegisterContext.h" #include "lldb/Target/StackFrame.h" #include "lldb/Target/Target.h" #include "lldb/Target/Thread.h" #include "llvm/Support/raw_ostream.h" using namespace lldb; using namespace lldb_private; using namespace clang; ClangExpressionDeclMap::ClangExpressionDeclMap (bool keep_result_in_memory) : m_found_entities (), m_struct_members (), m_parser_vars (), m_struct_vars (), m_keep_result_in_memory (keep_result_in_memory) { EnableStructVars(); } ClangExpressionDeclMap::~ClangExpressionDeclMap() { DidDematerialize(); DisableStructVars(); } void ClangExpressionDeclMap::WillParse(ExecutionContext &exe_ctx) { EnableParserVars(); m_parser_vars->m_exe_ctx = &exe_ctx; if (exe_ctx.frame) m_parser_vars->m_sym_ctx = exe_ctx.frame->GetSymbolContext(lldb::eSymbolContextEverything); else if (exe_ctx.thread) m_parser_vars->m_sym_ctx = exe_ctx.thread->GetStackFrameAtIndex(0)->GetSymbolContext(lldb::eSymbolContextEverything); if (exe_ctx.target) m_parser_vars->m_persistent_vars = &exe_ctx.target->GetPersistentVariables(); } void ClangExpressionDeclMap::DidParse() { if (m_parser_vars.get()) { for (size_t entity_index = 0, num_entities = m_found_entities.GetSize(); entity_index < num_entities; ++entity_index) { ClangExpressionVariableSP var_sp(m_found_entities.GetVariableAtIndex(entity_index)); if (var_sp && var_sp->m_parser_vars.get() && var_sp->m_parser_vars->m_lldb_value) delete var_sp->m_parser_vars->m_lldb_value; var_sp->DisableParserVars(); } for (size_t pvar_index = 0, num_pvars = m_parser_vars->m_persistent_vars->GetSize(); pvar_index < num_pvars; ++pvar_index) { ClangExpressionVariableSP pvar_sp(m_parser_vars->m_persistent_vars->GetVariableAtIndex(pvar_index)); if (pvar_sp) pvar_sp->DisableParserVars(); } DisableParserVars(); } } // Interface for IRForTarget const ConstString & ClangExpressionDeclMap::GetPersistentResultName () { assert (m_struct_vars.get()); assert (m_parser_vars.get()); if (!m_struct_vars->m_result_name) { Target *target = m_parser_vars->GetTarget(); assert (target); m_struct_vars->m_result_name = target->GetPersistentVariables().GetNextPersistentVariableName(); } return m_struct_vars->m_result_name; } lldb::ClangExpressionVariableSP ClangExpressionDeclMap::BuildIntegerVariable (const ConstString &name, lldb_private::TypeFromParser type, const llvm::APInt& value) { assert (m_parser_vars.get()); clang::ASTContext *context(m_parser_vars->m_exe_ctx->target->GetScratchClangASTContext()->getASTContext()); TypeFromUser user_type(ClangASTContext::CopyType(context, type.GetASTContext(), type.GetOpaqueQualType()), context); if (!m_parser_vars->m_persistent_vars->CreatePersistentVariable (name, user_type, m_parser_vars->m_exe_ctx->process->GetByteOrder(), m_parser_vars->m_exe_ctx->process->GetAddressByteSize())) return lldb::ClangExpressionVariableSP(); ClangExpressionVariableSP pvar_sp (m_parser_vars->m_persistent_vars->GetVariable(name)); if (!pvar_sp) return lldb::ClangExpressionVariableSP(); uint8_t *pvar_data = pvar_sp->GetValueBytes(); if (pvar_data == NULL) return lldb::ClangExpressionVariableSP(); uint64_t value64 = value.getLimitedValue(); ByteOrder byte_order = m_parser_vars->m_exe_ctx->process->GetByteOrder(); size_t num_val_bytes = sizeof(value64); size_t num_data_bytes = pvar_sp->GetByteSize(); size_t num_bytes = num_val_bytes; if (num_bytes > num_data_bytes) num_bytes = num_data_bytes; for (off_t byte_idx = 0; byte_idx < num_bytes; ++byte_idx) { uint64_t shift = byte_idx * 8; uint64_t mask = 0xffll << shift; uint8_t cur_byte = (uint8_t)((value64 & mask) >> shift); switch (byte_order) { case eByteOrderBig: // High Low // Original: |AABBCCDDEEFFGGHH| // Target: |EEFFGGHH| pvar_data[num_data_bytes - (1 + byte_idx)] = cur_byte; break; case eByteOrderLittle: // Target: |HHGGFFEE| pvar_data[byte_idx] = cur_byte; break; default: return lldb::ClangExpressionVariableSP(); } } pvar_sp->m_flags |= ClangExpressionVariable::EVIsFreezeDried; return pvar_sp; } bool ClangExpressionDeclMap::AddPersistentVariable ( const clang::NamedDecl *decl, const ConstString &name, TypeFromParser parser_type, bool is_result, bool is_lvalue ) { assert (m_parser_vars.get()); lldb::LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_EXPRESSIONS)); clang::ASTContext *context(m_parser_vars->m_exe_ctx->target->GetScratchClangASTContext()->getASTContext()); TypeFromUser user_type(ClangASTContext::CopyType(context, parser_type.GetASTContext(), parser_type.GetOpaqueQualType()), context); if (!m_parser_vars->m_persistent_vars->CreatePersistentVariable (name, user_type, m_parser_vars->m_exe_ctx->process->GetByteOrder(), m_parser_vars->m_exe_ctx->process->GetAddressByteSize())) return false; ClangExpressionVariableSP var_sp (m_parser_vars->m_persistent_vars->GetVariable(name)); if (!var_sp) return false; if (is_result) var_sp->m_flags |= ClangExpressionVariable::EVNeedsFreezeDry; else var_sp->m_flags |= ClangExpressionVariable::EVKeepInTarget; // explicitly-declared persistent variables should persist if (is_lvalue) { var_sp->m_flags |= ClangExpressionVariable::EVIsProgramReference; } else { var_sp->m_flags |= ClangExpressionVariable::EVIsLLDBAllocated; var_sp->m_flags |= ClangExpressionVariable::EVNeedsAllocation; } if (log) log->Printf("Created persistent variable with flags 0x%hx", var_sp->m_flags); var_sp->EnableParserVars(); var_sp->m_parser_vars->m_named_decl = decl; var_sp->m_parser_vars->m_parser_type = parser_type; return true; } bool ClangExpressionDeclMap::AddValueToStruct ( const clang::NamedDecl *decl, const ConstString &name, llvm::Value *value, size_t size, off_t alignment ) { assert (m_struct_vars.get()); assert (m_parser_vars.get()); lldb::LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_EXPRESSIONS)); m_struct_vars->m_struct_laid_out = false; if (m_struct_members.GetVariable(decl)) return true; ClangExpressionVariableSP var_sp (m_found_entities.GetVariable(decl)); if (!var_sp) var_sp = m_parser_vars->m_persistent_vars->GetVariable(decl); if (!var_sp) return false; if (log) log->Printf("Adding value for decl %p [%s - %s] to the structure", decl, name.GetCString(), var_sp->GetName().GetCString()); // We know entity->m_parser_vars is valid because we used a parser variable // to find it var_sp->m_parser_vars->m_llvm_value = value; var_sp->EnableJITVars(); var_sp->m_jit_vars->m_alignment = alignment; var_sp->m_jit_vars->m_size = size; m_struct_members.AddVariable(var_sp); return true; } bool ClangExpressionDeclMap::DoStructLayout () { assert (m_struct_vars.get()); if (m_struct_vars->m_struct_laid_out) return true; off_t cursor = 0; m_struct_vars->m_struct_alignment = 0; m_struct_vars->m_struct_size = 0; for (size_t member_index = 0, num_members = m_struct_members.GetSize(); member_index < num_members; ++member_index) { ClangExpressionVariableSP member_sp(m_struct_members.GetVariableAtIndex(member_index)); if (!member_sp) return false; if (!member_sp->m_jit_vars.get()) return false; if (member_index == 0) m_struct_vars->m_struct_alignment = member_sp->m_jit_vars->m_alignment; if (cursor % member_sp->m_jit_vars->m_alignment) cursor += (member_sp->m_jit_vars->m_alignment - (cursor % member_sp->m_jit_vars->m_alignment)); member_sp->m_jit_vars->m_offset = cursor; cursor += member_sp->m_jit_vars->m_size; } m_struct_vars->m_struct_size = cursor; m_struct_vars->m_struct_laid_out = true; return true; } bool ClangExpressionDeclMap::GetStructInfo ( uint32_t &num_elements, size_t &size, off_t &alignment ) { assert (m_struct_vars.get()); if (!m_struct_vars->m_struct_laid_out) return false; num_elements = m_struct_members.GetSize(); size = m_struct_vars->m_struct_size; alignment = m_struct_vars->m_struct_alignment; return true; } bool ClangExpressionDeclMap::GetStructElement ( const clang::NamedDecl *&decl, llvm::Value *&value, off_t &offset, ConstString &name, uint32_t index ) { assert (m_struct_vars.get()); if (!m_struct_vars->m_struct_laid_out) return false; if (index >= m_struct_members.GetSize()) return false; ClangExpressionVariableSP member_sp(m_struct_members.GetVariableAtIndex(index)); if (!member_sp || !member_sp->m_parser_vars.get() || !member_sp->m_jit_vars.get()) return false; decl = member_sp->m_parser_vars->m_named_decl; value = member_sp->m_parser_vars->m_llvm_value; offset = member_sp->m_jit_vars->m_offset; name = member_sp->GetName(); return true; } bool ClangExpressionDeclMap::GetFunctionInfo ( const clang::NamedDecl *decl, llvm::Value**& value, uint64_t &ptr ) { ClangExpressionVariableSP entity_sp(m_found_entities.GetVariable(decl)); if (!entity_sp) return false; // We know m_parser_vars is valid since we searched for the variable by // its NamedDecl value = &entity_sp->m_parser_vars->m_llvm_value; ptr = entity_sp->m_parser_vars->m_lldb_value->GetScalar().ULongLong(); return true; } bool ClangExpressionDeclMap::GetFunctionAddress ( const ConstString &name, uint64_t &ptr ) { assert (m_parser_vars.get()); // Back out in all cases where we're not fully initialized if (m_parser_vars->m_exe_ctx->target == NULL) return false; if (!m_parser_vars->m_sym_ctx.target_sp) return false; SymbolContextList sc_list; const bool include_symbols = true; const bool append = false; m_parser_vars->m_sym_ctx.FindFunctionsByName(name, include_symbols, append, sc_list); if (!sc_list.GetSize()) return false; SymbolContext sym_ctx; sc_list.GetContextAtIndex(0, sym_ctx); const Address *fun_address; if (sym_ctx.function) fun_address = &sym_ctx.function->GetAddressRange().GetBaseAddress(); else if (sym_ctx.symbol) fun_address = &sym_ctx.symbol->GetAddressRangeRef().GetBaseAddress(); else return false; ptr = fun_address->GetLoadAddress (m_parser_vars->m_exe_ctx->target); return true; } bool ClangExpressionDeclMap::GetSymbolAddress ( const ConstString &name, uint64_t &ptr ) { assert (m_parser_vars.get()); // Back out in all cases where we're not fully initialized if (m_parser_vars->m_exe_ctx->target == NULL) return false; SymbolContextList sc_list; m_parser_vars->m_exe_ctx->target->GetImages().FindSymbolsWithNameAndType(name, lldb::eSymbolTypeAny, sc_list); if (!sc_list.GetSize()) return false; SymbolContext sym_ctx; sc_list.GetContextAtIndex(0, sym_ctx); const Address *sym_address = &sym_ctx.symbol->GetAddressRangeRef().GetBaseAddress(); ptr = sym_address->GetLoadAddress (m_parser_vars->m_exe_ctx->target); return true; } // Interface for CommandObjectExpression bool ClangExpressionDeclMap::Materialize ( ExecutionContext &exe_ctx, lldb::addr_t &struct_address, Error &err ) { EnableMaterialVars(); m_material_vars->m_process = exe_ctx.process; bool result = DoMaterialize(false /* dematerialize */, exe_ctx, NULL, err); if (result) struct_address = m_material_vars->m_materialized_location; return result; } bool ClangExpressionDeclMap::GetObjectPointer ( lldb::addr_t &object_ptr, ConstString &object_name, ExecutionContext &exe_ctx, Error &err, bool suppress_type_check ) { assert (m_struct_vars.get()); if (!exe_ctx.frame || !exe_ctx.target || !exe_ctx.process) { err.SetErrorString("Couldn't load 'this' because the context is incomplete"); return false; } if (!m_struct_vars->m_object_pointer_type.GetOpaqueQualType()) { err.SetErrorString("Couldn't load 'this' because its type is unknown"); return false; } Variable *object_ptr_var = FindVariableInScope (*exe_ctx.frame, object_name, (suppress_type_check ? NULL : &m_struct_vars->m_object_pointer_type)); if (!object_ptr_var) { err.SetErrorStringWithFormat("Couldn't find '%s' with appropriate type in scope", object_name.GetCString()); return false; } std::auto_ptr location_value(GetVariableValue(exe_ctx, object_ptr_var, NULL)); if (!location_value.get()) { err.SetErrorStringWithFormat("Couldn't get the location for '%s'", object_name.GetCString()); return false; } if (location_value->GetValueType() == Value::eValueTypeLoadAddress) { lldb::addr_t value_addr = location_value->GetScalar().ULongLong(); uint32_t address_byte_size = exe_ctx.target->GetArchitecture().GetAddressByteSize(); lldb::ByteOrder address_byte_order = exe_ctx.process->GetByteOrder(); if (ClangASTType::GetClangTypeBitWidth(m_struct_vars->m_object_pointer_type.GetASTContext(), m_struct_vars->m_object_pointer_type.GetOpaqueQualType()) != address_byte_size * 8) { err.SetErrorStringWithFormat("'%s' is not of an expected pointer size", object_name.GetCString()); return false; } DataBufferHeap data; data.SetByteSize(address_byte_size); Error read_error; if (exe_ctx.process->ReadMemory (value_addr, data.GetBytes(), address_byte_size, read_error) != address_byte_size) { err.SetErrorStringWithFormat("Coldn't read '%s' from the target: %s", object_name.GetCString(), read_error.AsCString()); return false; } DataExtractor extractor(data.GetBytes(), data.GetByteSize(), address_byte_order, address_byte_size); uint32_t offset = 0; object_ptr = extractor.GetPointer(&offset); return true; } else { err.SetErrorStringWithFormat("'%s' is not in memory; LLDB must be extended to handle registers", object_name.GetCString()); return false; } } bool ClangExpressionDeclMap::Dematerialize ( ExecutionContext &exe_ctx, ClangExpressionVariableSP &result_sp, Error &err ) { return DoMaterialize(true, exe_ctx, &result_sp, err); DidDematerialize(); } void ClangExpressionDeclMap::DidDematerialize() { if (m_material_vars.get()) { if (m_material_vars->m_materialized_location) { //#define SINGLE_STEP_EXPRESSIONS #ifndef SINGLE_STEP_EXPRESSIONS m_material_vars->m_process->DeallocateMemory(m_material_vars->m_materialized_location); #endif m_material_vars->m_materialized_location = 0; } DisableMaterialVars(); } } bool ClangExpressionDeclMap::DumpMaterializedStruct ( ExecutionContext &exe_ctx, Stream &s, Error &err ) { assert (m_struct_vars.get()); assert (m_material_vars.get()); if (!m_struct_vars->m_struct_laid_out) { err.SetErrorString("Structure hasn't been laid out yet"); return false; } if (!exe_ctx.process) { err.SetErrorString("Couldn't find the process"); return false; } if (!exe_ctx.target) { err.SetErrorString("Couldn't find the target"); return false; } if (!m_material_vars->m_materialized_location) { err.SetErrorString("No materialized location"); return false; } lldb::DataBufferSP data(new DataBufferHeap(m_struct_vars->m_struct_size, 0)); Error error; if (exe_ctx.process->ReadMemory (m_material_vars->m_materialized_location, data->GetBytes(), data->GetByteSize(), error) != data->GetByteSize()) { err.SetErrorStringWithFormat ("Couldn't read struct from the target: %s", error.AsCString()); return false; } DataExtractor extractor(data, exe_ctx.process->GetByteOrder(), exe_ctx.target->GetArchitecture().GetAddressByteSize()); for (size_t member_idx = 0, num_members = m_struct_members.GetSize(); member_idx < num_members; ++member_idx) { ClangExpressionVariableSP member_sp(m_struct_members.GetVariableAtIndex(member_idx)); if (!member_sp) return false; s.Printf("[%s]\n", member_sp->GetName().GetCString()); if (!member_sp->m_jit_vars.get()) return false; extractor.Dump (&s, // stream member_sp->m_jit_vars->m_offset, // offset lldb::eFormatBytesWithASCII, // format 1, // byte size of individual entries member_sp->m_jit_vars->m_size, // number of entries 16, // entries per line m_material_vars->m_materialized_location + member_sp->m_jit_vars->m_offset, // address to print 0, // bit size (bitfields only; 0 means ignore) 0); // bit alignment (bitfields only; 0 means ignore) s.PutChar('\n'); } return true; } bool ClangExpressionDeclMap::DoMaterialize ( bool dematerialize, ExecutionContext &exe_ctx, lldb::ClangExpressionVariableSP *result_sp_ptr, Error &err ) { if (result_sp_ptr) result_sp_ptr->reset(); assert (m_struct_vars.get()); lldb::LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_EXPRESSIONS)); if (!m_struct_vars->m_struct_laid_out) { err.SetErrorString("Structure hasn't been laid out yet"); return LLDB_INVALID_ADDRESS; } if (!exe_ctx.frame) { err.SetErrorString("Received null execution frame"); return LLDB_INVALID_ADDRESS; } ClangPersistentVariables &persistent_vars = exe_ctx.target->GetPersistentVariables(); if (!m_struct_vars->m_struct_size) { if (log) log->PutCString("Not bothering to allocate a struct because no arguments are needed"); m_material_vars->m_allocated_area = NULL; return true; } const SymbolContext &sym_ctx(exe_ctx.frame->GetSymbolContext(lldb::eSymbolContextEverything)); if (!dematerialize) { if (m_material_vars->m_materialized_location) { exe_ctx.process->DeallocateMemory(m_material_vars->m_materialized_location); m_material_vars->m_materialized_location = 0; } if (log) log->PutCString("Allocating memory for materialized argument struct"); lldb::addr_t mem = exe_ctx.process->AllocateMemory(m_struct_vars->m_struct_alignment + m_struct_vars->m_struct_size, lldb::ePermissionsReadable | lldb::ePermissionsWritable, err); if (mem == LLDB_INVALID_ADDRESS) return false; m_material_vars->m_allocated_area = mem; } m_material_vars->m_materialized_location = m_material_vars->m_allocated_area; if (m_material_vars->m_materialized_location % m_struct_vars->m_struct_alignment) m_material_vars->m_materialized_location += (m_struct_vars->m_struct_alignment - (m_material_vars->m_materialized_location % m_struct_vars->m_struct_alignment)); for (uint64_t member_index = 0, num_members = m_struct_members.GetSize(); member_index < num_members; ++member_index) { ClangExpressionVariableSP member_sp(m_struct_members.GetVariableAtIndex(member_index)); if (m_found_entities.ContainsVariable (member_sp)) { RegisterInfo *reg_info = member_sp->GetRegisterInfo (); if (reg_info) { // This is a register variable RegisterContext *reg_ctx = exe_ctx.GetRegisterContext(); if (!reg_ctx) return false; if (!DoMaterializeOneRegister (dematerialize, exe_ctx, *reg_ctx, *reg_info, m_material_vars->m_materialized_location + member_sp->m_jit_vars->m_offset, err)) return false; } else { if (!member_sp->m_jit_vars.get()) return false; if (!DoMaterializeOneVariable (dematerialize, exe_ctx, sym_ctx, member_sp, m_material_vars->m_materialized_location + member_sp->m_jit_vars->m_offset, err)) return false; } } else { // No need to look for presistent variables if the name doesn't start // with with a '$' character... if (member_sp->GetName().AsCString ("!")[0] == '$' && persistent_vars.ContainsVariable(member_sp)) { bool keep_this_in_memory = false; if (member_sp->GetName() == m_struct_vars->m_result_name) { if (log) log->PutCString("Found result member in the struct"); if (result_sp_ptr) *result_sp_ptr = member_sp; keep_this_in_memory = m_keep_result_in_memory; } if (!DoMaterializeOnePersistentVariable (dematerialize, exe_ctx, member_sp, m_material_vars->m_materialized_location + member_sp->m_jit_vars->m_offset, err)) return false; } else { err.SetErrorStringWithFormat("Unexpected variable %s", member_sp->GetName().GetCString()); return false; } } } return true; } static bool WriteAddressInto ( ExecutionContext &exe_ctx, lldb::addr_t target, lldb::addr_t address, Error &err ) { size_t pointer_byte_size = exe_ctx.process->GetAddressByteSize(); StreamString str (0 | Stream::eBinary, pointer_byte_size, exe_ctx.process->GetByteOrder()); switch (pointer_byte_size) { default: assert(!"Unhandled byte size"); case 4: { uint32_t address32 = address & 0xffffffffll; str.PutRawBytes(&address32, sizeof(address32), endian::InlHostByteOrder(), eByteOrderInvalid); } break; case 8: { uint64_t address64 = address; str.PutRawBytes(&address64, sizeof(address64), endian::InlHostByteOrder(), eByteOrderInvalid); } break; } return (exe_ctx.process->WriteMemory (target, str.GetData(), pointer_byte_size, err) == pointer_byte_size); } static lldb::addr_t ReadAddressFrom ( ExecutionContext &exe_ctx, lldb::addr_t source, Error &err ) { size_t pointer_byte_size = exe_ctx.process->GetAddressByteSize(); DataBufferHeap *buf = new DataBufferHeap(pointer_byte_size, 0); DataBufferSP buf_sp(buf); if (exe_ctx.process->ReadMemory (source, buf->GetBytes(), pointer_byte_size, err) != pointer_byte_size) return LLDB_INVALID_ADDRESS; DataExtractor extractor (buf_sp, exe_ctx.process->GetByteOrder(), exe_ctx.process->GetAddressByteSize()); uint32_t offset = 0; return (lldb::addr_t)extractor.GetPointer(&offset); } bool ClangExpressionDeclMap::DoMaterializeOnePersistentVariable ( bool dematerialize, ExecutionContext &exe_ctx, ClangExpressionVariableSP &var_sp, lldb::addr_t addr, Error &err ) { lldb::LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_EXPRESSIONS)); if (!var_sp) { err.SetErrorString("Invalid persistent variable"); return LLDB_INVALID_ADDRESS; } const size_t pvar_byte_size = var_sp->GetByteSize(); uint8_t *pvar_data = var_sp->GetValueBytes(); if (pvar_data == NULL) return false; Error error; lldb::addr_t mem; // The address of a spare memory area used to hold the persistent variable. if (dematerialize) { if (log) log->Printf("Dematerializing persistent variable with flags 0x%hx", var_sp->m_flags); if ((var_sp->m_flags & ClangExpressionVariable::EVIsLLDBAllocated) || (var_sp->m_flags & ClangExpressionVariable::EVIsProgramReference)) { // Get the location of the target out of the struct. Error read_error; mem = ReadAddressFrom(exe_ctx, addr, read_error); if (mem == LLDB_INVALID_ADDRESS) { err.SetErrorStringWithFormat("Couldn't read address of %s from struct: %s", var_sp->GetName().GetCString(), error.AsCString()); return false; } if (var_sp->m_flags & ClangExpressionVariable::EVIsProgramReference && !var_sp->m_live_sp) { // If the reference comes from the program, then the ClangExpressionVariable's // live variable data hasn't been set up yet. Do this now. var_sp->m_live_sp.reset(new lldb_private::ValueObjectConstResult(var_sp->GetTypeFromUser().GetASTContext(), var_sp->GetTypeFromUser().GetOpaqueQualType(), var_sp->GetName(), mem, lldb::eAddressTypeLoad, pvar_byte_size)); } if (!var_sp->m_live_sp) { err.SetErrorStringWithFormat("Couldn't find the memory area used to store %s", var_sp->GetName().GetCString()); return false; } if (var_sp->m_live_sp->GetValue().GetValueAddressType() != lldb::eAddressTypeLoad) { err.SetErrorStringWithFormat("The address of the memory area for %s is in an incorrect format", var_sp->GetName().GetCString()); return false; } if (var_sp->m_flags & ClangExpressionVariable::EVNeedsFreezeDry || var_sp->m_flags & ClangExpressionVariable::EVKeepInTarget) { mem = var_sp->m_live_sp->GetValue().GetScalar().ULongLong(); if (log) log->Printf("Dematerializing %s from 0x%llx", var_sp->GetName().GetCString(), (uint64_t)mem); // Read the contents of the spare memory area if (log) log->Printf("Read"); var_sp->ValueUpdated (); if (exe_ctx.process->ReadMemory (mem, pvar_data, pvar_byte_size, error) != pvar_byte_size) { err.SetErrorStringWithFormat ("Couldn't read a composite type from the target: %s", error.AsCString()); return false; } var_sp->m_flags &= ~ClangExpressionVariable::EVNeedsFreezeDry; } if (var_sp->m_flags & ClangExpressionVariable::EVNeedsAllocation && !(var_sp->m_flags & ClangExpressionVariable::EVKeepInTarget)) { if (m_keep_result_in_memory) { var_sp->m_flags |= ClangExpressionVariable::EVKeepInTarget; } else { Error deallocate_error = exe_ctx.process->DeallocateMemory(mem); if (!err.Success()) { err.SetErrorStringWithFormat ("Couldn't deallocate memory for %s: %s", var_sp->GetName().GetCString(), deallocate_error.AsCString()); return false; } } } } else { err.SetErrorStringWithFormat("Persistent variables without separate allocations are not currently supported."); return false; } } else { if (log) log->Printf("Materializing persistent variable with flags 0x%hx", var_sp->m_flags); if (var_sp->m_flags & ClangExpressionVariable::EVNeedsAllocation) { // Allocate a spare memory area to store the persistent variable's contents. Error allocate_error; mem = exe_ctx.process->AllocateMemory(pvar_byte_size, lldb::ePermissionsReadable | lldb::ePermissionsWritable, allocate_error); if (mem == LLDB_INVALID_ADDRESS) { err.SetErrorStringWithFormat("Couldn't allocate a memory area to store %s: %s", var_sp->GetName().GetCString(), allocate_error.AsCString()); return false; } if (log) log->Printf("Allocated %s (0x%llx) sucessfully", var_sp->GetName().GetCString(), mem); // Put the location of the spare memory into the live data of the ValueObject. var_sp->m_live_sp.reset(new lldb_private::ValueObjectConstResult(var_sp->GetTypeFromUser().GetASTContext(), var_sp->GetTypeFromUser().GetOpaqueQualType(), var_sp->GetName(), mem, lldb::eAddressTypeLoad, pvar_byte_size)); // Clear the flag if the variable will never be deallocated. if (var_sp->m_flags & ClangExpressionVariable::EVKeepInTarget) var_sp->m_flags &= ~ClangExpressionVariable::EVNeedsAllocation; // Write the contents of the variable to the area. if (exe_ctx.process->WriteMemory (mem, pvar_data, pvar_byte_size, error) != pvar_byte_size) { err.SetErrorStringWithFormat ("Couldn't write a composite type to the target: %s", error.AsCString()); return false; } } if ((var_sp->m_flags & ClangExpressionVariable::EVIsProgramReference && var_sp->m_live_sp) || var_sp->m_flags & ClangExpressionVariable::EVIsLLDBAllocated) { mem = var_sp->m_live_sp->GetValue().GetScalar().ULongLong(); // Now write the location of the area into the struct. Error write_error; if (!WriteAddressInto(exe_ctx, addr, mem, write_error)) { err.SetErrorStringWithFormat ("Couldn't write %s to the target: %s", var_sp->GetName().GetCString(), write_error.AsCString()); return false; } if (log) log->Printf("Materialized %s into 0x%llx", var_sp->GetName().GetCString(), (uint64_t)mem); } else if (!var_sp->m_flags & ClangExpressionVariable::EVIsProgramReference) { err.SetErrorStringWithFormat("Persistent variables without separate allocations are not currently supported."); return false; } } return true; } bool ClangExpressionDeclMap::DoMaterializeOneVariable ( bool dematerialize, ExecutionContext &exe_ctx, const SymbolContext &sym_ctx, ClangExpressionVariableSP &expr_var, lldb::addr_t addr, Error &err ) { lldb::LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_EXPRESSIONS)); if (!exe_ctx.frame || !exe_ctx.process) return false; // Vital information about the value const ConstString &name(expr_var->GetName()); TypeFromUser type(expr_var->GetTypeFromUser()); Variable *var = FindVariableInScope (*exe_ctx.frame, name, &type); if (!var) { err.SetErrorStringWithFormat("Couldn't find %s with appropriate type", name.GetCString()); return false; } if (log) log->Printf("%s %s with type %p", (dematerialize ? "Dematerializing" : "Materializing"), name.GetCString(), type.GetOpaqueQualType()); std::auto_ptr location_value(GetVariableValue(exe_ctx, var, NULL)); if (!location_value.get()) { err.SetErrorStringWithFormat("Couldn't get value for %s", name.GetCString()); return false; } // The size of the type contained in addr size_t value_bit_size = ClangASTType::GetClangTypeBitWidth(type.GetASTContext(), type.GetOpaqueQualType()); size_t value_byte_size = value_bit_size % 8 ? ((value_bit_size + 8) / 8) : (value_bit_size / 8); Value::ValueType value_type = location_value->GetValueType(); switch (value_type) { default: { StreamString ss; location_value->Dump(&ss); err.SetErrorStringWithFormat("%s has a value of unhandled type: %s", name.GetCString(), ss.GetString().c_str()); return false; } break; case Value::eValueTypeLoadAddress: { if (!dematerialize) { lldb::addr_t value_addr = location_value->GetScalar().ULongLong(); Error error; if (!WriteAddressInto(exe_ctx, addr, value_addr, error)) { err.SetErrorStringWithFormat ("Couldn't write %s to the target: %s", name.GetCString(), error.AsCString()); return false; } } } break; case Value::eValueTypeScalar: { if (location_value->GetContextType() != Value::eContextTypeRegisterInfo) { StreamString ss; location_value->Dump(&ss); err.SetErrorStringWithFormat("%s is a scalar of unhandled type: %s", name.GetCString(), ss.GetString().c_str()); return false; } lldb::addr_t mem; // The address of a spare memory area aused to hold the variable. lldb::RegisterInfo *register_info = location_value->GetRegisterInfo(); if (!register_info) { err.SetErrorStringWithFormat("Couldn't get the register information for %s", name.GetCString()); return false; } RegisterContext *register_context = exe_ctx.GetRegisterContext(); if (!register_context) { err.SetErrorStringWithFormat("Couldn't read register context to read %s from %s", name.GetCString(), register_info->name); return false; } uint32_t register_number = register_info->kinds[lldb::eRegisterKindLLDB]; uint32_t register_byte_size = register_info->byte_size; if (dematerialize) { // Get the location of the spare memory area out of the variable's live data. if (!expr_var->m_live_sp) { err.SetErrorStringWithFormat("Couldn't find the memory area used to store %s", name.GetCString()); return false; } if (expr_var->m_live_sp->GetValue().GetValueAddressType() != lldb::eAddressTypeLoad) { err.SetErrorStringWithFormat("The address of the memory area for %s is in an incorrect format", name.GetCString()); return false; } mem = expr_var->m_live_sp->GetValue().GetScalar().ULongLong(); // Moving from addr into a register // // Case 1: addr_byte_size and register_byte_size are the same // // |AABBCCDD| Address contents // |AABBCCDD| Register contents // // Case 2: addr_byte_size is bigger than register_byte_size // // Error! (The register should always be big enough to hold the data) // // Case 3: register_byte_size is bigger than addr_byte_size // // |AABB| Address contents // |AABB0000| Register contents [on little-endian hardware] // |0000AABB| Register contents [on big-endian hardware] if (value_byte_size > register_byte_size) { err.SetErrorStringWithFormat("%s is too big to store in %s", name.GetCString(), register_info->name); return false; } uint32_t register_offset; switch (exe_ctx.process->GetByteOrder()) { default: err.SetErrorStringWithFormat("%s is stored with an unhandled byte order", name.GetCString()); return false; case lldb::eByteOrderLittle: register_offset = 0; break; case lldb::eByteOrderBig: register_offset = register_byte_size - value_byte_size; break; } DataBufferHeap register_data (register_byte_size, 0); Error error; if (exe_ctx.process->ReadMemory (mem, register_data.GetBytes() + register_offset, value_byte_size, error) != value_byte_size) { err.SetErrorStringWithFormat ("Couldn't read %s from the target: %s", name.GetCString(), error.AsCString()); return false; } DataExtractor register_extractor (register_data.GetBytes(), register_byte_size, exe_ctx.process->GetByteOrder(), exe_ctx.process->GetAddressByteSize()); if (!register_context->WriteRegisterBytes(register_number, register_extractor, 0)) { err.SetErrorStringWithFormat("Couldn't read %s from %s", name.GetCString(), register_info->name); return false; } // Deallocate the spare area and clear the variable's live data. Error deallocate_error = exe_ctx.process->DeallocateMemory(mem); if (!deallocate_error.Success()) { err.SetErrorStringWithFormat("Couldn't deallocate spare memory area for %s: %s", name.GetCString(), deallocate_error.AsCString()); return false; } expr_var->m_live_sp.reset(); } else { // Allocate a spare memory area to place the register's contents into. This memory area will be pointed to by the slot in the // struct. Error allocate_error; mem = exe_ctx.process->AllocateMemory(value_byte_size, lldb::ePermissionsReadable | lldb::ePermissionsWritable, allocate_error); if (mem == LLDB_INVALID_ADDRESS) { err.SetErrorStringWithFormat("Couldn't allocate a memory area to store %s: %s", name.GetCString(), allocate_error.AsCString()); return false; } // Put the location of the spare memory into the live data of the ValueObject. expr_var->m_live_sp.reset(new lldb_private::ValueObjectConstResult(type.GetASTContext(), type.GetOpaqueQualType(), name, mem, lldb::eAddressTypeLoad, value_byte_size)); // Now write the location of the area into the struct. Error write_error; if (!WriteAddressInto(exe_ctx, addr, mem, write_error)) { err.SetErrorStringWithFormat ("Couldn't write %s to the target: %s", name.GetCString(), write_error.AsCString()); return false; } // Moving from a register into addr // // Case 1: addr_byte_size and register_byte_size are the same // // |AABBCCDD| Register contents // |AABBCCDD| Address contents // // Case 2: addr_byte_size is bigger than register_byte_size // // Error! (The register should always be big enough to hold the data) // // Case 3: register_byte_size is bigger than addr_byte_size // // |AABBCCDD| Register contents // |AABB| Address contents on little-endian hardware // |CCDD| Address contents on big-endian hardware if (value_byte_size > register_byte_size) { err.SetErrorStringWithFormat("%s is too big to store in %s", name.GetCString(), register_info->name); return false; } uint32_t register_offset; switch (exe_ctx.process->GetByteOrder()) { default: err.SetErrorStringWithFormat("%s is stored with an unhandled byte order", name.GetCString()); return false; case lldb::eByteOrderLittle: register_offset = 0; break; case lldb::eByteOrderBig: register_offset = register_byte_size - value_byte_size; break; } DataExtractor register_extractor; if (!register_context->ReadRegisterBytes(register_number, register_extractor)) { err.SetErrorStringWithFormat("Couldn't read %s from %s", name.GetCString(), register_info->name); return false; } const void *register_data = register_extractor.GetData(®ister_offset, value_byte_size); if (!register_data) { err.SetErrorStringWithFormat("Read but couldn't extract data for %s from %s", name.GetCString(), register_info->name); return false; } if (exe_ctx.process->WriteMemory (mem, register_data, value_byte_size, write_error) != value_byte_size) { err.SetErrorStringWithFormat ("Couldn't write %s to the target: %s", write_error.AsCString()); return false; } } } } return true; } bool ClangExpressionDeclMap::DoMaterializeOneRegister ( bool dematerialize, ExecutionContext &exe_ctx, RegisterContext ®_ctx, const lldb::RegisterInfo ®_info, lldb::addr_t addr, Error &err ) { uint32_t register_number = reg_info.kinds[lldb::eRegisterKindLLDB]; uint32_t register_byte_size = reg_info.byte_size; if (dematerialize) { DataBufferHeap register_data (register_byte_size, 0); Error read_error; if (exe_ctx.process->ReadMemory (addr, register_data.GetBytes(), register_byte_size, read_error) != register_byte_size) { err.SetErrorStringWithFormat ("Couldn't read %s from the target: %s", reg_info.name, read_error.AsCString()); return false; } DataExtractor register_extractor (register_data.GetBytes(), register_byte_size, exe_ctx.process->GetByteOrder(), exe_ctx.process->GetAddressByteSize()); if (!reg_ctx.WriteRegisterBytes(register_number, register_extractor, 0)) { err.SetErrorStringWithFormat("Couldn't read %s", reg_info.name); return false; } } else { DataExtractor register_extractor; if (!reg_ctx.ReadRegisterBytes(register_number, register_extractor)) { err.SetErrorStringWithFormat("Couldn't read %s", reg_info.name); return false; } uint32_t register_offset = 0; const void *register_data = register_extractor.GetData(®ister_offset, register_byte_size); if (!register_data) { err.SetErrorStringWithFormat("Read but couldn't extract data for %s", reg_info.name); return false; } Error error; if (exe_ctx.process->WriteMemory (addr, register_data, register_byte_size, error) != register_byte_size) { err.SetErrorStringWithFormat ("Couldn't write %s to the target: %s", error.AsCString()); return false; } } return true; } Variable * ClangExpressionDeclMap::FindVariableInScope ( StackFrame &frame, const ConstString &name, TypeFromUser *type ) { lldb::LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_EXPRESSIONS)); VariableList *var_list = frame.GetVariableList(true); if (!var_list) return NULL; lldb::VariableSP var_sp (var_list->FindVariable(name)); const bool append = true; const uint32_t max_matches = 1; if (!var_sp) { // Look for globals elsewhere in the module for the frame ModuleSP module_sp (frame.GetSymbolContext(eSymbolContextModule).module_sp); if (module_sp) { VariableList module_globals; if (module_sp->FindGlobalVariables (name, append, max_matches, module_globals)) var_sp = module_globals.GetVariableAtIndex (0); } } if (!var_sp) { // Look for globals elsewhere in the program (all images) TargetSP target_sp (frame.GetSymbolContext(eSymbolContextTarget).target_sp); if (target_sp) { VariableList program_globals; if (target_sp->GetImages().FindGlobalVariables (name, append, max_matches, program_globals)) var_sp = program_globals.GetVariableAtIndex (0); } } if (var_sp && type) { if (type->GetASTContext() == var_sp->GetType()->GetClangAST()) { if (!ClangASTContext::AreTypesSame(type->GetASTContext(), type->GetOpaqueQualType(), var_sp->GetType()->GetClangType())) return NULL; } else { if (log) log->PutCString("Skipping a candidate variable because of different AST contexts"); return NULL; } } return var_sp.get(); } // Interface for ClangASTSource void ClangExpressionDeclMap::GetDecls (NameSearchContext &context, const ConstString &name) { assert (m_struct_vars.get()); assert (m_parser_vars.get()); lldb::LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_EXPRESSIONS)); if (log) log->Printf("Hunting for a definition for '%s'", name.GetCString()); // Back out in all cases where we're not fully initialized if (m_parser_vars->m_exe_ctx->frame == NULL) return; if (m_parser_vars->m_ignore_lookups) { if (log) log->Printf("Ignoring a query during an import"); return; } SymbolContextList sc_list; const char *name_unique_cstr = name.GetCString(); if (name_unique_cstr == NULL) return; // Only look for functions by name out in our symbols if the function // doesn't start with our phony prefix of '$' if (name_unique_cstr[0] != '$') { Variable *var = FindVariableInScope(*m_parser_vars->m_exe_ctx->frame, name); // If we found a variable in scope, no need to pull up function names if (var != NULL) { AddOneVariable(context, var); } else { const bool include_symbols = true; const bool append = false; m_parser_vars->m_sym_ctx.FindFunctionsByName (name, include_symbols, append, sc_list); bool found_specific = false; Symbol *generic_symbol = NULL; Symbol *non_extern_symbol = NULL; for (uint32_t index = 0, num_indices = sc_list.GetSize(); index < num_indices; ++index) { SymbolContext sym_ctx; sc_list.GetContextAtIndex(index, sym_ctx); if (sym_ctx.function) { // TODO only do this if it's a C function; C++ functions may be // overloaded if (!found_specific) AddOneFunction(context, sym_ctx.function, NULL); found_specific = true; } else if (sym_ctx.symbol) { if (sym_ctx.symbol->IsExternal()) generic_symbol = sym_ctx.symbol; else non_extern_symbol = sym_ctx.symbol; } } if (!found_specific) { if (generic_symbol) AddOneFunction (context, NULL, generic_symbol); else if (non_extern_symbol) AddOneFunction (context, NULL, non_extern_symbol); } ClangNamespaceDecl namespace_decl (m_parser_vars->m_sym_ctx.FindNamespace(name)); if (namespace_decl) { clang::NamespaceDecl *clang_namespace_decl = AddNamespace(context, namespace_decl); if (clang_namespace_decl) clang_namespace_decl->setHasExternalLexicalStorage(); } } } else { static ConstString g_lldb_class_name ("$__lldb_class"); if (name == g_lldb_class_name) { // Clang is looking for the type of "this" VariableList *vars = m_parser_vars->m_exe_ctx->frame->GetVariableList(false); if (!vars) return; lldb::VariableSP this_var = vars->FindVariable(ConstString("this")); if (!this_var) return; Type *this_type = this_var->GetType(); if (!this_type) return; if (log) { log->PutCString ("Type for \"this\" is: "); StreamString strm; this_type->Dump(&strm, true); log->PutCString (strm.GetData()); } TypeFromUser this_user_type(this_type->GetClangType(), this_type->GetClangAST()); m_struct_vars->m_object_pointer_type = this_user_type; void *pointer_target_type; if (!ClangASTContext::IsPointerType(this_user_type.GetOpaqueQualType(), &pointer_target_type)) return; TypeFromUser class_user_type(pointer_target_type, this_type->GetClangAST()); if (log) { StreamString type_stream; class_user_type.DumpTypeCode(&type_stream); type_stream.Flush(); log->Printf("Adding type for $__lldb_class: %s", type_stream.GetString().c_str()); } AddOneType(context, class_user_type, true); return; } static ConstString g_lldb_objc_class_name ("$__lldb_objc_class"); if (name == g_lldb_objc_class_name) { // Clang is looking for the type of "*self" VariableList *vars = m_parser_vars->m_exe_ctx->frame->GetVariableList(false); if (!vars) return; lldb::VariableSP self_var = vars->FindVariable(ConstString("self")); if (!self_var) return; Type *self_type = self_var->GetType(); if (!self_type) return; TypeFromUser self_user_type(self_type->GetClangType(), self_type->GetClangAST()); m_struct_vars->m_object_pointer_type = self_user_type; void *pointer_target_type; if (!ClangASTContext::IsPointerType(self_user_type.GetOpaqueQualType(), &pointer_target_type)) return; TypeFromUser class_user_type(pointer_target_type, self_type->GetClangAST()); if (log) { StreamString type_stream; class_user_type.DumpTypeCode(&type_stream); type_stream.Flush(); log->Printf("Adding type for $__lldb_objc_class: %s", type_stream.GetString().c_str()); } AddOneType(context, class_user_type, false); return; } ClangExpressionVariableSP pvar_sp(m_parser_vars->m_persistent_vars->GetVariable(name)); if (pvar_sp) { AddOneVariable(context, pvar_sp); return; } const char *reg_name(&name.GetCString()[1]); if (m_parser_vars->m_exe_ctx->GetRegisterContext()) { const lldb::RegisterInfo *reg_info(m_parser_vars->m_exe_ctx->GetRegisterContext()->GetRegisterInfoByName(reg_name)); if (reg_info) AddOneRegister(context, reg_info); } } lldb::TypeSP type_sp (m_parser_vars->m_sym_ctx.FindTypeByName (name)); if (type_sp) { if (log) { log->Printf ("Matching type found for \"%s\": ", name.GetCString()); StreamString strm; type_sp->Dump(&strm, true); log->PutCString (strm.GetData()); } TypeFromUser user_type (type_sp->GetClangType(), type_sp->GetClangAST()); AddOneType(context, user_type, false); } } Value * ClangExpressionDeclMap::GetVariableValue ( ExecutionContext &exe_ctx, Variable *var, clang::ASTContext *parser_ast_context, TypeFromUser *user_type, TypeFromParser *parser_type ) { lldb::LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_EXPRESSIONS)); Type *var_type = var->GetType(); if (!var_type) { if (log) log->PutCString("Skipped a definition because it has no type"); return NULL; } void *var_opaque_type = var_type->GetClangType(); if (!var_opaque_type) { if (log) log->PutCString("Skipped a definition because it has no Clang type"); return NULL; } clang::ASTContext *ast = var_type->GetClangASTContext().getASTContext(); if (!ast) { if (log) log->PutCString("There is no AST context for the current execution context"); return NULL; } DWARFExpression &var_location_expr = var->LocationExpression(); std::auto_ptr var_location(new Value); lldb::addr_t loclist_base_load_addr = LLDB_INVALID_ADDRESS; if (var_location_expr.IsLocationList()) { SymbolContext var_sc; var->CalculateSymbolContext (&var_sc); loclist_base_load_addr = var_sc.function->GetAddressRange().GetBaseAddress().GetLoadAddress (exe_ctx.target); } Error err; if (!var_location_expr.Evaluate(&exe_ctx, ast, NULL, NULL, NULL, loclist_base_load_addr, NULL, *var_location.get(), &err)) { if (log) log->Printf("Error evaluating location: %s", err.AsCString()); return NULL; } void *type_to_use; if (parser_ast_context) { type_to_use = GuardedCopyType(parser_ast_context, ast, var_opaque_type); if (!type_to_use) { if (log) log->Printf("Couldn't copy a variable's type into the parser's AST context"); return NULL; } if (parser_type) *parser_type = TypeFromParser(type_to_use, parser_ast_context); } else type_to_use = var_opaque_type; if (var_location.get()->GetContextType() == Value::eContextTypeInvalid) var_location.get()->SetContext(Value::eContextTypeClangType, type_to_use); if (var_location.get()->GetValueType() == Value::eValueTypeFileAddress) { SymbolContext var_sc; var->CalculateSymbolContext(&var_sc); if (!var_sc.module_sp) return NULL; ObjectFile *object_file = var_sc.module_sp->GetObjectFile(); if (!object_file) return NULL; Address so_addr(var_location->GetScalar().ULongLong(), object_file->GetSectionList()); lldb::addr_t load_addr = so_addr.GetLoadAddress(exe_ctx.target); var_location->GetScalar() = load_addr; var_location->SetValueType(Value::eValueTypeLoadAddress); } if (user_type) *user_type = TypeFromUser(var_opaque_type, ast); return var_location.release(); } void ClangExpressionDeclMap::AddOneVariable (NameSearchContext &context, Variable* var) { assert (m_parser_vars.get()); lldb::LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_EXPRESSIONS)); TypeFromUser ut; TypeFromParser pt; Value *var_location = GetVariableValue (*m_parser_vars->m_exe_ctx, var, context.GetASTContext(), &ut, &pt); if (!var_location) return; NamedDecl *var_decl = context.AddVarDecl(ClangASTContext::CreateLValueReferenceType(pt.GetASTContext(), pt.GetOpaqueQualType())); std::string decl_name(context.m_decl_name.getAsString()); ConstString entity_name(decl_name.c_str()); ClangExpressionVariableSP entity(m_found_entities.CreateVariable (entity_name, ut, m_parser_vars->m_exe_ctx->process->GetByteOrder(), m_parser_vars->m_exe_ctx->process->GetAddressByteSize())); assert (entity.get()); entity->EnableParserVars(); entity->m_parser_vars->m_parser_type = pt; entity->m_parser_vars->m_named_decl = var_decl; entity->m_parser_vars->m_llvm_value = NULL; entity->m_parser_vars->m_lldb_value = var_location; if (log) { std::string var_decl_print_string; llvm::raw_string_ostream var_decl_print_stream(var_decl_print_string); var_decl->print(var_decl_print_stream); var_decl_print_stream.flush(); log->Printf("Found variable %s, returned %s", decl_name.c_str(), var_decl_print_string.c_str()); if (log->GetVerbose()) { StreamString var_decl_dump_string; ASTDumper::DumpDecl(var_decl_dump_string, var_decl); log->Printf("%s\n", var_decl_dump_string.GetData()); } } } void ClangExpressionDeclMap::AddOneVariable(NameSearchContext &context, ClangExpressionVariableSP &pvar_sp) { lldb::LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_EXPRESSIONS)); TypeFromUser user_type (pvar_sp->GetTypeFromUser()); TypeFromParser parser_type (GuardedCopyType(context.GetASTContext(), user_type.GetASTContext(), user_type.GetOpaqueQualType()), context.GetASTContext()); NamedDecl *var_decl = context.AddVarDecl(ClangASTContext::CreateLValueReferenceType(parser_type.GetASTContext(), parser_type.GetOpaqueQualType())); pvar_sp->EnableParserVars(); pvar_sp->m_parser_vars->m_parser_type = parser_type; pvar_sp->m_parser_vars->m_named_decl = var_decl; pvar_sp->m_parser_vars->m_llvm_value = NULL; pvar_sp->m_parser_vars->m_lldb_value = NULL; if (log) { std::string var_decl_print_string; llvm::raw_string_ostream var_decl_print_stream(var_decl_print_string); var_decl->print(var_decl_print_stream); var_decl_print_stream.flush(); log->Printf("Added pvar %s, returned %s", pvar_sp->GetName().GetCString(), var_decl_print_string.c_str()); } } void ClangExpressionDeclMap::AddOneRegister (NameSearchContext &context, const RegisterInfo *reg_info) { lldb::LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_EXPRESSIONS)); void *ast_type = ClangASTContext::GetBuiltinTypeForEncodingAndBitSize(context.GetASTContext(), reg_info->encoding, reg_info->byte_size * 8); if (!ast_type) { log->Printf("Tried to add a type for %s, but couldn't get one", context.m_decl_name.getAsString().c_str()); return; } TypeFromParser parser_type (ast_type, context.GetASTContext()); NamedDecl *var_decl = context.AddVarDecl(parser_type.GetOpaqueQualType()); ClangExpressionVariableSP entity(m_found_entities.CreateVariable (m_parser_vars->m_exe_ctx->process->GetByteOrder(), m_parser_vars->m_exe_ctx->process->GetAddressByteSize())); assert (entity.get()); std::string decl_name(context.m_decl_name.getAsString()); entity->SetName (ConstString (decl_name.c_str())); entity->SetRegisterInfo (reg_info); entity->EnableParserVars(); entity->m_parser_vars->m_parser_type = parser_type; entity->m_parser_vars->m_named_decl = var_decl; entity->m_parser_vars->m_llvm_value = NULL; entity->m_parser_vars->m_lldb_value = NULL; if (log) { std::string var_decl_print_string; llvm::raw_string_ostream var_decl_print_stream(var_decl_print_string); var_decl->print(var_decl_print_stream); var_decl_print_stream.flush(); log->Printf("Added register %s, returned %s", context.m_decl_name.getAsString().c_str(), var_decl_print_string.c_str()); } } clang::NamespaceDecl * ClangExpressionDeclMap::AddNamespace (NameSearchContext &context, const ClangNamespaceDecl &namespace_decl) { lldb::LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_EXPRESSIONS)); clang::Decl *copied_decl = ClangASTContext::CopyDecl (context.GetASTContext(), namespace_decl.GetASTContext(), namespace_decl.GetNamespaceDecl()); return dyn_cast(copied_decl); } void ClangExpressionDeclMap::AddOneFunction(NameSearchContext &context, Function* fun, Symbol* symbol) { assert (m_parser_vars.get()); lldb::LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_EXPRESSIONS)); NamedDecl *fun_decl; std::auto_ptr fun_location(new Value); const Address *fun_address; // only valid for Functions, not for Symbols void *fun_opaque_type = NULL; clang::ASTContext *fun_ast_context = NULL; if (fun) { Type *fun_type = fun->GetType(); if (!fun_type) { if (log) log->PutCString("Skipped a function because it has no type"); return; } fun_opaque_type = fun_type->GetClangType(); if (!fun_opaque_type) { if (log) log->PutCString("Skipped a function because it has no Clang type"); return; } fun_address = &fun->GetAddressRange().GetBaseAddress(); fun_ast_context = fun_type->GetClangASTContext().getASTContext(); void *copied_type = GuardedCopyType(context.GetASTContext(), fun_ast_context, fun_opaque_type); fun_decl = context.AddFunDecl(copied_type); } else if (symbol) { fun_address = &symbol->GetAddressRangeRef().GetBaseAddress(); fun_decl = context.AddGenericFunDecl(); } else { if (log) log->PutCString("AddOneFunction called with no function and no symbol"); return; } lldb::addr_t load_addr = fun_address->GetLoadAddress(m_parser_vars->m_exe_ctx->target); fun_location->SetValueType(Value::eValueTypeLoadAddress); fun_location->GetScalar() = load_addr; ClangExpressionVariableSP entity(m_found_entities.CreateVariable (m_parser_vars->m_exe_ctx->process->GetByteOrder(), m_parser_vars->m_exe_ctx->process->GetAddressByteSize())); assert (entity.get()); std::string decl_name(context.m_decl_name.getAsString()); entity->SetName(ConstString(decl_name.c_str())); entity->SetClangType (fun_opaque_type); entity->SetClangAST (fun_ast_context); entity->EnableParserVars(); entity->m_parser_vars->m_named_decl = fun_decl; entity->m_parser_vars->m_llvm_value = NULL; entity->m_parser_vars->m_lldb_value = fun_location.release(); if (log) { std::string fun_decl_print_string; llvm::raw_string_ostream fun_decl_print_stream(fun_decl_print_string); fun_decl->print(fun_decl_print_stream); fun_decl_print_stream.flush(); log->Printf("Found %s function %s, returned %s", (fun ? "specific" : "generic"), decl_name.c_str(), fun_decl_print_string.c_str()); } } void ClangExpressionDeclMap::AddOneType(NameSearchContext &context, TypeFromUser &ut, bool add_method) { clang::ASTContext *parser_ast_context = context.GetASTContext(); clang::ASTContext *user_ast_context = ut.GetASTContext(); void *copied_type = GuardedCopyType(parser_ast_context, user_ast_context, ut.GetOpaqueQualType()); TypeFromParser parser_type(copied_type, parser_ast_context); if (add_method && ClangASTContext::IsAggregateType(copied_type)) { void *args[1]; args[0] = ClangASTContext::GetVoidPtrType(parser_ast_context, false); void *method_type = ClangASTContext::CreateFunctionType (parser_ast_context, ClangASTContext::GetBuiltInType_void(parser_ast_context), args, 1, false, ClangASTContext::GetTypeQualifiers(copied_type)); const bool is_virtual = false; const bool is_static = false; const bool is_inline = false; const bool is_explicit = false; ClangASTContext::AddMethodToCXXRecordType (parser_ast_context, copied_type, "$__lldb_expr", method_type, lldb::eAccessPublic, is_virtual, is_static, is_inline, is_explicit); } context.AddTypeDecl(copied_type); } void * ClangExpressionDeclMap::GuardedCopyType (ASTContext *dest_context, ASTContext *source_context, void *clang_type) { assert (m_parser_vars.get()); m_parser_vars->m_ignore_lookups = true; void *ret = ClangASTContext::CopyType (dest_context, source_context, clang_type); m_parser_vars->m_ignore_lookups = false; return ret; }