1 //===-- ABISysV_arm.cpp -----------------------------------------*- C++ -*-===//
3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
4 // See https://llvm.org/LICENSE.txt for license information.
5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
7 //===----------------------------------------------------------------------===//
9 #include "ABISysV_arm.h"
13 #include "llvm/ADT/STLExtras.h"
14 #include "llvm/ADT/Triple.h"
16 #include "lldb/Core/Module.h"
17 #include "lldb/Core/PluginManager.h"
18 #include "lldb/Core/Value.h"
19 #include "lldb/Core/ValueObjectConstResult.h"
20 #include "lldb/Symbol/UnwindPlan.h"
21 #include "lldb/Target/Process.h"
22 #include "lldb/Target/RegisterContext.h"
23 #include "lldb/Target/Target.h"
24 #include "lldb/Target/Thread.h"
25 #include "lldb/Utility/ConstString.h"
26 #include "lldb/Utility/RegisterValue.h"
27 #include "lldb/Utility/Scalar.h"
28 #include "lldb/Utility/Status.h"
30 #include "Plugins/Process/Utility/ARMDefines.h"
31 #include "Utility/ARM_DWARF_Registers.h"
32 #include "Utility/ARM_ehframe_Registers.h"
35 using namespace lldb_private;
37 static RegisterInfo g_register_infos[] = {
38 // NAME ALT SZ OFF ENCODING FORMAT EH_FRAME
39 // DWARF GENERIC PROCESS PLUGIN
40 // LLDB NATIVE VALUE REGS INVALIDATE REGS
41 // ========== ======= == === ============= ============
42 // ======================= =================== ===========================
43 // ======================= ====================== ==========
51 {ehframe_r0, dwarf_r0, LLDB_REGNUM_GENERIC_ARG1, LLDB_INVALID_REGNUM,
63 {ehframe_r1, dwarf_r1, LLDB_REGNUM_GENERIC_ARG2, LLDB_INVALID_REGNUM,
75 {ehframe_r2, dwarf_r2, LLDB_REGNUM_GENERIC_ARG3, LLDB_INVALID_REGNUM,
87 {ehframe_r3, dwarf_r3, LLDB_REGNUM_GENERIC_ARG4, LLDB_INVALID_REGNUM,
99 {ehframe_r4, dwarf_r4, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
100 LLDB_INVALID_REGNUM},
111 {ehframe_r5, dwarf_r5, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
112 LLDB_INVALID_REGNUM},
123 {ehframe_r6, dwarf_r6, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
124 LLDB_INVALID_REGNUM},
135 {ehframe_r7, dwarf_r7, LLDB_REGNUM_GENERIC_FP, LLDB_INVALID_REGNUM,
136 LLDB_INVALID_REGNUM},
147 {ehframe_r8, dwarf_r8, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
148 LLDB_INVALID_REGNUM},
159 {ehframe_r9, dwarf_r9, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
160 LLDB_INVALID_REGNUM},
171 {ehframe_r10, dwarf_r10, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
172 LLDB_INVALID_REGNUM},
183 {ehframe_r11, dwarf_r11, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
184 LLDB_INVALID_REGNUM},
195 {ehframe_r12, dwarf_r12, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
196 LLDB_INVALID_REGNUM},
207 {ehframe_sp, dwarf_sp, LLDB_REGNUM_GENERIC_SP, LLDB_INVALID_REGNUM,
208 LLDB_INVALID_REGNUM},
219 {ehframe_lr, dwarf_lr, LLDB_REGNUM_GENERIC_RA, LLDB_INVALID_REGNUM,
220 LLDB_INVALID_REGNUM},
231 {ehframe_pc, dwarf_pc, LLDB_REGNUM_GENERIC_PC, LLDB_INVALID_REGNUM,
232 LLDB_INVALID_REGNUM},
243 {ehframe_cpsr, dwarf_cpsr, LLDB_REGNUM_GENERIC_FLAGS, LLDB_INVALID_REGNUM,
244 LLDB_INVALID_REGNUM},
255 {LLDB_INVALID_REGNUM, dwarf_s0, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
256 LLDB_INVALID_REGNUM},
267 {LLDB_INVALID_REGNUM, dwarf_s1, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
268 LLDB_INVALID_REGNUM},
279 {LLDB_INVALID_REGNUM, dwarf_s2, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
280 LLDB_INVALID_REGNUM},
291 {LLDB_INVALID_REGNUM, dwarf_s3, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
292 LLDB_INVALID_REGNUM},
303 {LLDB_INVALID_REGNUM, dwarf_s4, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
304 LLDB_INVALID_REGNUM},
315 {LLDB_INVALID_REGNUM, dwarf_s5, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
316 LLDB_INVALID_REGNUM},
327 {LLDB_INVALID_REGNUM, dwarf_s6, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
328 LLDB_INVALID_REGNUM},
339 {LLDB_INVALID_REGNUM, dwarf_s7, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
340 LLDB_INVALID_REGNUM},
351 {LLDB_INVALID_REGNUM, dwarf_s8, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
352 LLDB_INVALID_REGNUM},
363 {LLDB_INVALID_REGNUM, dwarf_s9, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
364 LLDB_INVALID_REGNUM},
375 {LLDB_INVALID_REGNUM, dwarf_s10, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
376 LLDB_INVALID_REGNUM},
387 {LLDB_INVALID_REGNUM, dwarf_s11, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
388 LLDB_INVALID_REGNUM},
399 {LLDB_INVALID_REGNUM, dwarf_s12, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
400 LLDB_INVALID_REGNUM},
411 {LLDB_INVALID_REGNUM, dwarf_s13, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
412 LLDB_INVALID_REGNUM},
423 {LLDB_INVALID_REGNUM, dwarf_s14, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
424 LLDB_INVALID_REGNUM},
435 {LLDB_INVALID_REGNUM, dwarf_s15, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
436 LLDB_INVALID_REGNUM},
447 {LLDB_INVALID_REGNUM, dwarf_s16, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
448 LLDB_INVALID_REGNUM},
459 {LLDB_INVALID_REGNUM, dwarf_s17, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
460 LLDB_INVALID_REGNUM},
471 {LLDB_INVALID_REGNUM, dwarf_s18, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
472 LLDB_INVALID_REGNUM},
483 {LLDB_INVALID_REGNUM, dwarf_s19, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
484 LLDB_INVALID_REGNUM},
495 {LLDB_INVALID_REGNUM, dwarf_s20, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
496 LLDB_INVALID_REGNUM},
507 {LLDB_INVALID_REGNUM, dwarf_s21, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
508 LLDB_INVALID_REGNUM},
519 {LLDB_INVALID_REGNUM, dwarf_s22, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
520 LLDB_INVALID_REGNUM},
531 {LLDB_INVALID_REGNUM, dwarf_s23, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
532 LLDB_INVALID_REGNUM},
543 {LLDB_INVALID_REGNUM, dwarf_s24, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
544 LLDB_INVALID_REGNUM},
555 {LLDB_INVALID_REGNUM, dwarf_s25, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
556 LLDB_INVALID_REGNUM},
567 {LLDB_INVALID_REGNUM, dwarf_s26, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
568 LLDB_INVALID_REGNUM},
579 {LLDB_INVALID_REGNUM, dwarf_s27, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
580 LLDB_INVALID_REGNUM},
591 {LLDB_INVALID_REGNUM, dwarf_s28, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
592 LLDB_INVALID_REGNUM},
603 {LLDB_INVALID_REGNUM, dwarf_s29, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
604 LLDB_INVALID_REGNUM},
615 {LLDB_INVALID_REGNUM, dwarf_s30, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
616 LLDB_INVALID_REGNUM},
627 {LLDB_INVALID_REGNUM, dwarf_s31, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
628 LLDB_INVALID_REGNUM},
639 {LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
640 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
651 {LLDB_INVALID_REGNUM, dwarf_d0, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
652 LLDB_INVALID_REGNUM},
663 {LLDB_INVALID_REGNUM, dwarf_d1, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
664 LLDB_INVALID_REGNUM},
675 {LLDB_INVALID_REGNUM, dwarf_d2, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
676 LLDB_INVALID_REGNUM},
687 {LLDB_INVALID_REGNUM, dwarf_d3, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
688 LLDB_INVALID_REGNUM},
699 {LLDB_INVALID_REGNUM, dwarf_d4, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
700 LLDB_INVALID_REGNUM},
711 {LLDB_INVALID_REGNUM, dwarf_d5, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
712 LLDB_INVALID_REGNUM},
723 {LLDB_INVALID_REGNUM, dwarf_d6, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
724 LLDB_INVALID_REGNUM},
735 {LLDB_INVALID_REGNUM, dwarf_d7, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
736 LLDB_INVALID_REGNUM},
747 {LLDB_INVALID_REGNUM, dwarf_d8, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
748 LLDB_INVALID_REGNUM},
759 {LLDB_INVALID_REGNUM, dwarf_d9, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
760 LLDB_INVALID_REGNUM},
771 {LLDB_INVALID_REGNUM, dwarf_d10, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
772 LLDB_INVALID_REGNUM},
783 {LLDB_INVALID_REGNUM, dwarf_d11, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
784 LLDB_INVALID_REGNUM},
795 {LLDB_INVALID_REGNUM, dwarf_d12, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
796 LLDB_INVALID_REGNUM},
807 {LLDB_INVALID_REGNUM, dwarf_d13, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
808 LLDB_INVALID_REGNUM},
819 {LLDB_INVALID_REGNUM, dwarf_d14, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
820 LLDB_INVALID_REGNUM},
831 {LLDB_INVALID_REGNUM, dwarf_d15, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
832 LLDB_INVALID_REGNUM},
843 {LLDB_INVALID_REGNUM, dwarf_d16, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
844 LLDB_INVALID_REGNUM},
855 {LLDB_INVALID_REGNUM, dwarf_d17, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
856 LLDB_INVALID_REGNUM},
867 {LLDB_INVALID_REGNUM, dwarf_d18, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
868 LLDB_INVALID_REGNUM},
879 {LLDB_INVALID_REGNUM, dwarf_d19, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
880 LLDB_INVALID_REGNUM},
891 {LLDB_INVALID_REGNUM, dwarf_d20, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
892 LLDB_INVALID_REGNUM},
903 {LLDB_INVALID_REGNUM, dwarf_d21, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
904 LLDB_INVALID_REGNUM},
915 {LLDB_INVALID_REGNUM, dwarf_d22, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
916 LLDB_INVALID_REGNUM},
927 {LLDB_INVALID_REGNUM, dwarf_d23, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
928 LLDB_INVALID_REGNUM},
939 {LLDB_INVALID_REGNUM, dwarf_d24, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
940 LLDB_INVALID_REGNUM},
951 {LLDB_INVALID_REGNUM, dwarf_d25, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
952 LLDB_INVALID_REGNUM},
963 {LLDB_INVALID_REGNUM, dwarf_d26, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
964 LLDB_INVALID_REGNUM},
975 {LLDB_INVALID_REGNUM, dwarf_d27, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
976 LLDB_INVALID_REGNUM},
987 {LLDB_INVALID_REGNUM, dwarf_d28, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
988 LLDB_INVALID_REGNUM},
999 {LLDB_INVALID_REGNUM, dwarf_d29, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
1000 LLDB_INVALID_REGNUM},
1011 {LLDB_INVALID_REGNUM, dwarf_d30, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
1012 LLDB_INVALID_REGNUM},
1023 {LLDB_INVALID_REGNUM, dwarf_d31, LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM,
1024 LLDB_INVALID_REGNUM},
1035 {LLDB_INVALID_REGNUM, dwarf_r8_usr, LLDB_INVALID_REGNUM,
1036 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1047 {LLDB_INVALID_REGNUM, dwarf_r9_usr, LLDB_INVALID_REGNUM,
1048 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1059 {LLDB_INVALID_REGNUM, dwarf_r10_usr, LLDB_INVALID_REGNUM,
1060 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1071 {LLDB_INVALID_REGNUM, dwarf_r11_usr, LLDB_INVALID_REGNUM,
1072 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1083 {LLDB_INVALID_REGNUM, dwarf_r12_usr, LLDB_INVALID_REGNUM,
1084 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1095 {LLDB_INVALID_REGNUM, dwarf_r13_usr, LLDB_INVALID_REGNUM,
1096 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1107 {LLDB_INVALID_REGNUM, dwarf_r14_usr, LLDB_INVALID_REGNUM,
1108 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1119 {LLDB_INVALID_REGNUM, dwarf_r8_fiq, LLDB_INVALID_REGNUM,
1120 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1131 {LLDB_INVALID_REGNUM, dwarf_r9_fiq, LLDB_INVALID_REGNUM,
1132 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1143 {LLDB_INVALID_REGNUM, dwarf_r10_fiq, LLDB_INVALID_REGNUM,
1144 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1155 {LLDB_INVALID_REGNUM, dwarf_r11_fiq, LLDB_INVALID_REGNUM,
1156 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1167 {LLDB_INVALID_REGNUM, dwarf_r12_fiq, LLDB_INVALID_REGNUM,
1168 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1179 {LLDB_INVALID_REGNUM, dwarf_r13_fiq, LLDB_INVALID_REGNUM,
1180 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1191 {LLDB_INVALID_REGNUM, dwarf_r14_fiq, LLDB_INVALID_REGNUM,
1192 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1203 {LLDB_INVALID_REGNUM, dwarf_r13_irq, LLDB_INVALID_REGNUM,
1204 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1215 {LLDB_INVALID_REGNUM, dwarf_r14_irq, LLDB_INVALID_REGNUM,
1216 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1227 {LLDB_INVALID_REGNUM, dwarf_r13_abt, LLDB_INVALID_REGNUM,
1228 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1239 {LLDB_INVALID_REGNUM, dwarf_r14_abt, LLDB_INVALID_REGNUM,
1240 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1251 {LLDB_INVALID_REGNUM, dwarf_r13_und, LLDB_INVALID_REGNUM,
1252 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1263 {LLDB_INVALID_REGNUM, dwarf_r14_und, LLDB_INVALID_REGNUM,
1264 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1275 {LLDB_INVALID_REGNUM, dwarf_r13_svc, LLDB_INVALID_REGNUM,
1276 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1287 {LLDB_INVALID_REGNUM, dwarf_r14_svc, LLDB_INVALID_REGNUM,
1288 LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM},
1294 static const uint32_t k_num_register_infos =
1295 llvm::array_lengthof(g_register_infos);
1296 static bool g_register_info_names_constified = false;
1298 const lldb_private::RegisterInfo *
1299 ABISysV_arm::GetRegisterInfoArray(uint32_t &count) {
1300 // Make the C-string names and alt_names for the register infos into const
1301 // C-string values by having the ConstString unique the names in the global
1302 // constant C-string pool.
1303 if (!g_register_info_names_constified) {
1304 g_register_info_names_constified = true;
1305 for (uint32_t i = 0; i < k_num_register_infos; ++i) {
1306 if (g_register_infos[i].name)
1307 g_register_infos[i].name =
1308 ConstString(g_register_infos[i].name).GetCString();
1309 if (g_register_infos[i].alt_name)
1310 g_register_infos[i].alt_name =
1311 ConstString(g_register_infos[i].alt_name).GetCString();
1314 count = k_num_register_infos;
1315 return g_register_infos;
1318 size_t ABISysV_arm::GetRedZoneSize() const { return 0; }
1323 ABISysV_arm::CreateInstance(lldb::ProcessSP process_sp, const ArchSpec &arch) {
1324 const llvm::Triple::ArchType arch_type = arch.GetTriple().getArch();
1325 const llvm::Triple::VendorType vendor_type = arch.GetTriple().getVendor();
1327 if (vendor_type != llvm::Triple::Apple) {
1328 if ((arch_type == llvm::Triple::arm) ||
1329 (arch_type == llvm::Triple::thumb)) {
1330 return ABISP(new ABISysV_arm(process_sp));
1337 bool ABISysV_arm::PrepareTrivialCall(Thread &thread, addr_t sp,
1338 addr_t function_addr, addr_t return_addr,
1339 llvm::ArrayRef<addr_t> args) const {
1340 RegisterContext *reg_ctx = thread.GetRegisterContext().get();
1344 const uint32_t pc_reg_num = reg_ctx->ConvertRegisterKindToRegisterNumber(
1345 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_PC);
1346 const uint32_t sp_reg_num = reg_ctx->ConvertRegisterKindToRegisterNumber(
1347 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_SP);
1348 const uint32_t ra_reg_num = reg_ctx->ConvertRegisterKindToRegisterNumber(
1349 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_RA);
1351 RegisterValue reg_value;
1353 const uint8_t reg_names[] = {
1354 LLDB_REGNUM_GENERIC_ARG1, LLDB_REGNUM_GENERIC_ARG2,
1355 LLDB_REGNUM_GENERIC_ARG3, LLDB_REGNUM_GENERIC_ARG4};
1357 llvm::ArrayRef<addr_t>::iterator ai = args.begin(), ae = args.end();
1359 for (size_t i = 0; i < llvm::array_lengthof(reg_names); ++i) {
1363 reg_value.SetUInt32(*ai);
1364 if (!reg_ctx->WriteRegister(
1365 reg_ctx->GetRegisterInfo(eRegisterKindGeneric, reg_names[i]),
1373 // Spill onto the stack
1374 size_t num_stack_regs = ae - ai;
1376 sp -= (num_stack_regs * 4);
1377 // Keep the stack 8 byte aligned, not that we need to
1378 sp &= ~(8ull - 1ull);
1380 // just using arg1 to get the right size
1381 const RegisterInfo *reg_info = reg_ctx->GetRegisterInfo(
1382 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG1);
1384 addr_t arg_pos = sp;
1386 for (; ai != ae; ++ai) {
1387 reg_value.SetUInt32(*ai);
1389 ->WriteRegisterValueToMemory(reg_info, arg_pos,
1390 reg_info->byte_size, reg_value)
1393 arg_pos += reg_info->byte_size;
1397 TargetSP target_sp(thread.CalculateTarget());
1400 // Figure out if our return address is ARM or Thumb by using the
1401 // Address::GetCallableLoadAddress(Target*) which will figure out the ARM
1402 // thumb-ness and set the correct address bits for us.
1403 so_addr.SetLoadAddress(return_addr, target_sp.get());
1404 return_addr = so_addr.GetCallableLoadAddress(target_sp.get());
1406 // Set "lr" to the return address
1407 if (!reg_ctx->WriteRegisterFromUnsigned(ra_reg_num, return_addr))
1410 // Set "sp" to the requested value
1411 if (!reg_ctx->WriteRegisterFromUnsigned(sp_reg_num, sp))
1414 // If bit zero or 1 is set, this must be a thumb function, no need to figure
1415 // this out from the symbols.
1416 so_addr.SetLoadAddress(function_addr, target_sp.get());
1417 function_addr = so_addr.GetCallableLoadAddress(target_sp.get());
1419 const RegisterInfo *cpsr_reg_info =
1420 reg_ctx->GetRegisterInfo(eRegisterKindGeneric, LLDB_REGNUM_GENERIC_FLAGS);
1421 const uint32_t curr_cpsr = reg_ctx->ReadRegisterAsUnsigned(cpsr_reg_info, 0);
1423 // Make a new CPSR and mask out any Thumb IT (if/then) bits
1424 uint32_t new_cpsr = curr_cpsr & ~MASK_CPSR_IT_MASK;
1425 // If bit zero or 1 is set, this must be thumb...
1426 if (function_addr & 1ull)
1427 new_cpsr |= MASK_CPSR_T; // Set T bit in CPSR
1429 new_cpsr &= ~MASK_CPSR_T; // Clear T bit in CPSR
1431 if (new_cpsr != curr_cpsr) {
1432 if (!reg_ctx->WriteRegisterFromUnsigned(cpsr_reg_info, new_cpsr))
1437 ~1ull; // clear bit zero since the CPSR will take care of the mode for us
1439 // Set "pc" to the address requested
1440 return reg_ctx->WriteRegisterFromUnsigned(pc_reg_num, function_addr);
1443 bool ABISysV_arm::GetArgumentValues(Thread &thread, ValueList &values) const {
1444 uint32_t num_values = values.GetSize();
1446 ExecutionContext exe_ctx(thread.shared_from_this());
1447 // For now, assume that the types in the AST values come from the Target's
1450 // Extract the register context so we can read arguments from registers
1452 RegisterContext *reg_ctx = thread.GetRegisterContext().get();
1459 for (uint32_t value_idx = 0; value_idx < num_values; ++value_idx) {
1460 // We currently only support extracting values with Clang QualTypes. Do we
1461 // care about others?
1462 Value *value = values.GetValueAtIndex(value_idx);
1467 CompilerType compiler_type = value->GetCompilerType();
1468 if (compiler_type) {
1469 bool is_signed = false;
1470 size_t bit_width = 0;
1471 if (compiler_type.IsIntegerOrEnumerationType(is_signed) ||
1472 compiler_type.IsPointerOrReferenceType()) {
1473 if (llvm::Optional<uint64_t> size = compiler_type.GetBitSize(&thread))
1476 // We only handle integer, pointer and reference types currently...
1480 if (bit_width <= (exe_ctx.GetProcessRef().GetAddressByteSize() * 8)) {
1481 if (value_idx < 4) {
1482 // Arguments 1-4 are in r0-r3...
1483 const RegisterInfo *arg_reg_info = nullptr;
1484 arg_reg_info = reg_ctx->GetRegisterInfo(
1485 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG1 + value_idx);
1487 RegisterValue reg_value;
1489 if (reg_ctx->ReadRegister(arg_reg_info, reg_value)) {
1491 reg_value.SignExtend(bit_width);
1492 if (!reg_value.GetScalarValue(value->GetScalar()))
1500 // Read the stack pointer if it already hasn't been read
1501 sp = reg_ctx->GetSP(0);
1506 // Arguments 5 on up are on the stack
1507 const uint32_t arg_byte_size = (bit_width + (8 - 1)) / 8;
1509 if (!exe_ctx.GetProcessRef().ReadScalarIntegerFromMemory(
1510 sp, arg_byte_size, is_signed, value->GetScalar(), error))
1513 sp += arg_byte_size;
1521 static bool GetReturnValuePassedInMemory(Thread &thread,
1522 RegisterContext *reg_ctx,
1523 size_t byte_size, Value &value) {
1525 DataBufferHeap buffer(byte_size, 0);
1527 const RegisterInfo *r0_reg_info =
1528 reg_ctx->GetRegisterInfo(eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG1);
1530 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT32_MAX;
1531 thread.GetProcess()->ReadMemory(address, buffer.GetBytes(),
1532 buffer.GetByteSize(), error);
1537 value.SetBytes(buffer.GetBytes(), buffer.GetByteSize());
1541 bool ABISysV_arm::IsArmHardFloat(Thread &thread) const {
1542 ProcessSP process_sp(thread.GetProcess());
1544 const ArchSpec &arch(process_sp->GetTarget().GetArchitecture());
1546 return (arch.GetFlags() & ArchSpec::eARM_abi_hard_float) != 0;
1552 ValueObjectSP ABISysV_arm::GetReturnValueObjectImpl(
1553 Thread &thread, lldb_private::CompilerType &compiler_type) const {
1555 ValueObjectSP return_valobj_sp;
1558 return return_valobj_sp;
1560 // value.SetContext (Value::eContextTypeClangType,
1561 // compiler_type.GetOpaqueQualType());
1562 value.SetCompilerType(compiler_type);
1564 RegisterContext *reg_ctx = thread.GetRegisterContext().get();
1566 return return_valobj_sp;
1570 uint32_t float_count;
1571 bool is_vfp_candidate = false;
1572 uint8_t vfp_count = 0;
1573 uint8_t vfp_byte_size = 0;
1575 // Get the pointer to the first stack argument so we have a place to start
1576 // when reading data
1578 const RegisterInfo *r0_reg_info =
1579 reg_ctx->GetRegisterInfo(eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG1);
1580 llvm::Optional<uint64_t> bit_width = compiler_type.GetBitSize(&thread);
1581 llvm::Optional<uint64_t> byte_size = compiler_type.GetByteSize(&thread);
1582 if (!bit_width || !byte_size)
1583 return return_valobj_sp;
1585 if (compiler_type.IsIntegerOrEnumerationType(is_signed)) {
1586 switch (*bit_width) {
1588 return return_valobj_sp;
1590 const RegisterInfo *r1_reg_info = reg_ctx->GetRegisterInfo(
1591 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG2);
1593 raw_value = reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT32_MAX;
1594 raw_value |= ((uint64_t)(reg_ctx->ReadRegisterAsUnsigned(r1_reg_info, 0) &
1598 value.GetScalar() = (int64_t)raw_value;
1600 value.GetScalar() = (uint64_t)raw_value;
1604 value.GetScalar() = (int32_t)(
1605 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT32_MAX);
1607 value.GetScalar() = (uint32_t)(
1608 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT32_MAX);
1612 value.GetScalar() = (int16_t)(
1613 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT16_MAX);
1615 value.GetScalar() = (uint16_t)(
1616 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT16_MAX);
1620 value.GetScalar() = (int8_t)(
1621 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT8_MAX);
1623 value.GetScalar() = (uint8_t)(
1624 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT8_MAX);
1627 } else if (compiler_type.IsPointerType()) {
1629 thread.GetRegisterContext()->ReadRegisterAsUnsigned(r0_reg_info, 0) &
1631 value.GetScalar() = ptr;
1632 } else if (compiler_type.IsVectorType(nullptr, nullptr)) {
1633 if (IsArmHardFloat(thread) && (*byte_size == 8 || *byte_size == 16)) {
1634 is_vfp_candidate = true;
1636 vfp_count = (*byte_size == 8 ? 1 : 2);
1637 } else if (*byte_size <= 16) {
1638 DataBufferHeap buffer(16, 0);
1639 uint32_t *buffer_ptr = (uint32_t *)buffer.GetBytes();
1641 for (uint32_t i = 0; 4 * i < *byte_size; ++i) {
1642 const RegisterInfo *reg_info = reg_ctx->GetRegisterInfo(
1643 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG1 + i);
1645 reg_ctx->ReadRegisterAsUnsigned(reg_info, 0) & UINT32_MAX;
1647 value.SetBytes(buffer.GetBytes(), *byte_size);
1649 if (!GetReturnValuePassedInMemory(thread, reg_ctx, *byte_size, value))
1650 return return_valobj_sp;
1652 } else if (compiler_type.IsFloatingPointType(float_count, is_complex)) {
1653 if (float_count == 1 && !is_complex) {
1654 switch (*bit_width) {
1656 return return_valobj_sp;
1658 static_assert(sizeof(double) == sizeof(uint64_t), "");
1660 if (IsArmHardFloat(thread)) {
1661 RegisterValue reg_value;
1662 const RegisterInfo *d0_reg_info =
1663 reg_ctx->GetRegisterInfoByName("d0", 0);
1664 reg_ctx->ReadRegister(d0_reg_info, reg_value);
1665 value.GetScalar() = reg_value.GetAsDouble();
1668 const RegisterInfo *r1_reg_info = reg_ctx->GetRegisterInfo(
1669 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG2);
1671 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT32_MAX;
1673 ((uint64_t)(reg_ctx->ReadRegisterAsUnsigned(r1_reg_info, 0) &
1676 value.GetScalar() = *reinterpret_cast<double *>(&raw_value);
1680 case 16: // Half precision returned after a conversion to single precision
1682 static_assert(sizeof(float) == sizeof(uint32_t), "");
1684 if (IsArmHardFloat(thread)) {
1685 RegisterValue reg_value;
1686 const RegisterInfo *s0_reg_info =
1687 reg_ctx->GetRegisterInfoByName("s0", 0);
1688 reg_ctx->ReadRegister(s0_reg_info, reg_value);
1689 value.GetScalar() = reg_value.GetAsFloat();
1693 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT32_MAX;
1694 value.GetScalar() = *reinterpret_cast<float *>(&raw_value);
1699 } else if (is_complex && float_count == 2) {
1700 if (IsArmHardFloat(thread)) {
1701 is_vfp_candidate = true;
1702 vfp_byte_size = *byte_size / 2;
1704 } else if (!GetReturnValuePassedInMemory(thread, reg_ctx, *bit_width / 8,
1706 return return_valobj_sp;
1709 return return_valobj_sp;
1710 } else if (compiler_type.IsAggregateType()) {
1711 if (IsArmHardFloat(thread)) {
1712 CompilerType base_type;
1713 const uint32_t homogeneous_count =
1714 compiler_type.IsHomogeneousAggregate(&base_type);
1716 if (homogeneous_count > 0 && homogeneous_count <= 4) {
1717 llvm::Optional<uint64_t> base_byte_size =
1718 base_type.GetByteSize(nullptr);
1719 if (base_type.IsVectorType(nullptr, nullptr)) {
1720 if (base_byte_size &&
1721 (*base_byte_size == 8 || *base_byte_size == 16)) {
1722 is_vfp_candidate = true;
1724 vfp_count = (*base_byte_size == 8 ? homogeneous_count
1725 : homogeneous_count * 2);
1727 } else if (base_type.IsFloatingPointType(float_count, is_complex)) {
1728 if (float_count == 1 && !is_complex) {
1729 is_vfp_candidate = true;
1731 vfp_byte_size = *base_byte_size;
1732 vfp_count = homogeneous_count;
1735 } else if (homogeneous_count == 0) {
1736 const uint32_t num_children = compiler_type.GetNumFields();
1738 if (num_children > 0 && num_children <= 2) {
1740 for (index = 0; index < num_children; index++) {
1742 base_type = compiler_type.GetFieldAtIndex(index, name, nullptr,
1745 if (base_type.IsFloatingPointType(float_count, is_complex)) {
1746 llvm::Optional<uint64_t> base_byte_size =
1747 base_type.GetByteSize(nullptr);
1748 if (float_count == 2 && is_complex) {
1749 if (index != 0 && base_byte_size &&
1750 vfp_byte_size != *base_byte_size)
1752 else if (base_byte_size)
1753 vfp_byte_size = *base_byte_size;
1760 if (index == num_children) {
1761 is_vfp_candidate = true;
1762 vfp_byte_size = (vfp_byte_size >> 1);
1763 vfp_count = (num_children << 1);
1769 if (*byte_size <= 4) {
1770 RegisterValue r0_reg_value;
1771 uint32_t raw_value =
1772 reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT32_MAX;
1773 value.SetBytes(&raw_value, *byte_size);
1774 } else if (!is_vfp_candidate) {
1775 if (!GetReturnValuePassedInMemory(thread, reg_ctx, *byte_size, value))
1776 return return_valobj_sp;
1780 return return_valobj_sp;
1783 if (is_vfp_candidate) {
1784 ProcessSP process_sp(thread.GetProcess());
1785 ByteOrder byte_order = process_sp->GetByteOrder();
1787 DataBufferSP data_sp(new DataBufferHeap(*byte_size, 0));
1788 uint32_t data_offset = 0;
1790 for (uint32_t reg_index = 0; reg_index < vfp_count; reg_index++) {
1791 uint32_t regnum = 0;
1793 if (vfp_byte_size == 4)
1794 regnum = dwarf_s0 + reg_index;
1795 else if (vfp_byte_size == 8)
1796 regnum = dwarf_d0 + reg_index;
1800 const RegisterInfo *reg_info =
1801 reg_ctx->GetRegisterInfo(eRegisterKindDWARF, regnum);
1802 if (reg_info == nullptr)
1805 RegisterValue reg_value;
1806 if (!reg_ctx->ReadRegister(reg_info, reg_value))
1809 // Make sure we have enough room in "data_sp"
1810 if ((data_offset + vfp_byte_size) <= data_sp->GetByteSize()) {
1812 const size_t bytes_copied = reg_value.GetAsMemoryData(
1813 reg_info, data_sp->GetBytes() + data_offset, vfp_byte_size,
1815 if (bytes_copied != vfp_byte_size)
1818 data_offset += bytes_copied;
1822 if (data_offset == *byte_size) {
1824 data.SetByteOrder(byte_order);
1825 data.SetAddressByteSize(process_sp->GetAddressByteSize());
1826 data.SetData(data_sp);
1828 return ValueObjectConstResult::Create(&thread, compiler_type,
1829 ConstString(""), data);
1830 } else { // Some error occurred while getting values from registers
1831 return return_valobj_sp;
1835 // If we get here, we have a valid Value, so make our ValueObject out of it:
1837 return_valobj_sp = ValueObjectConstResult::Create(
1838 thread.GetStackFrameAtIndex(0).get(), value, ConstString(""));
1839 return return_valobj_sp;
1842 Status ABISysV_arm::SetReturnValueObject(lldb::StackFrameSP &frame_sp,
1843 lldb::ValueObjectSP &new_value_sp) {
1845 if (!new_value_sp) {
1846 error.SetErrorString("Empty value object for return value.");
1850 CompilerType compiler_type = new_value_sp->GetCompilerType();
1851 if (!compiler_type) {
1852 error.SetErrorString("Null clang type for return value.");
1856 Thread *thread = frame_sp->GetThread().get();
1862 RegisterContext *reg_ctx = thread->GetRegisterContext().get();
1864 bool set_it_simple = false;
1865 if (compiler_type.IsIntegerOrEnumerationType(is_signed) ||
1866 compiler_type.IsPointerType()) {
1869 size_t num_bytes = new_value_sp->GetData(data, data_error);
1870 if (data_error.Fail()) {
1871 error.SetErrorStringWithFormat(
1872 "Couldn't convert return value to raw data: %s",
1873 data_error.AsCString());
1876 lldb::offset_t offset = 0;
1877 if (num_bytes <= 8) {
1878 const RegisterInfo *r0_info = reg_ctx->GetRegisterInfo(
1879 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG1);
1880 if (num_bytes <= 4) {
1881 uint32_t raw_value = data.GetMaxU32(&offset, num_bytes);
1883 if (reg_ctx->WriteRegisterFromUnsigned(r0_info, raw_value))
1884 set_it_simple = true;
1886 uint32_t raw_value = data.GetMaxU32(&offset, 4);
1888 if (reg_ctx->WriteRegisterFromUnsigned(r0_info, raw_value)) {
1889 const RegisterInfo *r1_info = reg_ctx->GetRegisterInfo(
1890 eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG2);
1891 uint32_t raw_value = data.GetMaxU32(&offset, num_bytes - offset);
1893 if (reg_ctx->WriteRegisterFromUnsigned(r1_info, raw_value))
1894 set_it_simple = true;
1898 error.SetErrorString("We don't support returning longer than 64 bit "
1899 "integer values at present.");
1901 } else if (compiler_type.IsFloatingPointType(count, is_complex)) {
1903 error.SetErrorString(
1904 "We don't support returning complex values at present");
1906 error.SetErrorString(
1907 "We don't support returning float values at present");
1911 error.SetErrorString(
1912 "We only support setting simple integer return types at present.");
1917 bool ABISysV_arm::CreateFunctionEntryUnwindPlan(UnwindPlan &unwind_plan) {
1918 unwind_plan.Clear();
1919 unwind_plan.SetRegisterKind(eRegisterKindDWARF);
1921 uint32_t lr_reg_num = dwarf_lr;
1922 uint32_t sp_reg_num = dwarf_sp;
1923 uint32_t pc_reg_num = dwarf_pc;
1925 UnwindPlan::RowSP row(new UnwindPlan::Row);
1927 // Our Call Frame Address is the stack pointer value
1928 row->GetCFAValue().SetIsRegisterPlusOffset(sp_reg_num, 0);
1930 // The previous PC is in the LR
1931 row->SetRegisterLocationToRegister(pc_reg_num, lr_reg_num, true);
1932 unwind_plan.AppendRow(row);
1934 // All other registers are the same.
1936 unwind_plan.SetSourceName("arm at-func-entry default");
1937 unwind_plan.SetSourcedFromCompiler(eLazyBoolNo);
1942 bool ABISysV_arm::CreateDefaultUnwindPlan(UnwindPlan &unwind_plan) {
1943 unwind_plan.Clear();
1944 unwind_plan.SetRegisterKind(eRegisterKindDWARF);
1946 // TODO: Handle thumb
1947 uint32_t fp_reg_num = dwarf_r11;
1948 uint32_t pc_reg_num = dwarf_pc;
1950 UnwindPlan::RowSP row(new UnwindPlan::Row);
1951 const int32_t ptr_size = 4;
1953 row->GetCFAValue().SetIsRegisterPlusOffset(fp_reg_num, 2 * ptr_size);
1956 row->SetRegisterLocationToAtCFAPlusOffset(fp_reg_num, ptr_size * -2, true);
1957 row->SetRegisterLocationToAtCFAPlusOffset(pc_reg_num, ptr_size * -1, true);
1959 unwind_plan.AppendRow(row);
1960 unwind_plan.SetSourceName("arm default unwind plan");
1961 unwind_plan.SetSourcedFromCompiler(eLazyBoolNo);
1962 unwind_plan.SetUnwindPlanValidAtAllInstructions(eLazyBoolNo);
1967 // cf. "ARMv6 Function Calling Conventions"
1969 // ARMv7 on GNU/Linux general purpose reg rules:
1970 // r0-r3 not preserved (used for argument passing)
1971 // r4-r11 preserved (v1-v8)
1973 // r13 preserved (stack pointer)
1974 // r14 preserved (link register)
1975 // r15 preserved (pc)
1976 // cpsr not preserved (different rules for different bits)
1978 // ARMv7 VFP register rules:
1979 // d0-d7 not preserved (aka s0-s15, q0-q3)
1980 // d8-d15 preserved (aka s16-s31, q4-q7)
1981 // d16-d31 not preserved (aka q8-q15)
1983 bool ABISysV_arm::RegisterIsVolatile(const RegisterInfo *reg_info) {
1985 // Volatile registers are: r0, r1, r2, r3, r9, r12, r13 (aka sp)
1986 const char *name = reg_info->name;
1987 if (name[0] == 'r') {
1990 return name[2] == '\0'; // r0
1996 return name[3] == '\0'; // r12
2003 return name[2] == '\0'; // r2
2005 return name[2] == '\0'; // r3
2009 } else if (name[0] == 'd') {
2012 return name[2] == '\0'; // d0 is volatile
2017 return true; // d1 is volatile
2022 return name[3] == '\0'; // d16 - d19 are volatile
2031 return true; // d2 is volatile
2042 return name[3] == '\0'; // d20 - d29 are volatile
2051 return true; // d3 is volatile
2054 return name[3] == '\0'; // d30 - d31 are volatile
2063 return name[2] == '\0'; // d4 - d7 are volatile
2068 } else if (name[0] == 's') {
2071 return name[2] == '\0'; // s0 is volatile
2076 return true; // s1 is volatile
2083 return name[3] == '\0'; // s10 - s15 are volatile
2097 return name[2] == '\0'; // s2 - s9 are volatile
2102 } else if (name[0] == 'q') {
2107 return true; // q1 is volatile
2114 return true; // q10-q15 are volatile
2123 return name[2] == '\0'; // q0-q3 are volatile
2126 return name[2] == '\0'; // q8-q9 are volatile
2130 } else if (name[0] == 's' && name[1] == 'p' && name[2] == '\0')
2136 void ABISysV_arm::Initialize() {
2137 PluginManager::RegisterPlugin(GetPluginNameStatic(),
2138 "SysV ABI for arm targets", CreateInstance);
2141 void ABISysV_arm::Terminate() {
2142 PluginManager::UnregisterPlugin(CreateInstance);
2145 lldb_private::ConstString ABISysV_arm::GetPluginNameStatic() {
2146 static ConstString g_name("SysV-arm");
2150 // PluginInterface protocol
2152 lldb_private::ConstString ABISysV_arm::GetPluginName() {
2153 return GetPluginNameStatic();
2156 uint32_t ABISysV_arm::GetPluginVersion() { return 1; }