1 //===-- ABISysV_arm.cpp -----------------------------------------*- C++ -*-===//
3 // The LLVM Compiler Infrastructure
5 // This file is distributed under the University of Illinois Open Source
6 // License. See LICENSE.TXT for details.
8 //===----------------------------------------------------------------------===//
10 #include "ABISysV_arm.h"
16 // Other libraries and framework includes
17 #include "llvm/ADT/STLExtras.h"
18 #include "llvm/ADT/Triple.h"
21 #include "lldb/Core/Module.h"
22 #include "lldb/Core/PluginManager.h"
23 #include "lldb/Core/RegisterValue.h"
24 #include "lldb/Core/Scalar.h"
25 #include "lldb/Core/Value.h"
26 #include "lldb/Core/ValueObjectConstResult.h"
27 #include "lldb/Symbol/UnwindPlan.h"
28 #include "lldb/Target/Process.h"
29 #include "lldb/Target/RegisterContext.h"
30 #include "lldb/Target/Target.h"
31 #include "lldb/Target/Thread.h"
32 #include "lldb/Utility/ConstString.h"
33 #include "lldb/Utility/Status.h"
35 #include "Plugins/Process/Utility/ARMDefines.h"
36 #include "Utility/ARM_DWARF_Registers.h"
37 #include "Utility/ARM_ehframe_Registers.h"
40 using namespace lldb_private;
42 static RegisterInfo g_register_infos[] = {
43 // NAME ALT SZ OFF ENCODING FORMAT EH_FRAME
44 // DWARF GENERIC PROCESS PLUGIN
45 // LLDB NATIVE VALUE REGS INVALIDATE REGS
46 // ========== ======= == === ============= ============
47 // ======================= =================== ===========================
48 // ======================= ====================== ==========
56 {ehframe_r0, dwarf_r0, LLDB_REGNUM_GENERIC_ARG1, LLDB_INVALID_REGNUM,
68 {ehframe_r1, dwarf_r1, LLDB_REGNUM_GENERIC_ARG2, LLDB_INVALID_REGNUM,
80 {ehframe_r2, dwarf_r2, LLDB_REGNUM_GENERIC_ARG3, LLDB_INVALID_REGNUM,
92 {ehframe_r3, dwarf_r3, LLDB_REGNUM_GENERIC_ARG4, LLDB_INVALID_REGNUM,
104 {ehframe_r4, dwarf_r4, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
105 LLDB_INVALID_REGNUM},
116 {ehframe_r5, dwarf_r5, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
117 LLDB_INVALID_REGNUM},
128 {ehframe_r6, dwarf_r6, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
129 LLDB_INVALID_REGNUM},
140 {ehframe_r7, dwarf_r7, LLDB_REGNUM_GENERIC_FP, LLDB_INVALID_REGNUM,
141 LLDB_INVALID_REGNUM},
152 {ehframe_r8, dwarf_r8, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
153 LLDB_INVALID_REGNUM},
164 {ehframe_r9, dwarf_r9, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
165 LLDB_INVALID_REGNUM},
176 {ehframe_r10, dwarf_r10, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
177 LLDB_INVALID_REGNUM},
188 {ehframe_r11, dwarf_r11, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
189 LLDB_INVALID_REGNUM},
200 {ehframe_r12, dwarf_r12, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
201 LLDB_INVALID_REGNUM},
212 {ehframe_sp, dwarf_sp, LLDB_REGNUM_GENERIC_SP, LLDB_INVALID_REGNUM,
213 LLDB_INVALID_REGNUM},
224 {ehframe_lr, dwarf_lr, LLDB_REGNUM_GENERIC_RA, LLDB_INVALID_REGNUM,
225 LLDB_INVALID_REGNUM},
236 {ehframe_pc, dwarf_pc, LLDB_REGNUM_GENERIC_PC, LLDB_INVALID_REGNUM,
237 LLDB_INVALID_REGNUM},
248 {ehframe_cpsr, dwarf_cpsr, LLDB_REGNUM_GENERIC_FLAGS, LLDB_INVALID_REGNUM,
249 LLDB_INVALID_REGNUM},
260 {LLDB_INVALID_REGNUM, dwarf_s0, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
261 LLDB_INVALID_REGNUM},
272 {LLDB_INVALID_REGNUM, dwarf_s1, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
273 LLDB_INVALID_REGNUM},
284 {LLDB_INVALID_REGNUM, dwarf_s2, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
285 LLDB_INVALID_REGNUM},
296 {LLDB_INVALID_REGNUM, dwarf_s3, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
297 LLDB_INVALID_REGNUM},
308 {LLDB_INVALID_REGNUM, dwarf_s4, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
309 LLDB_INVALID_REGNUM},
320 {LLDB_INVALID_REGNUM, dwarf_s5, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
321 LLDB_INVALID_REGNUM},
332 {LLDB_INVALID_REGNUM, dwarf_s6, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
333 LLDB_INVALID_REGNUM},
344 {LLDB_INVALID_REGNUM, dwarf_s7, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
345 LLDB_INVALID_REGNUM},
356 {LLDB_INVALID_REGNUM, dwarf_s8, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
357 LLDB_INVALID_REGNUM},
368 {LLDB_INVALID_REGNUM, dwarf_s9, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
369 LLDB_INVALID_REGNUM},
380 {LLDB_INVALID_REGNUM, dwarf_s10, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
381 LLDB_INVALID_REGNUM},
392 {LLDB_INVALID_REGNUM, dwarf_s11, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
393 LLDB_INVALID_REGNUM},
404 {LLDB_INVALID_REGNUM, dwarf_s12, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
405 LLDB_INVALID_REGNUM},
416 {LLDB_INVALID_REGNUM, dwarf_s13, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
417 LLDB_INVALID_REGNUM},
428 {LLDB_INVALID_REGNUM, dwarf_s14, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
429 LLDB_INVALID_REGNUM},
440 {LLDB_INVALID_REGNUM, dwarf_s15, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
441 LLDB_INVALID_REGNUM},
452 {LLDB_INVALID_REGNUM, dwarf_s16, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
453 LLDB_INVALID_REGNUM},
464 {LLDB_INVALID_REGNUM, dwarf_s17, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
465 LLDB_INVALID_REGNUM},
476 {LLDB_INVALID_REGNUM, dwarf_s18, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
477 LLDB_INVALID_REGNUM},
488 {LLDB_INVALID_REGNUM, dwarf_s19, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
489 LLDB_INVALID_REGNUM},
500 {LLDB_INVALID_REGNUM, dwarf_s20, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
501 LLDB_INVALID_REGNUM},
512 {LLDB_INVALID_REGNUM, dwarf_s21, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
513 LLDB_INVALID_REGNUM},
524 {LLDB_INVALID_REGNUM, dwarf_s22, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
525 LLDB_INVALID_REGNUM},
536 {LLDB_INVALID_REGNUM, dwarf_s23, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
537 LLDB_INVALID_REGNUM},
548 {LLDB_INVALID_REGNUM, dwarf_s24, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
549 LLDB_INVALID_REGNUM},
560 {LLDB_INVALID_REGNUM, dwarf_s25, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
561 LLDB_INVALID_REGNUM},
572 {LLDB_INVALID_REGNUM, dwarf_s26, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
573 LLDB_INVALID_REGNUM},
584 {LLDB_INVALID_REGNUM, dwarf_s27, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
585 LLDB_INVALID_REGNUM},
596 {LLDB_INVALID_REGNUM, dwarf_s28, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
597 LLDB_INVALID_REGNUM},
608 {LLDB_INVALID_REGNUM, dwarf_s29, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
609 LLDB_INVALID_REGNUM},
620 {LLDB_INVALID_REGNUM, dwarf_s30, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
621 LLDB_INVALID_REGNUM},
632 {LLDB_INVALID_REGNUM, dwarf_s31, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
633 LLDB_INVALID_REGNUM},
644 {LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
645 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
656 {LLDB_INVALID_REGNUM, dwarf_d0, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
657 LLDB_INVALID_REGNUM},
668 {LLDB_INVALID_REGNUM, dwarf_d1, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
669 LLDB_INVALID_REGNUM},
680 {LLDB_INVALID_REGNUM, dwarf_d2, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
681 LLDB_INVALID_REGNUM},
692 {LLDB_INVALID_REGNUM, dwarf_d3, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
693 LLDB_INVALID_REGNUM},
704 {LLDB_INVALID_REGNUM, dwarf_d4, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
705 LLDB_INVALID_REGNUM},
716 {LLDB_INVALID_REGNUM, dwarf_d5, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
717 LLDB_INVALID_REGNUM},
728 {LLDB_INVALID_REGNUM, dwarf_d6, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
729 LLDB_INVALID_REGNUM},
740 {LLDB_INVALID_REGNUM, dwarf_d7, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
741 LLDB_INVALID_REGNUM},
752 {LLDB_INVALID_REGNUM, dwarf_d8, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
753 LLDB_INVALID_REGNUM},
764 {LLDB_INVALID_REGNUM, dwarf_d9, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
765 LLDB_INVALID_REGNUM},
776 {LLDB_INVALID_REGNUM, dwarf_d10, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
777 LLDB_INVALID_REGNUM},
788 {LLDB_INVALID_REGNUM, dwarf_d11, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
789 LLDB_INVALID_REGNUM},
800 {LLDB_INVALID_REGNUM, dwarf_d12, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
801 LLDB_INVALID_REGNUM},
812 {LLDB_INVALID_REGNUM, dwarf_d13, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
813 LLDB_INVALID_REGNUM},
824 {LLDB_INVALID_REGNUM, dwarf_d14, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
825 LLDB_INVALID_REGNUM},
836 {LLDB_INVALID_REGNUM, dwarf_d15, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
837 LLDB_INVALID_REGNUM},
848 {LLDB_INVALID_REGNUM, dwarf_d16, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
849 LLDB_INVALID_REGNUM},
860 {LLDB_INVALID_REGNUM, dwarf_d17, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
861 LLDB_INVALID_REGNUM},
872 {LLDB_INVALID_REGNUM, dwarf_d18, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
873 LLDB_INVALID_REGNUM},
884 {LLDB_INVALID_REGNUM, dwarf_d19, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
885 LLDB_INVALID_REGNUM},
896 {LLDB_INVALID_REGNUM, dwarf_d20, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
897 LLDB_INVALID_REGNUM},
908 {LLDB_INVALID_REGNUM, dwarf_d21, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
909 LLDB_INVALID_REGNUM},
920 {LLDB_INVALID_REGNUM, dwarf_d22, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
921 LLDB_INVALID_REGNUM},
932 {LLDB_INVALID_REGNUM, dwarf_d23, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
933 LLDB_INVALID_REGNUM},
944 {LLDB_INVALID_REGNUM, dwarf_d24, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
945 LLDB_INVALID_REGNUM},
956 {LLDB_INVALID_REGNUM, dwarf_d25, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
957 LLDB_INVALID_REGNUM},
968 {LLDB_INVALID_REGNUM, dwarf_d26, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
969 LLDB_INVALID_REGNUM},
980 {LLDB_INVALID_REGNUM, dwarf_d27, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
981 LLDB_INVALID_REGNUM},
992 {LLDB_INVALID_REGNUM, dwarf_d28, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
993 LLDB_INVALID_REGNUM},
1004 {LLDB_INVALID_REGNUM, dwarf_d29, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
1005 LLDB_INVALID_REGNUM},
1016 {LLDB_INVALID_REGNUM, dwarf_d30, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
1017 LLDB_INVALID_REGNUM},
1028 {LLDB_INVALID_REGNUM, dwarf_d31, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
1029 LLDB_INVALID_REGNUM},
1040 {LLDB_INVALID_REGNUM, dwarf_r8_usr, LLDB_INVALID_REGNUM,
1041 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1052 {LLDB_INVALID_REGNUM, dwarf_r9_usr, LLDB_INVALID_REGNUM,
1053 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1064 {LLDB_INVALID_REGNUM, dwarf_r10_usr, LLDB_INVALID_REGNUM,
1065 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1076 {LLDB_INVALID_REGNUM, dwarf_r11_usr, LLDB_INVALID_REGNUM,
1077 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1088 {LLDB_INVALID_REGNUM, dwarf_r12_usr, LLDB_INVALID_REGNUM,
1089 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1100 {LLDB_INVALID_REGNUM, dwarf_r13_usr, LLDB_INVALID_REGNUM,
1101 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1112 {LLDB_INVALID_REGNUM, dwarf_r14_usr, LLDB_INVALID_REGNUM,
1113 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1124 {LLDB_INVALID_REGNUM, dwarf_r8_fiq, LLDB_INVALID_REGNUM,
1125 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1136 {LLDB_INVALID_REGNUM, dwarf_r9_fiq, LLDB_INVALID_REGNUM,
1137 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1148 {LLDB_INVALID_REGNUM, dwarf_r10_fiq, LLDB_INVALID_REGNUM,
1149 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1160 {LLDB_INVALID_REGNUM, dwarf_r11_fiq, LLDB_INVALID_REGNUM,
1161 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1172 {LLDB_INVALID_REGNUM, dwarf_r12_fiq, LLDB_INVALID_REGNUM,
1173 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1184 {LLDB_INVALID_REGNUM, dwarf_r13_fiq, LLDB_INVALID_REGNUM,
1185 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1196 {LLDB_INVALID_REGNUM, dwarf_r14_fiq, LLDB_INVALID_REGNUM,
1197 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1208 {LLDB_INVALID_REGNUM, dwarf_r13_irq, LLDB_INVALID_REGNUM,
1209 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1220 {LLDB_INVALID_REGNUM, dwarf_r14_irq, LLDB_INVALID_REGNUM,
1221 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1232 {LLDB_INVALID_REGNUM, dwarf_r13_abt, LLDB_INVALID_REGNUM,
1233 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1244 {LLDB_INVALID_REGNUM, dwarf_r14_abt, LLDB_INVALID_REGNUM,
1245 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1256 {LLDB_INVALID_REGNUM, dwarf_r13_und, LLDB_INVALID_REGNUM,
1257 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1268 {LLDB_INVALID_REGNUM, dwarf_r14_und, LLDB_INVALID_REGNUM,
1269 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1280 {LLDB_INVALID_REGNUM, dwarf_r13_svc, LLDB_INVALID_REGNUM,
1281 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1292 {LLDB_INVALID_REGNUM, dwarf_r14_svc, LLDB_INVALID_REGNUM,
1293 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1299 static const uint32_t k_num_register_infos =
1300 llvm::array_lengthof(g_register_infos);
1301 static bool g_register_info_names_constified = false;
1303 const lldb_private::RegisterInfo *
1304 ABISysV_arm::GetRegisterInfoArray(uint32_t &count) {
1305 // Make the C-string names and alt_names for the register infos into const
1306 // C-string values by having the ConstString unique the names in the global
1307 // constant C-string pool.
1308 if (!g_register_info_names_constified) {
1309 g_register_info_names_constified = true;
1310 for (uint32_t i = 0; i < k_num_register_infos; ++i) {
1311 if (g_register_infos[i].name)
1312 g_register_infos[i].name =
1313 ConstString(g_register_infos[i].name).GetCString();
1314 if (g_register_infos[i].alt_name)
1315 g_register_infos[i].alt_name =
1316 ConstString(g_register_infos[i].alt_name).GetCString();
1319 count = k_num_register_infos;
1320 return g_register_infos;
1323 size_t ABISysV_arm::GetRedZoneSize() const { return 0; }
1325 //------------------------------------------------------------------
1327 //------------------------------------------------------------------
1330 ABISysV_arm::CreateInstance(lldb::ProcessSP process_sp, const ArchSpec &arch) {
1331 static ABISP g_abi_sp;
1332 const llvm::Triple::ArchType arch_type = arch.GetTriple().getArch();
1333 const llvm::Triple::VendorType vendor_type = arch.GetTriple().getVendor();
1335 if (vendor_type != llvm::Triple::Apple) {
1336 if ((arch_type == llvm::Triple::arm) ||
1337 (arch_type == llvm::Triple::thumb)) {
1339 g_abi_sp.reset(new ABISysV_arm(process_sp));
1347 bool ABISysV_arm::PrepareTrivialCall(Thread &thread, addr_t sp,
1348 addr_t function_addr, addr_t return_addr,
1349 llvm::ArrayRef<addr_t> args) const {
1350 RegisterContext *reg_ctx = thread.GetRegisterContext().get();
1354 const uint32_t pc_reg_num = reg_ctx->ConvertRegisterKindToRegisterNumber(
1355 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_PC);
1356 const uint32_t sp_reg_num = reg_ctx->ConvertRegisterKindToRegisterNumber(
1357 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_SP);
1358 const uint32_t ra_reg_num = reg_ctx->ConvertRegisterKindToRegisterNumber(
1359 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_RA);
1361 RegisterValue reg_value;
1363 const uint8_t reg_names[] = {
1364 LLDB_REGNUM_GENERIC_ARG1, LLDB_REGNUM_GENERIC_ARG2,
1365 LLDB_REGNUM_GENERIC_ARG3, LLDB_REGNUM_GENERIC_ARG4};
1367 llvm::ArrayRef<addr_t>::iterator ai = args.begin(), ae = args.end();
1369 for (size_t i = 0; i < llvm::array_lengthof(reg_names); ++i) {
1373 reg_value.SetUInt32(*ai);
1374 if (!reg_ctx->WriteRegister(
1375 reg_ctx->GetRegisterInfo(eRegisterKindGeneric, reg_names[i]),
1383 // Spill onto the stack
1384 size_t num_stack_regs = ae - ai;
1386 sp -= (num_stack_regs * 4);
1387 // Keep the stack 8 byte aligned, not that we need to
1388 sp &= ~(8ull - 1ull);
1390 // just using arg1 to get the right size
1391 const RegisterInfo *reg_info = reg_ctx->GetRegisterInfo(
1392 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG1);
1394 addr_t arg_pos = sp;
1396 for (; ai != ae; ++ai) {
1397 reg_value.SetUInt32(*ai);
1399 ->WriteRegisterValueToMemory(reg_info, arg_pos,
1400 reg_info->byte_size, reg_value)
1403 arg_pos += reg_info->byte_size;
1407 TargetSP target_sp(thread.CalculateTarget());
1410 // Figure out if our return address is ARM or Thumb by using the
1411 // Address::GetCallableLoadAddress(Target*) which will figure out the ARM
1412 // thumb-ness and set the correct address bits for us.
1413 so_addr.SetLoadAddress(return_addr, target_sp.get());
1414 return_addr = so_addr.GetCallableLoadAddress(target_sp.get());
1416 // Set "lr" to the return address
1417 if (!reg_ctx->WriteRegisterFromUnsigned(ra_reg_num, return_addr))
1420 // Set "sp" to the requested value
1421 if (!reg_ctx->WriteRegisterFromUnsigned(sp_reg_num, sp))
1424 // If bit zero or 1 is set, this must be a thumb function, no need to figure
1425 // this out from the symbols.
1426 so_addr.SetLoadAddress(function_addr, target_sp.get());
1427 function_addr = so_addr.GetCallableLoadAddress(target_sp.get());
1429 const RegisterInfo *cpsr_reg_info =
1430 reg_ctx->GetRegisterInfo(eRegisterKindGeneric, LLDB_REGNUM_GENERIC_FLAGS);
1431 const uint32_t curr_cpsr = reg_ctx->ReadRegisterAsUnsigned(cpsr_reg_info, 0);
1433 // Make a new CPSR and mask out any Thumb IT (if/then) bits
1434 uint32_t new_cpsr = curr_cpsr & ~MASK_CPSR_IT_MASK;
1435 // If bit zero or 1 is set, this must be thumb...
1436 if (function_addr & 1ull)
1437 new_cpsr |= MASK_CPSR_T; // Set T bit in CPSR
1439 new_cpsr &= ~MASK_CPSR_T; // Clear T bit in CPSR
1441 if (new_cpsr != curr_cpsr) {
1442 if (!reg_ctx->WriteRegisterFromUnsigned(cpsr_reg_info, new_cpsr))
1447 ~1ull; // clear bit zero since the CPSR will take care of the mode for us
1449 // Set "pc" to the address requested
1450 if (!reg_ctx->WriteRegisterFromUnsigned(pc_reg_num, function_addr))
1456 bool ABISysV_arm::GetArgumentValues(Thread &thread, ValueList &values) const {
1457 uint32_t num_values = values.GetSize();
1459 ExecutionContext exe_ctx(thread.shared_from_this());
1460 // For now, assume that the types in the AST values come from the Target's
1463 // Extract the register context so we can read arguments from registers
1465 RegisterContext *reg_ctx = thread.GetRegisterContext().get();
1472 for (uint32_t value_idx = 0; value_idx < num_values; ++value_idx) {
1473 // We currently only support extracting values with Clang QualTypes. Do we
1474 // care about others?
1475 Value *value = values.GetValueAtIndex(value_idx);
1480 CompilerType compiler_type = value->GetCompilerType();
1481 if (compiler_type) {
1482 bool is_signed = false;
1483 size_t bit_width = 0;
1484 if (compiler_type.IsIntegerOrEnumerationType(is_signed)) {
1485 bit_width = compiler_type.GetBitSize(&thread);
1486 } else if (compiler_type.IsPointerOrReferenceType()) {
1487 bit_width = compiler_type.GetBitSize(&thread);
1489 // We only handle integer, pointer and reference types currently...
1493 if (bit_width <= (exe_ctx.GetProcessRef().GetAddressByteSize() * 8)) {
1494 if (value_idx < 4) {
1495 // Arguments 1-4 are in r0-r3...
1496 const RegisterInfo *arg_reg_info = nullptr;
1497 arg_reg_info = reg_ctx->GetRegisterInfo(
1498 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG1 + value_idx);
1500 RegisterValue reg_value;
1502 if (reg_ctx->ReadRegister(arg_reg_info, reg_value)) {
1504 reg_value.SignExtend(bit_width);
1505 if (!reg_value.GetScalarValue(value->GetScalar()))
1513 // Read the stack pointer if it already hasn't been read
1514 sp = reg_ctx->GetSP(0);
1519 // Arguments 5 on up are on the stack
1520 const uint32_t arg_byte_size = (bit_width + (8 - 1)) / 8;
1522 if (!exe_ctx.GetProcessRef().ReadScalarIntegerFromMemory(
1523 sp, arg_byte_size, is_signed, value->GetScalar(), error))
1526 sp += arg_byte_size;
1534 static bool GetReturnValuePassedInMemory(Thread &thread,
1535 RegisterContext *reg_ctx,
1536 size_t byte_size, Value &value) {
1538 DataBufferHeap buffer(byte_size, 0);
1540 const RegisterInfo *r0_reg_info =
1541 reg_ctx->GetRegisterInfo(eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG1);
1543 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT32_MAX;
1544 thread.GetProcess()->ReadMemory(address, buffer.GetBytes(),
1545 buffer.GetByteSize(), error);
1550 value.SetBytes(buffer.GetBytes(), buffer.GetByteSize());
1554 bool ABISysV_arm::IsArmHardFloat(Thread &thread) const {
1555 ProcessSP process_sp(thread.GetProcess());
1557 const ArchSpec &arch(process_sp->GetTarget().GetArchitecture());
1559 return (arch.GetFlags() & ArchSpec::eARM_abi_hard_float) != 0;
1565 ValueObjectSP ABISysV_arm::GetReturnValueObjectImpl(
1566 Thread &thread, lldb_private::CompilerType &compiler_type) const {
1568 ValueObjectSP return_valobj_sp;
1571 return return_valobj_sp;
1573 // value.SetContext (Value::eContextTypeClangType,
1574 // compiler_type.GetOpaqueQualType());
1575 value.SetCompilerType(compiler_type);
1577 RegisterContext *reg_ctx = thread.GetRegisterContext().get();
1579 return return_valobj_sp;
1583 uint32_t float_count;
1584 bool is_vfp_candidate = false;
1585 uint8_t vfp_count = 0;
1586 uint8_t vfp_byte_size = 0;
1588 // Get the pointer to the first stack argument so we have a place to start
1589 // when reading data
1591 const RegisterInfo *r0_reg_info =
1592 reg_ctx->GetRegisterInfo(eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG1);
1593 size_t bit_width = compiler_type.GetBitSize(&thread);
1594 size_t byte_size = compiler_type.GetByteSize(&thread);
1596 if (compiler_type.IsIntegerOrEnumerationType(is_signed)) {
1597 switch (bit_width) {
1599 return return_valobj_sp;
1601 const RegisterInfo *r1_reg_info = reg_ctx->GetRegisterInfo(
1602 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG2);
1604 raw_value = reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT32_MAX;
1605 raw_value |= ((uint64_t)(reg_ctx->ReadRegisterAsUnsigned(r1_reg_info, 0) &
1609 value.GetScalar() = (int64_t)raw_value;
1611 value.GetScalar() = (uint64_t)raw_value;
1615 value.GetScalar() = (int32_t)(
1616 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT32_MAX);
1618 value.GetScalar() = (uint32_t)(
1619 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT32_MAX);
1623 value.GetScalar() = (int16_t)(
1624 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT16_MAX);
1626 value.GetScalar() = (uint16_t)(
1627 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT16_MAX);
1631 value.GetScalar() = (int8_t)(
1632 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT8_MAX);
1634 value.GetScalar() = (uint8_t)(
1635 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT8_MAX);
1638 } else if (compiler_type.IsPointerType()) {
1640 thread.GetRegisterContext()->ReadRegisterAsUnsigned(r0_reg_info, 0) &
1642 value.GetScalar() = ptr;
1643 } else if (compiler_type.IsVectorType(nullptr, nullptr)) {
1644 if (IsArmHardFloat(thread) && (byte_size == 8 || byte_size == 16)) {
1645 is_vfp_candidate = true;
1647 vfp_count = (byte_size == 8 ? 1 : 2);
1648 } else if (byte_size <= 16) {
1649 DataBufferHeap buffer(16, 0);
1650 uint32_t *buffer_ptr = (uint32_t *)buffer.GetBytes();
1652 for (uint32_t i = 0; 4 * i < byte_size; ++i) {
1653 const RegisterInfo *reg_info = reg_ctx->GetRegisterInfo(
1654 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG1 + i);
1656 reg_ctx->ReadRegisterAsUnsigned(reg_info, 0) & UINT32_MAX;
1658 value.SetBytes(buffer.GetBytes(), byte_size);
1660 if (!GetReturnValuePassedInMemory(thread, reg_ctx, byte_size, value))
1661 return return_valobj_sp;
1663 } else if (compiler_type.IsFloatingPointType(float_count, is_complex)) {
1664 if (float_count == 1 && !is_complex) {
1665 switch (bit_width) {
1667 return return_valobj_sp;
1669 static_assert(sizeof(double) == sizeof(uint64_t), "");
1671 if (IsArmHardFloat(thread)) {
1672 RegisterValue reg_value;
1673 const RegisterInfo *d0_reg_info =
1674 reg_ctx->GetRegisterInfoByName("d0", 0);
1675 reg_ctx->ReadRegister(d0_reg_info, reg_value);
1676 value.GetScalar() = reg_value.GetAsDouble();
1679 const RegisterInfo *r1_reg_info = reg_ctx->GetRegisterInfo(
1680 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG2);
1682 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT32_MAX;
1684 ((uint64_t)(reg_ctx->ReadRegisterAsUnsigned(r1_reg_info, 0) &
1687 value.GetScalar() = *reinterpret_cast<double *>(&raw_value);
1691 case 16: // Half precision returned after a conversion to single precision
1693 static_assert(sizeof(float) == sizeof(uint32_t), "");
1695 if (IsArmHardFloat(thread)) {
1696 RegisterValue reg_value;
1697 const RegisterInfo *s0_reg_info =
1698 reg_ctx->GetRegisterInfoByName("s0", 0);
1699 reg_ctx->ReadRegister(s0_reg_info, reg_value);
1700 value.GetScalar() = reg_value.GetAsFloat();
1704 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT32_MAX;
1705 value.GetScalar() = *reinterpret_cast<float *>(&raw_value);
1710 } else if (is_complex && float_count == 2) {
1711 if (IsArmHardFloat(thread)) {
1712 is_vfp_candidate = true;
1713 vfp_byte_size = byte_size / 2;
1715 } else if (!GetReturnValuePassedInMemory(thread, reg_ctx, bit_width / 8,
1717 return return_valobj_sp;
1720 return return_valobj_sp;
1721 } else if (compiler_type.IsAggregateType()) {
1722 if (IsArmHardFloat(thread)) {
1723 CompilerType base_type;
1724 const uint32_t homogeneous_count =
1725 compiler_type.IsHomogeneousAggregate(&base_type);
1727 if (homogeneous_count > 0 && homogeneous_count <= 4) {
1728 if (base_type.IsVectorType(nullptr, nullptr)) {
1729 uint64_t base_byte_size = base_type.GetByteSize(nullptr);
1730 if (base_byte_size == 8 || base_byte_size == 16) {
1731 is_vfp_candidate = true;
1734 (base_type.GetByteSize(nullptr) == 8 ? homogeneous_count
1735 : homogeneous_count * 2);
1737 } else if (base_type.IsFloatingPointType(float_count, is_complex)) {
1738 if (float_count == 1 && !is_complex) {
1739 is_vfp_candidate = true;
1740 vfp_byte_size = base_type.GetByteSize(nullptr);
1741 vfp_count = homogeneous_count;
1744 } else if (homogeneous_count == 0) {
1745 const uint32_t num_children = compiler_type.GetNumFields();
1747 if (num_children > 0 && num_children <= 2) {
1749 for (index = 0; index < num_children; index++) {
1752 compiler_type.GetFieldAtIndex(index, name, NULL, NULL, NULL);
1754 if (base_type.IsFloatingPointType(float_count, is_complex)) {
1755 if (float_count == 2 && is_complex) {
1757 vfp_byte_size != base_type.GetByteSize(nullptr))
1760 vfp_byte_size = base_type.GetByteSize(nullptr);
1767 if (index == num_children) {
1768 is_vfp_candidate = true;
1769 vfp_byte_size = (vfp_byte_size >> 1);
1770 vfp_count = (num_children << 1);
1776 if (byte_size <= 4) {
1777 RegisterValue r0_reg_value;
1778 uint32_t raw_value =
1779 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT32_MAX;
1780 value.SetBytes(&raw_value, byte_size);
1781 } else if (!is_vfp_candidate) {
1782 if (!GetReturnValuePassedInMemory(thread, reg_ctx, byte_size, value))
1783 return return_valobj_sp;
1787 return return_valobj_sp;
1790 if (is_vfp_candidate) {
1791 ProcessSP process_sp(thread.GetProcess());
1792 ByteOrder byte_order = process_sp->GetByteOrder();
1794 DataBufferSP data_sp(new DataBufferHeap(byte_size, 0));
1795 uint32_t data_offset = 0;
1797 for (uint32_t reg_index = 0; reg_index < vfp_count; reg_index++) {
1798 uint32_t regnum = 0;
1800 if (vfp_byte_size == 4)
1801 regnum = dwarf_s0 + reg_index;
1802 else if (vfp_byte_size == 8)
1803 regnum = dwarf_d0 + reg_index;
1807 const RegisterInfo *reg_info =
1808 reg_ctx->GetRegisterInfo(eRegisterKindDWARF, regnum);
1809 if (reg_info == NULL)
1812 RegisterValue reg_value;
1813 if (!reg_ctx->ReadRegister(reg_info, reg_value))
1816 // Make sure we have enough room in "data_sp"
1817 if ((data_offset + vfp_byte_size) <= data_sp->GetByteSize()) {
1819 const size_t bytes_copied = reg_value.GetAsMemoryData(
1820 reg_info, data_sp->GetBytes() + data_offset, vfp_byte_size,
1822 if (bytes_copied != vfp_byte_size)
1825 data_offset += bytes_copied;
1829 if (data_offset == byte_size) {
1831 data.SetByteOrder(byte_order);
1832 data.SetAddressByteSize(process_sp->GetAddressByteSize());
1833 data.SetData(data_sp);
1835 return ValueObjectConstResult::Create(&thread, compiler_type,
1836 ConstString(""), data);
1837 } else { // Some error occurred while getting values from registers
1838 return return_valobj_sp;
1842 // If we get here, we have a valid Value, so make our ValueObject out of it:
1844 return_valobj_sp = ValueObjectConstResult::Create(
1845 thread.GetStackFrameAtIndex(0).get(), value, ConstString(""));
1846 return return_valobj_sp;
1849 Status ABISysV_arm::SetReturnValueObject(lldb::StackFrameSP &frame_sp,
1850 lldb::ValueObjectSP &new_value_sp) {
1852 if (!new_value_sp) {
1853 error.SetErrorString("Empty value object for return value.");
1857 CompilerType compiler_type = new_value_sp->GetCompilerType();
1858 if (!compiler_type) {
1859 error.SetErrorString("Null clang type for return value.");
1863 Thread *thread = frame_sp->GetThread().get();
1869 RegisterContext *reg_ctx = thread->GetRegisterContext().get();
1871 bool set_it_simple = false;
1872 if (compiler_type.IsIntegerOrEnumerationType(is_signed) ||
1873 compiler_type.IsPointerType()) {
1876 size_t num_bytes = new_value_sp->GetData(data, data_error);
1877 if (data_error.Fail()) {
1878 error.SetErrorStringWithFormat(
1879 "Couldn't convert return value to raw data: %s",
1880 data_error.AsCString());
1883 lldb::offset_t offset = 0;
1884 if (num_bytes <= 8) {
1885 const RegisterInfo *r0_info = reg_ctx->GetRegisterInfo(
1886 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG1);
1887 if (num_bytes <= 4) {
1888 uint32_t raw_value = data.GetMaxU32(&offset, num_bytes);
1890 if (reg_ctx->WriteRegisterFromUnsigned(r0_info, raw_value))
1891 set_it_simple = true;
1893 uint32_t raw_value = data.GetMaxU32(&offset, 4);
1895 if (reg_ctx->WriteRegisterFromUnsigned(r0_info, raw_value)) {
1896 const RegisterInfo *r1_info = reg_ctx->GetRegisterInfo(
1897 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG2);
1898 uint32_t raw_value = data.GetMaxU32(&offset, num_bytes - offset);
1900 if (reg_ctx->WriteRegisterFromUnsigned(r1_info, raw_value))
1901 set_it_simple = true;
1905 error.SetErrorString("We don't support returning longer than 64 bit "
1906 "integer values at present.");
1908 } else if (compiler_type.IsFloatingPointType(count, is_complex)) {
1910 error.SetErrorString(
1911 "We don't support returning complex values at present");
1913 error.SetErrorString(
1914 "We don't support returning float values at present");
1918 error.SetErrorString(
1919 "We only support setting simple integer return types at present.");
1924 bool ABISysV_arm::CreateFunctionEntryUnwindPlan(UnwindPlan &unwind_plan) {
1925 unwind_plan.Clear();
1926 unwind_plan.SetRegisterKind(eRegisterKindDWARF);
1928 uint32_t lr_reg_num = dwarf_lr;
1929 uint32_t sp_reg_num = dwarf_sp;
1930 uint32_t pc_reg_num = dwarf_pc;
1932 UnwindPlan::RowSP row(new UnwindPlan::Row);
1934 // Our Call Frame Address is the stack pointer value
1935 row->GetCFAValue().SetIsRegisterPlusOffset(sp_reg_num, 0);
1937 // The previous PC is in the LR
1938 row->SetRegisterLocationToRegister(pc_reg_num, lr_reg_num, true);
1939 unwind_plan.AppendRow(row);
1941 // All other registers are the same.
1943 unwind_plan.SetSourceName("arm at-func-entry default");
1944 unwind_plan.SetSourcedFromCompiler(eLazyBoolNo);
1949 bool ABISysV_arm::CreateDefaultUnwindPlan(UnwindPlan &unwind_plan) {
1950 unwind_plan.Clear();
1951 unwind_plan.SetRegisterKind(eRegisterKindDWARF);
1953 // TODO: Handle thumb
1954 uint32_t fp_reg_num = dwarf_r11;
1955 uint32_t pc_reg_num = dwarf_pc;
1957 UnwindPlan::RowSP row(new UnwindPlan::Row);
1958 const int32_t ptr_size = 4;
1960 row->GetCFAValue().SetIsRegisterPlusOffset(fp_reg_num, 2 * ptr_size);
1963 row->SetRegisterLocationToAtCFAPlusOffset(fp_reg_num, ptr_size * -2, true);
1964 row->SetRegisterLocationToAtCFAPlusOffset(pc_reg_num, ptr_size * -1, true);
1966 unwind_plan.AppendRow(row);
1967 unwind_plan.SetSourceName("arm default unwind plan");
1968 unwind_plan.SetSourcedFromCompiler(eLazyBoolNo);
1969 unwind_plan.SetUnwindPlanValidAtAllInstructions(eLazyBoolNo);
1974 // cf. "ARMv6 Function Calling Conventions"
1976 // ARMv7 on GNU/Linux general purpose reg rules:
1977 // r0-r3 not preserved (used for argument passing)
1978 // r4-r11 preserved (v1-v8)
1980 // r13 preserved (stack pointer)
1981 // r14 preserved (link register)
1982 // r15 preserved (pc)
1983 // cpsr not preserved (different rules for different bits)
1985 // ARMv7 VFP register rules:
1986 // d0-d7 not preserved (aka s0-s15, q0-q3)
1987 // d8-d15 preserved (aka s16-s31, q4-q7)
1988 // d16-d31 not preserved (aka q8-q15)
1990 bool ABISysV_arm::RegisterIsVolatile(const RegisterInfo *reg_info) {
1992 // Volatile registers are: r0, r1, r2, r3, r9, r12, r13 (aka sp)
1993 const char *name = reg_info->name;
1994 if (name[0] == 'r') {
1997 return name[2] == '\0'; // r0
2003 return name[3] == '\0'; // r12
2010 return name[2] == '\0'; // r2
2012 return name[2] == '\0'; // r3
2016 } else if (name[0] == 'd') {
2019 return name[2] == '\0'; // d0 is volatile
2024 return true; // d1 is volatile
2029 return name[3] == '\0'; // d16 - d19 are volatile
2038 return true; // d2 is volatile
2049 return name[3] == '\0'; // d20 - d29 are volatile
2058 return true; // d3 is volatile
2061 return name[3] == '\0'; // d30 - d31 are volatile
2070 return name[2] == '\0'; // d4 - d7 are volatile
2075 } else if (name[0] == 's') {
2078 return name[2] == '\0'; // s0 is volatile
2083 return true; // s1 is volatile
2090 return name[3] == '\0'; // s10 - s15 are volatile
2104 return name[2] == '\0'; // s2 - s9 are volatile
2109 } else if (name[0] == 'q') {
2114 return true; // q1 is volatile
2121 return true; // q10-q15 are volatile
2130 return name[2] == '\0'; // q0-q3 are volatile
2133 return name[2] == '\0'; // q8-q9 are volatile
2137 } else if (name[0] == 's' && name[1] == 'p' && name[2] == '\0')
2143 void ABISysV_arm::Initialize() {
2144 PluginManager::RegisterPlugin(GetPluginNameStatic(),
2145 "SysV ABI for arm targets", CreateInstance);
2148 void ABISysV_arm::Terminate() {
2149 PluginManager::UnregisterPlugin(CreateInstance);
2152 lldb_private::ConstString ABISysV_arm::GetPluginNameStatic() {
2153 static ConstString g_name("SysV-arm");
2157 //------------------------------------------------------------------
2158 // PluginInterface protocol
2159 //------------------------------------------------------------------
2161 lldb_private::ConstString ABISysV_arm::GetPluginName() {
2162 return GetPluginNameStatic();
2165 uint32_t ABISysV_arm::GetPluginVersion() { return 1; }