diff options
Diffstat (limited to 'contrib/llvm/tools/lldb/source/Expression/IRInterpreter.cpp')
| -rw-r--r-- | contrib/llvm/tools/lldb/source/Expression/IRInterpreter.cpp | 519 |
1 files changed, 294 insertions, 225 deletions
diff --git a/contrib/llvm/tools/lldb/source/Expression/IRInterpreter.cpp b/contrib/llvm/tools/lldb/source/Expression/IRInterpreter.cpp index 71ef8d6..d11bdc1 100644 --- a/contrib/llvm/tools/lldb/source/Expression/IRInterpreter.cpp +++ b/contrib/llvm/tools/lldb/source/Expression/IRInterpreter.cpp @@ -20,6 +20,7 @@ #include "llvm/IR/DataLayout.h" #include "llvm/IR/Function.h" #include "llvm/IR/Instructions.h" +#include "llvm/IR/Intrinsics.h" #include "llvm/IR/Module.h" #include "llvm/Support/raw_ostream.h" @@ -27,7 +28,7 @@ using namespace llvm; -static std::string +static std::string PrintValue(const Value *value, bool truncate = false) { std::string s; @@ -36,13 +37,13 @@ PrintValue(const Value *value, bool truncate = false) rso.flush(); if (truncate) s.resize(s.length() - 1); - + size_t offset; while ((offset = s.find('\n')) != s.npos) s.erase(offset, 1); while (s[0] == ' ' || s[0] == '\t') s.erase(0, 1); - + return s; } @@ -58,25 +59,48 @@ PrintType(const Type *type, bool truncate = false) return s; } +static bool +CanIgnoreCall (const CallInst *call) +{ + const llvm::Function *called_function = call->getCalledFunction(); + + if (!called_function) + return false; + + if (called_function->isIntrinsic()) + { + switch (called_function->getIntrinsicID()) + { + default: + break; + case llvm::Intrinsic::dbg_declare: + case llvm::Intrinsic::dbg_value: + return true; + } + } + + return false; +} + class InterpreterStackFrame { public: typedef std::map <const Value*, lldb::addr_t> ValueMap; - + ValueMap m_values; DataLayout &m_target_data; lldb_private::IRMemoryMap &m_memory_map; const BasicBlock *m_bb; BasicBlock::const_iterator m_ii; BasicBlock::const_iterator m_ie; - + lldb::addr_t m_frame_process_address; size_t m_frame_size; lldb::addr_t m_stack_pointer; - + lldb::ByteOrder m_byte_order; size_t m_addr_byte_size; - + InterpreterStackFrame (DataLayout &target_data, lldb_private::IRMemoryMap &memory_map, lldb::addr_t stack_frame_bottom, @@ -86,41 +110,41 @@ public: { m_byte_order = (target_data.isLittleEndian() ? lldb::eByteOrderLittle : lldb::eByteOrderBig); m_addr_byte_size = (target_data.getPointerSize(0)); - + m_frame_process_address = stack_frame_bottom; m_frame_size = stack_frame_top - stack_frame_bottom; m_stack_pointer = stack_frame_top; } - + ~InterpreterStackFrame () { } - + void Jump (const BasicBlock *bb) { m_bb = bb; m_ii = m_bb->begin(); m_ie = m_bb->end(); } - + std::string SummarizeValue (const Value *value) { lldb_private::StreamString ss; ss.Printf("%s", PrintValue(value).c_str()); - + ValueMap::iterator i = m_values.find(value); if (i != m_values.end()) { lldb::addr_t addr = i->second; - + ss.Printf(" 0x%llx", (unsigned long long)addr); } - + return ss.GetString(); } - + bool AssignToMatchType (lldb_private::Scalar &scalar, uint64_t u64value, Type *type) { size_t type_size = m_target_data.getTypeStoreSize(type); @@ -142,36 +166,36 @@ public: default: return false; } - + return true; } - + bool EvaluateValue (lldb_private::Scalar &scalar, const Value *value, Module &module) { const Constant *constant = dyn_cast<Constant>(value); - + if (constant) { APInt value_apint; - + if (!ResolveConstantValue(value_apint, constant)) return false; - + return AssignToMatchType(scalar, value_apint.getLimitedValue(), value->getType()); } else { lldb::addr_t process_address = ResolveValue(value, module); size_t value_size = m_target_data.getTypeStoreSize(value->getType()); - + lldb_private::DataExtractor value_extractor; lldb_private::Error extract_error; - + m_memory_map.GetMemoryData(value_extractor, process_address, value_size, extract_error); - + if (!extract_error.Success()) return false; - + lldb::offset_t offset = 0; if (value_size == 1 || value_size == 2 || value_size == 4 || value_size == 8) { @@ -179,38 +203,38 @@ public: return AssignToMatchType(scalar, u64value, value->getType()); } } - + return false; } - + bool AssignValue (const Value *value, lldb_private::Scalar &scalar, Module &module) { lldb::addr_t process_address = ResolveValue (value, module); - + if (process_address == LLDB_INVALID_ADDRESS) return false; - + lldb_private::Scalar cast_scalar; - + if (!AssignToMatchType(cast_scalar, scalar.GetRawBits64(0), value->getType())) return false; - + size_t value_byte_size = m_target_data.getTypeStoreSize(value->getType()); - + lldb_private::DataBufferHeap buf(value_byte_size, 0); - + lldb_private::Error get_data_error; - + if (!cast_scalar.GetAsMemoryData(buf.GetBytes(), buf.GetByteSize(), m_byte_order, get_data_error)) return false; - + lldb_private::Error write_error; - + m_memory_map.WriteMemory(process_address, buf.GetBytes(), buf.GetByteSize(), write_error); - + return write_error.Success(); } - + bool ResolveConstantValue (APInt &value, const Constant *constant) { switch (constant->getValueID()) @@ -246,27 +270,27 @@ public: { ConstantExpr::const_op_iterator op_cursor = constant_expr->op_begin(); ConstantExpr::const_op_iterator op_end = constant_expr->op_end(); - + Constant *base = dyn_cast<Constant>(*op_cursor); - + if (!base) return false; - + if (!ResolveConstantValue(value, base)) return false; - + op_cursor++; - + if (op_cursor == op_end) return true; // no offset to apply! - + SmallVector <Value *, 8> indices (op_cursor, op_end); - + uint64_t offset = m_target_data.getIndexedOffset(base->getType(), indices); - + const bool is_signed = true; value += APInt(value.getBitWidth(), offset, is_signed); - + return true; } } @@ -282,27 +306,27 @@ public: } return false; } - + bool MakeArgument(const Argument *value, uint64_t address) { lldb::addr_t data_address = Malloc(value->getType()); - + if (data_address == LLDB_INVALID_ADDRESS) return false; - + lldb_private::Error write_error; - + m_memory_map.WritePointerToMemory(data_address, address, write_error); - + if (!write_error.Success()) { lldb_private::Error free_error; m_memory_map.Free(data_address, free_error); return false; } - + m_values[value] = data_address; - + lldb_private::Log *log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_EXPRESSIONS)); if (log) @@ -311,75 +335,75 @@ public: log->Printf(" Data region : %llx", (unsigned long long)address); log->Printf(" Ref region : %llx", (unsigned long long)data_address); } - + return true; } - + bool ResolveConstant (lldb::addr_t process_address, const Constant *constant) { APInt resolved_value; - + if (!ResolveConstantValue(resolved_value, constant)) return false; - + lldb_private::StreamString buffer (lldb_private::Stream::eBinary, m_memory_map.GetAddressByteSize(), m_memory_map.GetByteOrder()); - + size_t constant_size = m_target_data.getTypeStoreSize(constant->getType()); - + const uint64_t *raw_data = resolved_value.getRawData(); - + buffer.PutRawBytes(raw_data, constant_size, lldb::endian::InlHostByteOrder()); - + lldb_private::Error write_error; - + m_memory_map.WriteMemory(process_address, (const uint8_t*)buffer.GetData(), constant_size, write_error); - + return write_error.Success(); } - + lldb::addr_t Malloc (size_t size, uint8_t byte_alignment) { lldb::addr_t ret = m_stack_pointer; - + ret -= size; ret -= (ret % byte_alignment); - + if (ret < m_frame_process_address) return LLDB_INVALID_ADDRESS; - + m_stack_pointer = ret; return ret; } - + lldb::addr_t MallocPointer () { return Malloc(m_target_data.getPointerSize(), m_target_data.getPointerPrefAlignment()); } - + lldb::addr_t Malloc (llvm::Type *type) { lldb_private::Error alloc_error; - + return Malloc(m_target_data.getTypeAllocSize(type), m_target_data.getPrefTypeAlignment(type)); } - + std::string PrintData (lldb::addr_t addr, llvm::Type *type) { size_t length = m_target_data.getTypeStoreSize(type); - + lldb_private::DataBufferHeap buf(length, 0); - + lldb_private::Error read_error; - + m_memory_map.ReadMemory(buf.GetBytes(), addr, length, read_error); - + if (!read_error.Success()) return std::string("<couldn't read data>"); - + lldb_private::StreamString ss; - + for (size_t i = 0; i < length; i++) { if ((!(i & 0xf)) && i) @@ -387,21 +411,21 @@ public: else ss.Printf("%02hhx ", buf.GetBytes()[i]); } - + return ss.GetString(); } - + lldb::addr_t ResolveValue (const Value *value, Module &module) { ValueMap::iterator i = m_values.find(value); - + if (i != m_values.end()) return i->second; - + // Fall back and allocate space [allocation type Alloca] - + lldb::addr_t data_address = Malloc(value->getType()); - + if (const Constant *constant = dyn_cast<Constant>(value)) { if (!ResolveConstant (data_address, constant)) @@ -411,7 +435,7 @@ public: return LLDB_INVALID_ADDRESS; } } - + m_values[value] = data_address; return data_address; } @@ -434,9 +458,9 @@ IRInterpreter::CanInterpret (llvm::Module &module, lldb_private::Error &error) { lldb_private::Log *log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_EXPRESSIONS)); - + bool saw_function_with_body = false; - + for (Module::iterator fi = module.begin(), fe = module.end(); fi != fe; ++fi) @@ -448,7 +472,7 @@ IRInterpreter::CanInterpret (llvm::Module &module, saw_function_with_body = true; } } - + for (Function::iterator bbi = function.begin(), bbe = function.end(); bbi != bbe; ++bbi) @@ -471,26 +495,48 @@ IRInterpreter::CanInterpret (llvm::Module &module, case Instruction::Alloca: case Instruction::BitCast: case Instruction::Br: + break; + case Instruction::Call: + { + CallInst *call_inst = dyn_cast<CallInst>(ii); + + if (!call_inst) + { + error.SetErrorToGenericError(); + error.SetErrorString(interpreter_internal_error); + return false; + } + + if (!CanIgnoreCall(call_inst)) + { + if (log) + log->Printf("Unsupported instruction: %s", PrintValue(ii).c_str()); + error.SetErrorToGenericError(); + error.SetErrorString(unsupported_opcode_error); + return false; + } + } + break; case Instruction::GetElementPtr: break; case Instruction::ICmp: { ICmpInst *icmp_inst = dyn_cast<ICmpInst>(ii); - + if (!icmp_inst) { error.SetErrorToGenericError(); error.SetErrorString(interpreter_internal_error); return false; } - + switch (icmp_inst->getPredicate()) { default: { if (log) log->Printf("Unsupported ICmp predicate: %s", PrintValue(ii).c_str()); - + error.SetErrorToGenericError(); error.SetErrorString(unsupported_opcode_error); return false; @@ -531,14 +577,14 @@ IRInterpreter::CanInterpret (llvm::Module &module, case Instruction::ZExt: break; } - + for (int oi = 0, oe = ii->getNumOperands(); oi != oe; ++oi) { Value *operand = ii->getOperand(oi); Type *operand_type = operand->getType(); - + switch (operand_type->getTypeID()) { default: @@ -553,9 +599,9 @@ IRInterpreter::CanInterpret (llvm::Module &module, } } } - + } - + return true;} bool @@ -568,60 +614,83 @@ IRInterpreter::Interpret (llvm::Module &module, lldb::addr_t stack_frame_top) { lldb_private::Log *log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_EXPRESSIONS)); - + if (log) { std::string s; raw_string_ostream oss(s); - + module.print(oss, NULL); - + oss.flush(); - + log->Printf("Module as passed in to IRInterpreter::Interpret: \n\"%s\"", s.c_str()); } - + DataLayout data_layout(&module); - + InterpreterStackFrame frame(data_layout, memory_map, stack_frame_bottom, stack_frame_top); - + if (frame.m_frame_process_address == LLDB_INVALID_ADDRESS) { error.SetErrorString("Couldn't allocate stack frame"); } - + int arg_index = 0; - + for (llvm::Function::arg_iterator ai = function.arg_begin(), ae = function.arg_end(); ai != ae; ++ai, ++arg_index) { - if (args.size() < arg_index) + if (args.size() < static_cast<size_t>(arg_index)) { error.SetErrorString ("Not enough arguments passed in to function"); return false; } - + lldb::addr_t ptr = args[arg_index]; frame.MakeArgument(ai, ptr); } - + uint32_t num_insts = 0; - + frame.Jump(function.begin()); - + while (frame.m_ii != frame.m_ie && (++num_insts < 4096)) { const Instruction *inst = frame.m_ii; - + if (log) log->Printf("Interpreting %s", PrintValue(inst).c_str()); - + switch (inst->getOpcode()) { default: break; + case Instruction::Call: + { + const CallInst *call_inst = dyn_cast<CallInst>(inst); + + if (!call_inst) + { + if (log) + log->Printf("getOpcode() returns %s, but instruction is not a CallInst", inst->getOpcodeName()); + error.SetErrorToGenericError(); + error.SetErrorString(interpreter_internal_error); + return false; + } + + if (!CanIgnoreCall(call_inst)) + { + if (log) + log->Printf("The interpreter shouldn't have accepted %s", PrintValue(call_inst).c_str()); + error.SetErrorToGenericError(); + error.SetErrorString(interpreter_internal_error); + return false; + } + } + break; case Instruction::Add: case Instruction::Sub: case Instruction::Mul: @@ -637,7 +706,7 @@ IRInterpreter::Interpret (llvm::Module &module, case Instruction::Xor: { const BinaryOperator *bin_op = dyn_cast<BinaryOperator>(inst); - + if (!bin_op) { if (log) @@ -646,13 +715,13 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(interpreter_internal_error); return false; } - + Value *lhs = inst->getOperand(0); Value *rhs = inst->getOperand(1); - + lldb_private::Scalar L; lldb_private::Scalar R; - + if (!frame.EvaluateValue(L, lhs, module)) { if (log) @@ -661,7 +730,7 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(bad_value_error); return false; } - + if (!frame.EvaluateValue(R, rhs, module)) { if (log) @@ -670,9 +739,9 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(bad_value_error); return false; } - + lldb_private::Scalar result; - + switch (inst->getOpcode()) { default: @@ -722,9 +791,9 @@ IRInterpreter::Interpret (llvm::Module &module, result = L ^ R; break; } - + frame.AssignValue(inst, result, module); - + if (log) { log->Printf("Interpreted a %s", inst->getOpcodeName()); @@ -737,7 +806,7 @@ IRInterpreter::Interpret (llvm::Module &module, case Instruction::Alloca: { const AllocaInst *alloca_inst = dyn_cast<AllocaInst>(inst); - + if (!alloca_inst) { if (log) @@ -746,7 +815,7 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(interpreter_internal_error); return false; } - + if (alloca_inst->isArrayAllocation()) { if (log) @@ -755,17 +824,17 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(unsupported_opcode_error); return false; } - + // The semantics of Alloca are: // Create a region R of virtual memory of type T, backed by a data buffer // Create a region P of virtual memory of type T*, backed by a data buffer // Write the virtual address of R into P - + Type *T = alloca_inst->getAllocatedType(); Type *Tptr = alloca_inst->getType(); - + lldb::addr_t R = frame.Malloc(T); - + if (R == LLDB_INVALID_ADDRESS) { if (log) @@ -774,9 +843,9 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(memory_allocation_error); return false; } - + lldb::addr_t P = frame.Malloc(Tptr); - + if (P == LLDB_INVALID_ADDRESS) { if (log) @@ -785,11 +854,11 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(memory_allocation_error); return false; } - + lldb_private::Error write_error; - + memory_map.WritePointerToMemory(P, R, write_error); - + if (!write_error.Success()) { if (log) @@ -801,9 +870,9 @@ IRInterpreter::Interpret (llvm::Module &module, memory_map.Free(R, free_error); return false; } - + frame.m_values[alloca_inst] = P; - + if (log) { log->Printf("Interpreted an AllocaInst"); @@ -816,7 +885,7 @@ IRInterpreter::Interpret (llvm::Module &module, case Instruction::ZExt: { const CastInst *cast_inst = dyn_cast<CastInst>(inst); - + if (!cast_inst) { if (log) @@ -825,11 +894,11 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(interpreter_internal_error); return false; } - + Value *source = cast_inst->getOperand(0); - + lldb_private::Scalar S; - + if (!frame.EvaluateValue(S, source, module)) { if (log) @@ -838,14 +907,14 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(bad_value_error); return false; } - + frame.AssignValue(inst, S, module); } break; case Instruction::SExt: { const CastInst *cast_inst = dyn_cast<CastInst>(inst); - + if (!cast_inst) { if (log) @@ -854,11 +923,11 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(interpreter_internal_error); return false; } - + Value *source = cast_inst->getOperand(0); - + lldb_private::Scalar S; - + if (!frame.EvaluateValue(S, source, module)) { if (log) @@ -867,18 +936,18 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(bad_value_error); return false; } - + S.MakeSigned(); - + lldb_private::Scalar S_signextend(S.SLongLong()); - + frame.AssignValue(inst, S_signextend, module); } break; case Instruction::Br: { const BranchInst *br_inst = dyn_cast<BranchInst>(inst); - + if (!br_inst) { if (log) @@ -887,13 +956,13 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(interpreter_internal_error); return false; } - + if (br_inst->isConditional()) { Value *condition = br_inst->getCondition(); - + lldb_private::Scalar C; - + if (!frame.EvaluateValue(C, condition, module)) { if (log) @@ -902,12 +971,12 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(bad_value_error); return false; } - + if (C.GetRawBits64(0)) frame.Jump(br_inst->getSuccessor(0)); else frame.Jump(br_inst->getSuccessor(1)); - + if (log) { log->Printf("Interpreted a BrInst with a condition"); @@ -917,7 +986,7 @@ IRInterpreter::Interpret (llvm::Module &module, else { frame.Jump(br_inst->getSuccessor(0)); - + if (log) { log->Printf("Interpreted a BrInst with no condition"); @@ -928,7 +997,7 @@ IRInterpreter::Interpret (llvm::Module &module, case Instruction::GetElementPtr: { const GetElementPtrInst *gep_inst = dyn_cast<GetElementPtrInst>(inst); - + if (!gep_inst) { if (log) @@ -937,12 +1006,12 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(interpreter_internal_error); return false; } - + const Value *pointer_operand = gep_inst->getPointerOperand(); Type *pointer_type = pointer_operand->getType(); - + lldb_private::Scalar P; - + if (!frame.EvaluateValue(P, pointer_operand, module)) { if (log) @@ -951,25 +1020,25 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(bad_value_error); return false; } - + typedef SmallVector <Value *, 8> IndexVector; typedef IndexVector::iterator IndexIterator; - + SmallVector <Value *, 8> indices (gep_inst->idx_begin(), gep_inst->idx_end()); - + SmallVector <Value *, 8> const_indices; - + for (IndexIterator ii = indices.begin(), ie = indices.end(); ii != ie; ++ii) { ConstantInt *constant_index = dyn_cast<ConstantInt>(*ii); - + if (!constant_index) { lldb_private::Scalar I; - + if (!frame.EvaluateValue(I, *ii, module)) { if (log) @@ -978,22 +1047,22 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(bad_value_error); return false; } - + if (log) log->Printf("Evaluated constant index %s as %llu", PrintValue(*ii).c_str(), I.ULongLong(LLDB_INVALID_ADDRESS)); - + constant_index = cast<ConstantInt>(ConstantInt::get((*ii)->getType(), I.ULongLong(LLDB_INVALID_ADDRESS))); } - + const_indices.push_back(constant_index); } - + uint64_t offset = data_layout.getIndexedOffset(pointer_type, const_indices); - + lldb_private::Scalar Poffset = P + offset; - + frame.AssignValue(inst, Poffset, module); - + if (log) { log->Printf("Interpreted a GetElementPtrInst"); @@ -1005,7 +1074,7 @@ IRInterpreter::Interpret (llvm::Module &module, case Instruction::ICmp: { const ICmpInst *icmp_inst = dyn_cast<ICmpInst>(inst); - + if (!icmp_inst) { if (log) @@ -1014,15 +1083,15 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(interpreter_internal_error); return false; } - + CmpInst::Predicate predicate = icmp_inst->getPredicate(); - + Value *lhs = inst->getOperand(0); Value *rhs = inst->getOperand(1); - + lldb_private::Scalar L; lldb_private::Scalar R; - + if (!frame.EvaluateValue(L, lhs, module)) { if (log) @@ -1031,7 +1100,7 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(bad_value_error); return false; } - + if (!frame.EvaluateValue(R, rhs, module)) { if (log) @@ -1040,9 +1109,9 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(bad_value_error); return false; } - + lldb_private::Scalar result; - + switch (predicate) { default: @@ -1086,9 +1155,9 @@ IRInterpreter::Interpret (llvm::Module &module, result = (L <= R); break; } - + frame.AssignValue(inst, result, module); - + if (log) { log->Printf("Interpreted an ICmpInst"); @@ -1101,7 +1170,7 @@ IRInterpreter::Interpret (llvm::Module &module, case Instruction::IntToPtr: { const IntToPtrInst *int_to_ptr_inst = dyn_cast<IntToPtrInst>(inst); - + if (!int_to_ptr_inst) { if (log) @@ -1110,11 +1179,11 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(interpreter_internal_error); return false; } - + Value *src_operand = int_to_ptr_inst->getOperand(0); - + lldb_private::Scalar I; - + if (!frame.EvaluateValue(I, src_operand, module)) { if (log) @@ -1123,9 +1192,9 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(bad_value_error); return false; } - + frame.AssignValue(inst, I, module); - + if (log) { log->Printf("Interpreted an IntToPtr"); @@ -1137,7 +1206,7 @@ IRInterpreter::Interpret (llvm::Module &module, case Instruction::PtrToInt: { const PtrToIntInst *ptr_to_int_inst = dyn_cast<PtrToIntInst>(inst); - + if (!ptr_to_int_inst) { if (log) @@ -1146,11 +1215,11 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(interpreter_internal_error); return false; } - + Value *src_operand = ptr_to_int_inst->getOperand(0); - + lldb_private::Scalar I; - + if (!frame.EvaluateValue(I, src_operand, module)) { if (log) @@ -1159,9 +1228,9 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(bad_value_error); return false; } - + frame.AssignValue(inst, I, module); - + if (log) { log->Printf("Interpreted a PtrToInt"); @@ -1173,7 +1242,7 @@ IRInterpreter::Interpret (llvm::Module &module, case Instruction::Trunc: { const TruncInst *trunc_inst = dyn_cast<TruncInst>(inst); - + if (!trunc_inst) { if (log) @@ -1182,11 +1251,11 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(interpreter_internal_error); return false; } - + Value *src_operand = trunc_inst->getOperand(0); - + lldb_private::Scalar I; - + if (!frame.EvaluateValue(I, src_operand, module)) { if (log) @@ -1195,9 +1264,9 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(bad_value_error); return false; } - + frame.AssignValue(inst, I, module); - + if (log) { log->Printf("Interpreted a Trunc"); @@ -1209,7 +1278,7 @@ IRInterpreter::Interpret (llvm::Module &module, case Instruction::Load: { const LoadInst *load_inst = dyn_cast<LoadInst>(inst); - + if (!load_inst) { if (log) @@ -1218,15 +1287,15 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(interpreter_internal_error); return false; } - + // The semantics of Load are: // Create a region D that will contain the loaded data // Resolve the region P containing a pointer // Dereference P to get the region R that the data should be loaded from // Transfer a unit of type type(D) from R to D - + const Value *pointer_operand = load_inst->getPointerOperand(); - + Type *pointer_ty = pointer_operand->getType(); PointerType *pointer_ptr_ty = dyn_cast<PointerType>(pointer_ty); if (!pointer_ptr_ty) @@ -1238,10 +1307,10 @@ IRInterpreter::Interpret (llvm::Module &module, return false; } Type *target_ty = pointer_ptr_ty->getElementType(); - + lldb::addr_t D = frame.ResolveValue(load_inst, module); lldb::addr_t P = frame.ResolveValue(pointer_operand, module); - + if (D == LLDB_INVALID_ADDRESS) { if (log) @@ -1250,7 +1319,7 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(bad_value_error); return false; } - + if (P == LLDB_INVALID_ADDRESS) { if (log) @@ -1259,11 +1328,11 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(bad_value_error); return false; } - + lldb::addr_t R; lldb_private::Error read_error; memory_map.ReadPointerFromMemory(&R, P, read_error); - + if (!read_error.Success()) { if (log) @@ -1272,10 +1341,10 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(memory_read_error); return false; } - + size_t target_size = data_layout.getTypeStoreSize(target_ty); lldb_private::DataBufferHeap buffer(target_size, 0); - + read_error.Clear(); memory_map.ReadMemory(buffer.GetBytes(), R, buffer.GetByteSize(), read_error); if (!read_error.Success()) @@ -1286,7 +1355,7 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(memory_read_error); return false; } - + lldb_private::Error write_error; memory_map.WriteMemory(D, buffer.GetBytes(), buffer.GetByteSize(), write_error); if (!write_error.Success()) @@ -1297,7 +1366,7 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(memory_read_error); return false; } - + if (log) { log->Printf("Interpreted a LoadInst"); @@ -1314,7 +1383,7 @@ IRInterpreter::Interpret (llvm::Module &module, case Instruction::Store: { const StoreInst *store_inst = dyn_cast<StoreInst>(inst); - + if (!store_inst) { if (log) @@ -1323,25 +1392,25 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(interpreter_internal_error); return false; } - + // The semantics of Store are: // Resolve the region D containing the data to be stored // Resolve the region P containing a pointer // Dereference P to get the region R that the data should be stored in // Transfer a unit of type type(D) from D to R - + const Value *value_operand = store_inst->getValueOperand(); const Value *pointer_operand = store_inst->getPointerOperand(); - + Type *pointer_ty = pointer_operand->getType(); PointerType *pointer_ptr_ty = dyn_cast<PointerType>(pointer_ty); if (!pointer_ptr_ty) return false; Type *target_ty = pointer_ptr_ty->getElementType(); - + lldb::addr_t D = frame.ResolveValue(value_operand, module); lldb::addr_t P = frame.ResolveValue(pointer_operand, module); - + if (D == LLDB_INVALID_ADDRESS) { if (log) @@ -1350,7 +1419,7 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(bad_value_error); return false; } - + if (P == LLDB_INVALID_ADDRESS) { if (log) @@ -1359,11 +1428,11 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(bad_value_error); return false; } - + lldb::addr_t R; lldb_private::Error read_error; memory_map.ReadPointerFromMemory(&R, P, read_error); - + if (!read_error.Success()) { if (log) @@ -1372,10 +1441,10 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(memory_read_error); return false; } - + size_t target_size = data_layout.getTypeStoreSize(target_ty); lldb_private::DataBufferHeap buffer(target_size, 0); - + read_error.Clear(); memory_map.ReadMemory(buffer.GetBytes(), D, buffer.GetByteSize(), read_error); if (!read_error.Success()) @@ -1386,7 +1455,7 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(memory_read_error); return false; } - + lldb_private::Error write_error; memory_map.WriteMemory(R, buffer.GetBytes(), buffer.GetByteSize(), write_error); if (!write_error.Success()) @@ -1397,7 +1466,7 @@ IRInterpreter::Interpret (llvm::Module &module, error.SetErrorString(memory_write_error); return false; } - + if (log) { log->Printf("Interpreted a StoreInst"); @@ -1408,16 +1477,16 @@ IRInterpreter::Interpret (llvm::Module &module, } break; } - + ++frame.m_ii; } - + if (num_insts >= 4096) { error.SetErrorToGenericError(); error.SetErrorString(infinite_loop_error); return false; } - + return false; } |
