xref: /NextBSD/contrib/llvm/tools/lldb/source/Plugins/ABI/MacOSX-arm/ABIMacOSX_arm.cpp (revision 84d351007654069f9643c8e4b4802a7f5f08ee42)
1 //===-- ABIMacOSX_arm.cpp --------------------------------------*- C++ -*-===//
2 //
3 //                     The LLVM Compiler Infrastructure
4 //
5 // This file is distributed under the University of Illinois Open Source
6 // License. See LICENSE.TXT for details.
7 //
8 //===----------------------------------------------------------------------===//
9 
10 #include "ABIMacOSX_arm.h"
11 
12 #include "lldb/Core/ConstString.h"
13 #include "lldb/Core/Error.h"
14 #include "lldb/Core/Module.h"
15 #include "lldb/Core/PluginManager.h"
16 #include "lldb/Core/RegisterValue.h"
17 #include "lldb/Core/Scalar.h"
18 #include "lldb/Core/Value.h"
19 #include "lldb/Core/ValueObjectConstResult.h"
20 #include "lldb/Symbol/ClangASTContext.h"
21 #include "lldb/Symbol/UnwindPlan.h"
22 #include "lldb/Target/Process.h"
23 #include "lldb/Target/RegisterContext.h"
24 #include "lldb/Target/Target.h"
25 #include "lldb/Target/Thread.h"
26 
27 #include "llvm/ADT/STLExtras.h"
28 #include "llvm/ADT/Triple.h"
29 
30 #include "Utility/ARM_DWARF_Registers.h"
31 #include "Utility/ARM_GCC_Registers.h"
32 #include "Plugins/Process/Utility/ARMDefines.h"
33 
34 #include <vector>
35 
36 using namespace lldb;
37 using namespace lldb_private;
38 
39 static RegisterInfo g_register_infos[] =
40 {
41     //  NAME       ALT       SZ OFF ENCODING         FORMAT          COMPILER                DWARF               GENERIC                     GDB                     LLDB NATIVE            VALUE REGS    INVALIDATE REGS
42     //  ========== =======   == === =============    ============    ======================= =================== =========================== ======================= ====================== ==========    ===============
43     {   "r0",      "arg1",    4, 0, eEncodingUint    , eFormatHex,   { gcc_r0,               dwarf_r0,           LLDB_REGNUM_GENERIC_ARG1,   gdb_arm_r0,             LLDB_INVALID_REGNUM },      NULL,              NULL},
44     {   "r1",      "arg2",    4, 0, eEncodingUint    , eFormatHex,   { gcc_r1,               dwarf_r1,           LLDB_REGNUM_GENERIC_ARG2,   gdb_arm_r1,             LLDB_INVALID_REGNUM },      NULL,              NULL},
45     {   "r2",      "arg3",    4, 0, eEncodingUint    , eFormatHex,   { gcc_r2,               dwarf_r2,           LLDB_REGNUM_GENERIC_ARG3,   gdb_arm_r2,             LLDB_INVALID_REGNUM },      NULL,              NULL},
46     {   "r3",      "arg4",    4, 0, eEncodingUint    , eFormatHex,   { gcc_r3,               dwarf_r3,           LLDB_REGNUM_GENERIC_ARG4,   gdb_arm_r3,             LLDB_INVALID_REGNUM },      NULL,              NULL},
47     {   "r4",      NULL,      4, 0, eEncodingUint    , eFormatHex,   { gcc_r4,               dwarf_r4,           LLDB_INVALID_REGNUM,        gdb_arm_r4,             LLDB_INVALID_REGNUM },      NULL,              NULL},
48     {   "r5",      NULL,      4, 0, eEncodingUint    , eFormatHex,   { gcc_r5,               dwarf_r5,           LLDB_INVALID_REGNUM,        gdb_arm_r5,             LLDB_INVALID_REGNUM },      NULL,              NULL},
49     {   "r6",      NULL,      4, 0, eEncodingUint    , eFormatHex,   { gcc_r6,               dwarf_r6,           LLDB_INVALID_REGNUM,        gdb_arm_r6,             LLDB_INVALID_REGNUM },      NULL,              NULL},
50     {   "r7",      NULL,      4, 0, eEncodingUint    , eFormatHex,   { gcc_r7,               dwarf_r7,           LLDB_REGNUM_GENERIC_FP,     gdb_arm_r7,             LLDB_INVALID_REGNUM },      NULL,              NULL},
51     {   "r8",      NULL,      4, 0, eEncodingUint    , eFormatHex,   { gcc_r8,               dwarf_r8,           LLDB_INVALID_REGNUM,        gdb_arm_r8,             LLDB_INVALID_REGNUM },      NULL,              NULL},
52     {   "r9",      NULL,      4, 0, eEncodingUint    , eFormatHex,   { gcc_r9,               dwarf_r9,           LLDB_INVALID_REGNUM,        gdb_arm_r9,             LLDB_INVALID_REGNUM },      NULL,              NULL},
53     {   "r10",     NULL,      4, 0, eEncodingUint    , eFormatHex,   { gcc_r10,              dwarf_r10,          LLDB_INVALID_REGNUM,        gdb_arm_r10,            LLDB_INVALID_REGNUM },      NULL,              NULL},
54     {   "r11",     NULL,      4, 0, eEncodingUint    , eFormatHex,   { gcc_r11,              dwarf_r11,          LLDB_INVALID_REGNUM,        gdb_arm_r11,            LLDB_INVALID_REGNUM },      NULL,              NULL},
55     {   "r12",     NULL,      4, 0, eEncodingUint    , eFormatHex,   { gcc_r12,              dwarf_r12,          LLDB_INVALID_REGNUM,        gdb_arm_r12,            LLDB_INVALID_REGNUM },      NULL,              NULL},
56     {   "sp",      "r13",     4, 0, eEncodingUint    , eFormatHex,   { gcc_sp,               dwarf_sp,           LLDB_REGNUM_GENERIC_SP,     gdb_arm_sp,             LLDB_INVALID_REGNUM },      NULL,              NULL},
57     {   "lr",      "r14",     4, 0, eEncodingUint    , eFormatHex,   { gcc_lr,               dwarf_lr,           LLDB_REGNUM_GENERIC_RA,     gdb_arm_lr,             LLDB_INVALID_REGNUM },      NULL,              NULL},
58     {   "pc",      "r15",     4, 0, eEncodingUint    , eFormatHex,   { gcc_pc,               dwarf_pc,           LLDB_REGNUM_GENERIC_PC,     gdb_arm_pc,             LLDB_INVALID_REGNUM },      NULL,              NULL},
59     {   "cpsr",    "psr",     4, 0, eEncodingUint    , eFormatHex,   { gcc_cpsr,             dwarf_cpsr,         LLDB_REGNUM_GENERIC_FLAGS,  gdb_arm_cpsr,           LLDB_INVALID_REGNUM },      NULL,              NULL},
60     {   "s0",      NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s0,           LLDB_INVALID_REGNUM,        gdb_arm_s0,             LLDB_INVALID_REGNUM },      NULL,              NULL},
61     {   "s1",      NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s1,           LLDB_INVALID_REGNUM,        gdb_arm_s1,             LLDB_INVALID_REGNUM },      NULL,              NULL},
62     {   "s2",      NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s2,           LLDB_INVALID_REGNUM,        gdb_arm_s2,             LLDB_INVALID_REGNUM },      NULL,              NULL},
63     {   "s3",      NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s3,           LLDB_INVALID_REGNUM,        gdb_arm_s3,             LLDB_INVALID_REGNUM },      NULL,              NULL},
64     {   "s4",      NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s4,           LLDB_INVALID_REGNUM,        gdb_arm_s4,             LLDB_INVALID_REGNUM },      NULL,              NULL},
65     {   "s5",      NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s5,           LLDB_INVALID_REGNUM,        gdb_arm_s5,             LLDB_INVALID_REGNUM },      NULL,              NULL},
66     {   "s6",      NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s6,           LLDB_INVALID_REGNUM,        gdb_arm_s6,             LLDB_INVALID_REGNUM },      NULL,              NULL},
67     {   "s7",      NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s7,           LLDB_INVALID_REGNUM,        gdb_arm_s7,             LLDB_INVALID_REGNUM },      NULL,              NULL},
68     {   "s8",      NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s8,           LLDB_INVALID_REGNUM,        gdb_arm_s8,             LLDB_INVALID_REGNUM },      NULL,              NULL},
69     {   "s9",      NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s9,           LLDB_INVALID_REGNUM,        gdb_arm_s9,             LLDB_INVALID_REGNUM },      NULL,              NULL},
70     {   "s10",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s10,          LLDB_INVALID_REGNUM,        gdb_arm_s10,            LLDB_INVALID_REGNUM },      NULL,              NULL},
71     {   "s11",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s11,          LLDB_INVALID_REGNUM,        gdb_arm_s11,            LLDB_INVALID_REGNUM },      NULL,              NULL},
72     {   "s12",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s12,          LLDB_INVALID_REGNUM,        gdb_arm_s12,            LLDB_INVALID_REGNUM },      NULL,              NULL},
73     {   "s13",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s13,          LLDB_INVALID_REGNUM,        gdb_arm_s13,            LLDB_INVALID_REGNUM },      NULL,              NULL},
74     {   "s14",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s14,          LLDB_INVALID_REGNUM,        gdb_arm_s14,            LLDB_INVALID_REGNUM },      NULL,              NULL},
75     {   "s15",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s15,          LLDB_INVALID_REGNUM,        gdb_arm_s15,            LLDB_INVALID_REGNUM },      NULL,              NULL},
76     {   "s16",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s16,          LLDB_INVALID_REGNUM,        gdb_arm_s16,            LLDB_INVALID_REGNUM },      NULL,              NULL},
77     {   "s17",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s17,          LLDB_INVALID_REGNUM,        gdb_arm_s17,            LLDB_INVALID_REGNUM },      NULL,              NULL},
78     {   "s18",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s18,          LLDB_INVALID_REGNUM,        gdb_arm_s18,            LLDB_INVALID_REGNUM },      NULL,              NULL},
79     {   "s19",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s19,          LLDB_INVALID_REGNUM,        gdb_arm_s19,            LLDB_INVALID_REGNUM },      NULL,              NULL},
80     {   "s20",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s20,          LLDB_INVALID_REGNUM,        gdb_arm_s20,            LLDB_INVALID_REGNUM },      NULL,              NULL},
81     {   "s21",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s21,          LLDB_INVALID_REGNUM,        gdb_arm_s21,            LLDB_INVALID_REGNUM },      NULL,              NULL},
82     {   "s22",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s22,          LLDB_INVALID_REGNUM,        gdb_arm_s22,            LLDB_INVALID_REGNUM },      NULL,              NULL},
83     {   "s23",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s23,          LLDB_INVALID_REGNUM,        gdb_arm_s23,            LLDB_INVALID_REGNUM },      NULL,              NULL},
84     {   "s24",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s24,          LLDB_INVALID_REGNUM,        gdb_arm_s24,            LLDB_INVALID_REGNUM },      NULL,              NULL},
85     {   "s25",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s25,          LLDB_INVALID_REGNUM,        gdb_arm_s25,            LLDB_INVALID_REGNUM },      NULL,              NULL},
86     {   "s26",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s26,          LLDB_INVALID_REGNUM,        gdb_arm_s26,            LLDB_INVALID_REGNUM },      NULL,              NULL},
87     {   "s27",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s27,          LLDB_INVALID_REGNUM,        gdb_arm_s27,            LLDB_INVALID_REGNUM },      NULL,              NULL},
88     {   "s28",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s28,          LLDB_INVALID_REGNUM,        gdb_arm_s28,            LLDB_INVALID_REGNUM },      NULL,              NULL},
89     {   "s29",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s29,          LLDB_INVALID_REGNUM,        gdb_arm_s29,            LLDB_INVALID_REGNUM },      NULL,              NULL},
90     {   "s30",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s30,          LLDB_INVALID_REGNUM,        gdb_arm_s30,            LLDB_INVALID_REGNUM },      NULL,              NULL},
91     {   "s31",     NULL,      4, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_s31,          LLDB_INVALID_REGNUM,        gdb_arm_s31,            LLDB_INVALID_REGNUM },      NULL,              NULL},
92     {   "fpscr",   NULL,      4, 0, eEncodingUint    , eFormatHex  , { LLDB_INVALID_REGNUM,  LLDB_INVALID_REGNUM,LLDB_INVALID_REGNUM,        gdb_arm_fpscr,          LLDB_INVALID_REGNUM },      NULL,              NULL},
93     {   "d0",      NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d0,           LLDB_INVALID_REGNUM,        gdb_arm_d0,             LLDB_INVALID_REGNUM },      NULL,              NULL},
94     {   "d1",      NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d1,           LLDB_INVALID_REGNUM,        gdb_arm_d1,             LLDB_INVALID_REGNUM },      NULL,              NULL},
95     {   "d2",      NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d2,           LLDB_INVALID_REGNUM,        gdb_arm_d2,             LLDB_INVALID_REGNUM },      NULL,              NULL},
96     {   "d3",      NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d3,           LLDB_INVALID_REGNUM,        gdb_arm_d3,             LLDB_INVALID_REGNUM },      NULL,              NULL},
97     {   "d4",      NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d4,           LLDB_INVALID_REGNUM,        gdb_arm_d4,             LLDB_INVALID_REGNUM },      NULL,              NULL},
98     {   "d5",      NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d5,           LLDB_INVALID_REGNUM,        gdb_arm_d5,             LLDB_INVALID_REGNUM },      NULL,              NULL},
99     {   "d6",      NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d6,           LLDB_INVALID_REGNUM,        gdb_arm_d6,             LLDB_INVALID_REGNUM },      NULL,              NULL},
100     {   "d7",      NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d7,           LLDB_INVALID_REGNUM,        gdb_arm_d7,             LLDB_INVALID_REGNUM },      NULL,              NULL},
101     {   "d8",      NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d8,           LLDB_INVALID_REGNUM,        gdb_arm_d8,             LLDB_INVALID_REGNUM },      NULL,              NULL},
102     {   "d9",      NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d9,           LLDB_INVALID_REGNUM,        gdb_arm_d9,             LLDB_INVALID_REGNUM },      NULL,              NULL},
103     {   "d10",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d10,          LLDB_INVALID_REGNUM,        gdb_arm_d10,            LLDB_INVALID_REGNUM },      NULL,              NULL},
104     {   "d11",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d11,          LLDB_INVALID_REGNUM,        gdb_arm_d11,            LLDB_INVALID_REGNUM },      NULL,              NULL},
105     {   "d12",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d12,          LLDB_INVALID_REGNUM,        gdb_arm_d12,            LLDB_INVALID_REGNUM },      NULL,              NULL},
106     {   "d13",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d13,          LLDB_INVALID_REGNUM,        gdb_arm_d13,            LLDB_INVALID_REGNUM },      NULL,              NULL},
107     {   "d14",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d14,          LLDB_INVALID_REGNUM,        gdb_arm_d14,            LLDB_INVALID_REGNUM },      NULL,              NULL},
108     {   "d15",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d15,          LLDB_INVALID_REGNUM,        gdb_arm_d15,            LLDB_INVALID_REGNUM },      NULL,              NULL},
109     {   "d16",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d16,          LLDB_INVALID_REGNUM,        gdb_arm_d16,            LLDB_INVALID_REGNUM },      NULL,              NULL},
110     {   "d17",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d17,          LLDB_INVALID_REGNUM,        gdb_arm_d17,            LLDB_INVALID_REGNUM },      NULL,              NULL},
111     {   "d18",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d18,          LLDB_INVALID_REGNUM,        gdb_arm_d18,            LLDB_INVALID_REGNUM },      NULL,              NULL},
112     {   "d19",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d19,          LLDB_INVALID_REGNUM,        gdb_arm_d19,            LLDB_INVALID_REGNUM },      NULL,              NULL},
113     {   "d20",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d20,          LLDB_INVALID_REGNUM,        gdb_arm_d20,            LLDB_INVALID_REGNUM },      NULL,              NULL},
114     {   "d21",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d21,          LLDB_INVALID_REGNUM,        gdb_arm_d21,            LLDB_INVALID_REGNUM },      NULL,              NULL},
115     {   "d22",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d22,          LLDB_INVALID_REGNUM,        gdb_arm_d22,            LLDB_INVALID_REGNUM },      NULL,              NULL},
116     {   "d23",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d23,          LLDB_INVALID_REGNUM,        gdb_arm_d23,            LLDB_INVALID_REGNUM },      NULL,              NULL},
117     {   "d24",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d24,          LLDB_INVALID_REGNUM,        gdb_arm_d24,            LLDB_INVALID_REGNUM },      NULL,              NULL},
118     {   "d25",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d25,          LLDB_INVALID_REGNUM,        gdb_arm_d25,            LLDB_INVALID_REGNUM },      NULL,              NULL},
119     {   "d26",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d26,          LLDB_INVALID_REGNUM,        gdb_arm_d26,            LLDB_INVALID_REGNUM },      NULL,              NULL},
120     {   "d27",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d27,          LLDB_INVALID_REGNUM,        gdb_arm_d27,            LLDB_INVALID_REGNUM },      NULL,              NULL},
121     {   "d28",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d28,          LLDB_INVALID_REGNUM,        gdb_arm_d28,            LLDB_INVALID_REGNUM },      NULL,              NULL},
122     {   "d29",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d29,          LLDB_INVALID_REGNUM,        gdb_arm_d29,            LLDB_INVALID_REGNUM },      NULL,              NULL},
123     {   "d30",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d30,          LLDB_INVALID_REGNUM,        gdb_arm_d30,            LLDB_INVALID_REGNUM },      NULL,              NULL},
124     {   "d31",     NULL,      8, 0, eEncodingIEEE754 , eFormatFloat, { LLDB_INVALID_REGNUM,  dwarf_d31,          LLDB_INVALID_REGNUM,        gdb_arm_d31,            LLDB_INVALID_REGNUM },      NULL,              NULL},
125     {   "r8_usr",  NULL,      4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r8_usr,       LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
126     {   "r9_usr",  NULL,      4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r9_usr,       LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
127     {   "r10_usr", NULL,      4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r10_usr,      LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
128     {   "r11_usr", NULL,      4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r11_usr,      LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
129     {   "r12_usr", NULL,      4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r12_usr,      LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
130     {   "r13_usr", "sp_usr",  4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r13_usr,      LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
131     {   "r14_usr", "lr_usr",  4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r14_usr,      LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
132     {   "r8_fiq",  NULL,      4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r8_fiq,       LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
133     {   "r9_fiq",  NULL,      4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r9_fiq,       LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
134     {   "r10_fiq", NULL,      4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r10_fiq,      LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
135     {   "r11_fiq", NULL,      4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r11_fiq,      LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
136     {   "r12_fiq", NULL,      4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r12_fiq,      LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
137     {   "r13_fiq", "sp_fiq",  4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r13_fiq,      LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
138     {   "r14_fiq", "lr_fiq",  4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r14_fiq,      LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
139     {   "r13_irq", "sp_irq",  4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r13_irq,      LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
140     {   "r14_irq", "lr_irq",  4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r14_irq,      LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
141     {   "r13_abt", "sp_abt",  4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r13_abt,      LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
142     {   "r14_abt", "lr_abt",  4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r14_abt,      LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
143     {   "r13_und", "sp_und",  4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r13_und,      LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
144     {   "r14_und", "lr_und",  4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r14_und,      LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
145     {   "r13_svc", "sp_svc",  4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r13_svc,      LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL},
146     {   "r14_svc", "lr_svc",  4, 0, eEncodingUint    , eFormatHex,   { LLDB_INVALID_REGNUM,  dwarf_r14_svc,      LLDB_INVALID_REGNUM,        LLDB_INVALID_REGNUM,    LLDB_INVALID_REGNUM },      NULL,              NULL}
147 };
148 static const uint32_t k_num_register_infos = llvm::array_lengthof(g_register_infos);
149 static bool g_register_info_names_constified = false;
150 
151 const lldb_private::RegisterInfo *
GetRegisterInfoArray(uint32_t & count)152 ABIMacOSX_arm::GetRegisterInfoArray (uint32_t &count)
153 {
154     // Make the C-string names and alt_names for the register infos into const
155     // C-string values by having the ConstString unique the names in the global
156     // constant C-string pool.
157     if (!g_register_info_names_constified)
158     {
159         g_register_info_names_constified = true;
160         for (uint32_t i=0; i<k_num_register_infos; ++i)
161         {
162             if (g_register_infos[i].name)
163                 g_register_infos[i].name = ConstString(g_register_infos[i].name).GetCString();
164             if (g_register_infos[i].alt_name)
165                 g_register_infos[i].alt_name = ConstString(g_register_infos[i].alt_name).GetCString();
166         }
167     }
168     count = k_num_register_infos;
169     return g_register_infos;
170 }
171 
172 
173 size_t
GetRedZoneSize() const174 ABIMacOSX_arm::GetRedZoneSize () const
175 {
176     return 0;
177 }
178 
179 //------------------------------------------------------------------
180 // Static Functions
181 //------------------------------------------------------------------
182 ABISP
CreateInstance(const ArchSpec & arch)183 ABIMacOSX_arm::CreateInstance (const ArchSpec &arch)
184 {
185     static ABISP g_abi_sp;
186     const llvm::Triple::ArchType arch_type = arch.GetTriple().getArch();
187     const llvm::Triple::VendorType vendor_type = arch.GetTriple().getVendor();
188 
189     if (vendor_type == llvm::Triple::Apple)
190     {
191         if ((arch_type == llvm::Triple::arm) ||
192             (arch_type == llvm::Triple::thumb))
193         {
194             if (!g_abi_sp)
195                 g_abi_sp.reset (new ABIMacOSX_arm);
196             return g_abi_sp;
197         }
198     }
199 
200     return ABISP();
201 }
202 
203 bool
PrepareTrivialCall(Thread & thread,addr_t sp,addr_t function_addr,addr_t return_addr,llvm::ArrayRef<addr_t> args) const204 ABIMacOSX_arm::PrepareTrivialCall (Thread &thread,
205                                    addr_t sp,
206                                    addr_t function_addr,
207                                    addr_t return_addr,
208                                    llvm::ArrayRef<addr_t> args) const
209 {
210     RegisterContext *reg_ctx = thread.GetRegisterContext().get();
211     if (!reg_ctx)
212         return false;
213 
214     const uint32_t pc_reg_num = reg_ctx->ConvertRegisterKindToRegisterNumber (eRegisterKindGeneric, LLDB_REGNUM_GENERIC_PC);
215     const uint32_t sp_reg_num = reg_ctx->ConvertRegisterKindToRegisterNumber (eRegisterKindGeneric, LLDB_REGNUM_GENERIC_SP);
216     const uint32_t ra_reg_num = reg_ctx->ConvertRegisterKindToRegisterNumber (eRegisterKindGeneric, LLDB_REGNUM_GENERIC_RA);
217 
218     RegisterValue reg_value;
219 
220     const char *reg_names[] = { "r0", "r1", "r2", "r3" };
221 
222     llvm::ArrayRef<addr_t>::iterator ai = args.begin(), ae = args.end();
223 
224     for (size_t i = 0; i < llvm::array_lengthof(reg_names); ++i)
225     {
226         if (ai == ae)
227             break;
228 
229         reg_value.SetUInt32(*ai);
230         if (!reg_ctx->WriteRegister(reg_ctx->GetRegisterInfoByName(reg_names[i]), reg_value))
231             return false;
232 
233         ++ai;
234     }
235 
236     if (ai != ae)
237     {
238         // Spill onto the stack
239         size_t num_stack_regs = ae - ai;
240 
241         sp -= (num_stack_regs * 4);
242         // Keep the stack 8 byte aligned, not that we need to
243         sp &= ~(8ull-1ull);
244 
245         // just using arg1 to get the right size
246         const RegisterInfo *reg_info = reg_ctx->GetRegisterInfo(eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG1);
247 
248         addr_t arg_pos = sp;
249 
250         for (; ai != ae; ++ai)
251         {
252             reg_value.SetUInt32(*ai);
253             if (reg_ctx->WriteRegisterValueToMemory(reg_info, arg_pos, reg_info->byte_size, reg_value).Fail())
254                 return false;
255             arg_pos += reg_info->byte_size;
256         }
257     }
258 
259     TargetSP target_sp (thread.CalculateTarget());
260     Address so_addr;
261 
262     // Figure out if our return address is ARM or Thumb by using the
263     // Address::GetCallableLoadAddress(Target*) which will figure out the ARM
264     // thumb-ness and set the correct address bits for us.
265     so_addr.SetLoadAddress (return_addr, target_sp.get());
266     return_addr = so_addr.GetCallableLoadAddress (target_sp.get());
267 
268     // Set "lr" to the return address
269     if (!reg_ctx->WriteRegisterFromUnsigned (ra_reg_num, return_addr))
270         return false;
271 
272     // Set "sp" to the requested value
273     if (!reg_ctx->WriteRegisterFromUnsigned (sp_reg_num, sp))
274         return false;
275 
276     // If bit zero or 1 is set, this must be a thumb function, no need to figure
277     // this out from the symbols.
278     so_addr.SetLoadAddress (function_addr, target_sp.get());
279     function_addr = so_addr.GetCallableLoadAddress (target_sp.get());
280 
281     const RegisterInfo *cpsr_reg_info = reg_ctx->GetRegisterInfoByName("cpsr");
282     const uint32_t curr_cpsr = reg_ctx->ReadRegisterAsUnsigned(cpsr_reg_info, 0);
283 
284     // Make a new CPSR and mask out any Thumb IT (if/then) bits
285     uint32_t new_cpsr = curr_cpsr & ~MASK_CPSR_IT_MASK;
286     // If bit zero or 1 is set, this must be thumb...
287     if (function_addr & 1ull)
288         new_cpsr |= MASK_CPSR_T;    // Set T bit in CPSR
289     else
290         new_cpsr &= ~MASK_CPSR_T;   // Clear T bit in CPSR
291 
292     if (new_cpsr != curr_cpsr)
293     {
294         if (!reg_ctx->WriteRegisterFromUnsigned (cpsr_reg_info, new_cpsr))
295             return false;
296     }
297 
298     function_addr &= ~1ull;   // clear bit zero since the CPSR will take care of the mode for us
299 
300     // Set "pc" to the address requested
301     if (!reg_ctx->WriteRegisterFromUnsigned (pc_reg_num, function_addr))
302         return false;
303 
304     return true;
305 }
306 
307 bool
GetArgumentValues(Thread & thread,ValueList & values) const308 ABIMacOSX_arm::GetArgumentValues (Thread &thread,
309                                   ValueList &values) const
310 {
311     uint32_t num_values = values.GetSize();
312 
313 
314     ExecutionContext exe_ctx (thread.shared_from_this());
315     // For now, assume that the types in the AST values come from the Target's
316     // scratch AST.
317 
318     // Extract the register context so we can read arguments from registers
319 
320     RegisterContext *reg_ctx = thread.GetRegisterContext().get();
321 
322     if (!reg_ctx)
323         return false;
324 
325     addr_t sp = 0;
326 
327     for (uint32_t value_idx = 0; value_idx < num_values; ++value_idx)
328     {
329         // We currently only support extracting values with Clang QualTypes.
330         // Do we care about others?
331         Value *value = values.GetValueAtIndex(value_idx);
332 
333         if (!value)
334             return false;
335 
336         ClangASTType clang_type = value->GetClangType();
337         if (clang_type)
338         {
339             bool is_signed = false;
340             size_t bit_width = 0;
341             if (clang_type.IsIntegerType (is_signed))
342             {
343                 bit_width = clang_type.GetBitSize(&thread);
344             }
345             else if (clang_type.IsPointerOrReferenceType ())
346             {
347                 bit_width = clang_type.GetBitSize(&thread);
348             }
349             else
350             {
351                 // We only handle integer, pointer and reference types currently...
352                 return false;
353             }
354 
355             if (bit_width <= (exe_ctx.GetProcessRef().GetAddressByteSize() * 8))
356             {
357                 if (value_idx < 4)
358                 {
359                     // Arguments 1-4 are in r0-r3...
360                     const RegisterInfo *arg_reg_info = NULL;
361                     // Search by generic ID first, then fall back to by name
362                     uint32_t arg_reg_num = reg_ctx->ConvertRegisterKindToRegisterNumber (eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG1 + value_idx);
363                     if (arg_reg_num != LLDB_INVALID_REGNUM)
364                     {
365                         arg_reg_info = reg_ctx->GetRegisterInfoAtIndex(arg_reg_num);
366                     }
367                     else
368                     {
369                         switch (value_idx)
370                         {
371                             case 0: arg_reg_info = reg_ctx->GetRegisterInfoByName("r0"); break;
372                             case 1: arg_reg_info = reg_ctx->GetRegisterInfoByName("r1"); break;
373                             case 2: arg_reg_info = reg_ctx->GetRegisterInfoByName("r2"); break;
374                             case 3: arg_reg_info = reg_ctx->GetRegisterInfoByName("r3"); break;
375                         }
376                     }
377 
378                     if (arg_reg_info)
379                     {
380                         RegisterValue reg_value;
381 
382                         if (reg_ctx->ReadRegister(arg_reg_info, reg_value))
383                         {
384                             if (is_signed)
385                                 reg_value.SignExtend(bit_width);
386                             if (!reg_value.GetScalarValue(value->GetScalar()))
387                                 return false;
388                             continue;
389                         }
390                     }
391                     return false;
392                 }
393                 else
394                 {
395                     if (sp == 0)
396                     {
397                         // Read the stack pointer if it already hasn't been read
398                         sp = reg_ctx->GetSP(0);
399                         if (sp == 0)
400                             return false;
401                     }
402 
403                     // Arguments 5 on up are on the stack
404                     const uint32_t arg_byte_size = (bit_width + (8-1)) / 8;
405                     Error error;
406                     if (!exe_ctx.GetProcessRef().ReadScalarIntegerFromMemory(sp, arg_byte_size, is_signed, value->GetScalar(), error))
407                         return false;
408 
409                     sp += arg_byte_size;
410                 }
411             }
412         }
413     }
414     return true;
415 }
416 
417 ValueObjectSP
GetReturnValueObjectImpl(Thread & thread,lldb_private::ClangASTType & clang_type) const418 ABIMacOSX_arm::GetReturnValueObjectImpl (Thread &thread,
419                                          lldb_private::ClangASTType &clang_type) const
420 {
421     Value value;
422     ValueObjectSP return_valobj_sp;
423 
424     if (!clang_type)
425         return return_valobj_sp;
426 
427     clang::ASTContext *ast_context = clang_type.GetASTContext();
428     if (!ast_context)
429         return return_valobj_sp;
430 
431     //value.SetContext (Value::eContextTypeClangType, clang_type.GetOpaqueQualType());
432     value.SetClangType (clang_type);
433 
434     RegisterContext *reg_ctx = thread.GetRegisterContext().get();
435     if (!reg_ctx)
436         return return_valobj_sp;
437 
438     bool is_signed;
439 
440     // Get the pointer to the first stack argument so we have a place to start
441     // when reading data
442 
443     const RegisterInfo *r0_reg_info = reg_ctx->GetRegisterInfoByName("r0", 0);
444     if (clang_type.IsIntegerType (is_signed))
445     {
446         size_t bit_width = clang_type.GetBitSize(&thread);
447 
448         switch (bit_width)
449         {
450             default:
451                 return return_valobj_sp;
452             case 64:
453             {
454                 const RegisterInfo *r1_reg_info = reg_ctx->GetRegisterInfoByName("r1", 0);
455                 uint64_t raw_value;
456                 raw_value = reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT32_MAX;
457                 raw_value |= ((uint64_t)(reg_ctx->ReadRegisterAsUnsigned(r1_reg_info, 0) & UINT32_MAX)) << 32;
458                 if (is_signed)
459                     value.GetScalar() = (int64_t)raw_value;
460                 else
461                     value.GetScalar() = (uint64_t)raw_value;
462             }
463                 break;
464             case 32:
465                 if (is_signed)
466                     value.GetScalar() = (int32_t)(reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT32_MAX);
467                 else
468                     value.GetScalar() = (uint32_t)(reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT32_MAX);
469                 break;
470             case 16:
471                 if (is_signed)
472                     value.GetScalar() = (int16_t)(reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT16_MAX);
473                 else
474                     value.GetScalar() = (uint16_t)(reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT16_MAX);
475                 break;
476             case 8:
477                 if (is_signed)
478                     value.GetScalar() = (int8_t)(reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT8_MAX);
479                 else
480                     value.GetScalar() = (uint8_t)(reg_ctx->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT8_MAX);
481                 break;
482         }
483     }
484     else if (clang_type.IsPointerType ())
485     {
486         uint32_t ptr = thread.GetRegisterContext()->ReadRegisterAsUnsigned(r0_reg_info, 0) & UINT32_MAX;
487         value.GetScalar() = ptr;
488     }
489     else
490     {
491         // not handled yet
492         return return_valobj_sp;
493     }
494 
495     // If we get here, we have a valid Value, so make our ValueObject out of it:
496 
497     return_valobj_sp = ValueObjectConstResult::Create(thread.GetStackFrameAtIndex(0).get(),
498                                                       value,
499                                                       ConstString(""));
500     return return_valobj_sp;
501 }
502 
503 Error
SetReturnValueObject(lldb::StackFrameSP & frame_sp,lldb::ValueObjectSP & new_value_sp)504 ABIMacOSX_arm::SetReturnValueObject(lldb::StackFrameSP &frame_sp, lldb::ValueObjectSP &new_value_sp)
505 {
506     Error error;
507     if (!new_value_sp)
508     {
509         error.SetErrorString("Empty value object for return value.");
510         return error;
511     }
512 
513     ClangASTType clang_type = new_value_sp->GetClangType();
514     if (!clang_type)
515     {
516         error.SetErrorString ("Null clang type for return value.");
517         return error;
518     }
519 
520     Thread *thread = frame_sp->GetThread().get();
521 
522     bool is_signed;
523     uint32_t count;
524     bool is_complex;
525 
526     RegisterContext *reg_ctx = thread->GetRegisterContext().get();
527 
528     bool set_it_simple = false;
529     if (clang_type.IsIntegerType (is_signed) || clang_type.IsPointerType())
530     {
531         DataExtractor data;
532         Error data_error;
533         size_t num_bytes = new_value_sp->GetData(data, data_error);
534         if (data_error.Fail())
535         {
536             error.SetErrorStringWithFormat("Couldn't convert return value to raw data: %s", data_error.AsCString());
537             return error;
538         }
539         lldb::offset_t offset = 0;
540         if (num_bytes <= 8)
541         {
542             const RegisterInfo *r0_info = reg_ctx->GetRegisterInfoByName("r0", 0);
543             if (num_bytes <= 4)
544             {
545                 uint32_t raw_value = data.GetMaxU32(&offset, num_bytes);
546 
547                 if (reg_ctx->WriteRegisterFromUnsigned (r0_info, raw_value))
548                     set_it_simple = true;
549             }
550             else
551             {
552                 uint32_t raw_value = data.GetMaxU32(&offset, 4);
553 
554                 if (reg_ctx->WriteRegisterFromUnsigned (r0_info, raw_value))
555                 {
556                     const RegisterInfo *r1_info = reg_ctx->GetRegisterInfoByName("r1", 0);
557                     uint32_t raw_value = data.GetMaxU32(&offset, num_bytes - offset);
558 
559                     if (reg_ctx->WriteRegisterFromUnsigned (r1_info, raw_value))
560                         set_it_simple = true;
561                 }
562             }
563         }
564         else
565         {
566             error.SetErrorString("We don't support returning longer than 64 bit integer values at present.");
567         }
568     }
569     else if (clang_type.IsFloatingPointType (count, is_complex))
570     {
571         if (is_complex)
572             error.SetErrorString ("We don't support returning complex values at present");
573         else
574             error.SetErrorString ("We don't support returning float values at present");
575     }
576 
577     if (!set_it_simple)
578         error.SetErrorString ("We only support setting simple integer return types at present.");
579 
580     return error;
581 }
582 
583 bool
CreateFunctionEntryUnwindPlan(UnwindPlan & unwind_plan)584 ABIMacOSX_arm::CreateFunctionEntryUnwindPlan (UnwindPlan &unwind_plan)
585 {
586     unwind_plan.Clear();
587     unwind_plan.SetRegisterKind (eRegisterKindDWARF);
588 
589     uint32_t lr_reg_num = dwarf_lr;
590     uint32_t sp_reg_num = dwarf_sp;
591     uint32_t pc_reg_num = dwarf_pc;
592 
593     UnwindPlan::RowSP row(new UnwindPlan::Row);
594 
595     // Our Call Frame Address is the stack pointer value
596     row->GetCFAValue().SetIsRegisterPlusOffset (sp_reg_num, 0);
597 
598     // The previous PC is in the LR
599     row->SetRegisterLocationToRegister(pc_reg_num, lr_reg_num, true);
600     unwind_plan.AppendRow (row);
601 
602     // All other registers are the same.
603 
604     unwind_plan.SetSourceName ("arm at-func-entry default");
605     unwind_plan.SetSourcedFromCompiler (eLazyBoolNo);
606 
607     return true;
608 }
609 
610 bool
CreateDefaultUnwindPlan(UnwindPlan & unwind_plan)611 ABIMacOSX_arm::CreateDefaultUnwindPlan (UnwindPlan &unwind_plan)
612 {
613     unwind_plan.Clear ();
614     unwind_plan.SetRegisterKind (eRegisterKindDWARF);
615 
616     uint32_t fp_reg_num = dwarf_r7;   // apple uses r7 for all frames. Normal arm uses r11
617     uint32_t pc_reg_num = dwarf_pc;
618 
619     UnwindPlan::RowSP row(new UnwindPlan::Row);
620     const int32_t ptr_size = 4;
621 
622     row->GetCFAValue().SetIsRegisterPlusOffset (fp_reg_num, 2 * ptr_size);
623     row->SetOffset (0);
624 
625     row->SetRegisterLocationToAtCFAPlusOffset(fp_reg_num, ptr_size * -2, true);
626     row->SetRegisterLocationToAtCFAPlusOffset(pc_reg_num, ptr_size * -1, true);
627 
628     unwind_plan.AppendRow (row);
629     unwind_plan.SetSourceName ("arm-apple-ios default unwind plan");
630     unwind_plan.SetSourcedFromCompiler (eLazyBoolNo);
631     unwind_plan.SetUnwindPlanValidAtAllInstructions (eLazyBoolNo);
632 
633     return true;
634 }
635 
636 // cf. "ARMv6 Function Calling Conventions"
637 // https://developer.apple.com/library/ios/documentation/Xcode/Conceptual/iPhoneOSABIReference/Articles/ARMv6FunctionCallingConventions.html
638 // and "ARMv7 Function Calling Conventions"
639 // https://developer.apple.com/library/ios/documentation/Xcode/Conceptual/iPhoneOSABIReference/Articles/ARMv7FunctionCallingConventions.html
640 
641 // ARMv7 on iOS general purpose reg rules:
642 //    r0-r3 not preserved  (used for argument passing)
643 //    r4-r6 preserved
644 //    r7    preserved (frame pointer)
645 //    r8    preserved
646 //    r9    not preserved (usable as volatile scratch register with iOS 3.x and later)
647 //    r10-r11 preserved
648 //    r12   not presrved
649 //    r13   preserved (stack pointer)
650 //    r14   not preserved (link register)
651 //    r15   preserved (pc)
652 //    cpsr  not preserved (different rules for different bits)
653 
654 // ARMv7 on iOS floating point rules:
655 //    d0-d7   not preserved   (aka s0-s15, q0-q3)
656 //    d8-d15  preserved       (aka s16-s31, q4-q7)
657 //    d16-d31 not preserved   (aka q8-q15)
658 
659 bool
RegisterIsVolatile(const RegisterInfo * reg_info)660 ABIMacOSX_arm::RegisterIsVolatile (const RegisterInfo *reg_info)
661 {
662     if (reg_info)
663     {
664         // Volatile registers are: r0, r1, r2, r3, r9, r12, r13 (aka sp)
665         const char *name = reg_info->name;
666         if (name[0] == 'r')
667         {
668             switch (name[1])
669             {
670                 case '0': return name[2] == '\0'; // r0
671                 case '1':
672                     switch (name[2])
673                     {
674                     case '\0':
675                         return true; // r1
676                     case '2':
677                     case '3':
678                         return name[3] == '\0'; // r12, r13 (sp)
679                     default:
680                         break;
681                     }
682                     break;
683 
684                 case '2': return name[2] == '\0'; // r2
685                 case '3': return name[2] == '\0'; // r3
686                 case '9': return name[2] == '\0'; // r9 (apple-ios only...)
687 
688                 break;
689             }
690         }
691         else if (name[0] == 'd')
692         {
693             switch (name[1])
694             {
695                 case '0':
696                     return name[2] == '\0'; // d0 is volatile
697 
698                 case '1':
699                     switch (name[2])
700                     {
701                     case '\0':
702                         return true; // d1 is volatile
703                     case '6':
704                     case '7':
705                     case '8':
706                     case '9':
707                         return name[3] == '\0'; // d16 - d19 are volatile
708                     default:
709                         break;
710                     }
711                     break;
712 
713                 case '2':
714                     switch (name[2])
715                     {
716                     case '\0':
717                         return true; // d2 is volatile
718                     case '0':
719                     case '1':
720                     case '2':
721                     case '3':
722                     case '4':
723                     case '5':
724                     case '6':
725                     case '7':
726                     case '8':
727                     case '9':
728                         return name[3] == '\0'; // d20 - d29 are volatile
729                     default:
730                         break;
731                     }
732                     break;
733 
734                 case '3':
735                     switch (name[2])
736                     {
737                     case '\0':
738                         return true; // d3 is volatile
739                     case '0':
740                     case '1':
741                         return name[3] == '\0'; // d30 - d31 are volatile
742                     default:
743                         break;
744                     }
745                 case '4':
746                 case '5':
747                 case '6':
748                 case '7':
749                     return name[2] == '\0'; // d4 - d7 are volatile
750 
751                 default:
752                     break;
753             }
754         }
755         else if (name[0] == 's')
756         {
757             switch (name[1])
758             {
759                 case '0':
760                     return name[2] == '\0'; // s0 is volatile
761 
762                 case '1':
763                     switch (name[2])
764                     {
765                     case '\0':
766                         return true; // s1 is volatile
767                     case '0':
768                     case '1':
769                     case '2':
770                     case '3':
771                     case '4':
772                     case '5':
773                         return name[3] == '\0'; // s10 - s15 are volatile
774                     default:
775                         break;
776                     }
777                     break;
778 
779                 case '2':
780                     switch (name[2])
781                     {
782                     case '\0':
783                         return true; // s2 is volatile
784                     default:
785                         break;
786                     }
787                     break;
788 
789                 case '3':
790                     switch (name[2])
791                     {
792                     case '\0':
793                         return true; // s3 is volatile
794                     default:
795                         break;
796                     }
797                 case '4':
798                 case '5':
799                 case '6':
800                 case '7':
801                 case '8':
802                 case '9':
803                     return name[2] == '\0'; // s4 - s9 are volatile
804 
805                 default:
806                     break;
807             }
808         }
809         else if (name[0] == 'q')
810         {
811             switch (name[1])
812             {
813                 case '1':
814                     switch (name[2])
815                     {
816                         case '\0':
817                             return true;  // q1 is volatile
818                         case '0':
819                         case '1':
820                         case '2':
821                         case '3':
822                         case '4':
823                         case '5':
824                             return true; // q10-q15 are volatile
825                         default:
826                             break;
827                     };
828                 case '0':
829                 case '2':
830                 case '3':
831                     return name[2] == '\0'; // q0-q3 are volatile
832                 case '8':
833                 case '9':
834                     return name[2] == '\0'; // q8-q9 are volatile
835                 default:
836                     break;
837             }
838         }
839         else if (name[0] == 's' && name[1] == 'p' && name[2] == '\0')
840             return true;
841     }
842     return false;
843 }
844 
845 void
Initialize()846 ABIMacOSX_arm::Initialize()
847 {
848     PluginManager::RegisterPlugin (GetPluginNameStatic(),
849                                    "Mac OS X ABI for arm targets",
850                                    CreateInstance);
851 }
852 
853 void
Terminate()854 ABIMacOSX_arm::Terminate()
855 {
856     PluginManager::UnregisterPlugin (CreateInstance);
857 }
858 
859 lldb_private::ConstString
GetPluginNameStatic()860 ABIMacOSX_arm::GetPluginNameStatic()
861 {
862     static ConstString g_name("macosx-arm");
863     return g_name;
864 }
865 
866 //------------------------------------------------------------------
867 // PluginInterface protocol
868 //------------------------------------------------------------------
869 lldb_private::ConstString
GetPluginName()870 ABIMacOSX_arm::GetPluginName()
871 {
872     return GetPluginNameStatic();
873 }
874 
875 uint32_t
GetPluginVersion()876 ABIMacOSX_arm::GetPluginVersion()
877 {
878     return 1;
879 }
880 
881