1//===-- RegisterContextPOSIX_s390x.cpp ------------------------------------===//
2//
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
6//
7//===----------------------------------------------------------------------===//
8
9#include <cerrno>
10#include <cstdint>
11#include <cstring>
12
13#include "lldb/Target/Process.h"
14#include "lldb/Target/Target.h"
15#include "lldb/Target/Thread.h"
16#include "lldb/Utility/DataBufferHeap.h"
17#include "lldb/Utility/DataExtractor.h"
18#include "lldb/Utility/Endian.h"
19#include "lldb/Utility/RegisterValue.h"
20#include "lldb/Utility/Scalar.h"
21#include "llvm/Support/Compiler.h"
22
23#include "RegisterContextPOSIX_s390x.h"
24#include "RegisterContext_s390x.h"
25
26using namespace lldb_private;
27using namespace lldb;
28
29// s390x 64-bit general purpose registers.
30static const uint32_t g_gpr_regnums_s390x[] = {
31 lldb_r0_s390x, lldb_r1_s390x, lldb_r2_s390x, lldb_r3_s390x,
32 lldb_r4_s390x, lldb_r5_s390x, lldb_r6_s390x, lldb_r7_s390x,
33 lldb_r8_s390x, lldb_r9_s390x, lldb_r10_s390x, lldb_r11_s390x,
34 lldb_r12_s390x, lldb_r13_s390x, lldb_r14_s390x, lldb_r15_s390x,
35 lldb_acr0_s390x, lldb_acr1_s390x, lldb_acr2_s390x, lldb_acr3_s390x,
36 lldb_acr4_s390x, lldb_acr5_s390x, lldb_acr6_s390x, lldb_acr7_s390x,
37 lldb_acr8_s390x, lldb_acr9_s390x, lldb_acr10_s390x, lldb_acr11_s390x,
38 lldb_acr12_s390x, lldb_acr13_s390x, lldb_acr14_s390x, lldb_acr15_s390x,
39 lldb_pswm_s390x, lldb_pswa_s390x,
40 LLDB_INVALID_REGNUM // register sets need to end with this flag
41};
42static_assert((sizeof(g_gpr_regnums_s390x) / sizeof(g_gpr_regnums_s390x[0])) -
43 1 ==
44 k_num_gpr_registers_s390x,
45 "g_gpr_regnums_s390x has wrong number of register infos");
46
47// s390x 64-bit floating point registers.
48static const uint32_t g_fpu_regnums_s390x[] = {
49 lldb_f0_s390x, lldb_f1_s390x, lldb_f2_s390x, lldb_f3_s390x,
50 lldb_f4_s390x, lldb_f5_s390x, lldb_f6_s390x, lldb_f7_s390x,
51 lldb_f8_s390x, lldb_f9_s390x, lldb_f10_s390x, lldb_f11_s390x,
52 lldb_f12_s390x, lldb_f13_s390x, lldb_f14_s390x, lldb_f15_s390x,
53 lldb_fpc_s390x,
54 LLDB_INVALID_REGNUM // register sets need to end with this flag
55};
56static_assert((sizeof(g_fpu_regnums_s390x) / sizeof(g_fpu_regnums_s390x[0])) -
57 1 ==
58 k_num_fpr_registers_s390x,
59 "g_fpu_regnums_s390x has wrong number of register infos");
60
61// Number of register sets provided by this context.
62enum { k_num_register_sets = 2 };
63
64// Register sets for s390x 64-bit.
65static const RegisterSet g_reg_sets_s390x[k_num_register_sets] = {
66 {.name: "General Purpose Registers", .short_name: "gpr", .num_registers: k_num_gpr_registers_s390x,
67 .registers: g_gpr_regnums_s390x},
68 {.name: "Floating Point Registers", .short_name: "fpr", .num_registers: k_num_fpr_registers_s390x,
69 .registers: g_fpu_regnums_s390x},
70};
71
72bool RegisterContextPOSIX_s390x::IsGPR(unsigned reg) {
73 return reg <= m_reg_info.last_gpr; // GPRs come first.
74}
75
76bool RegisterContextPOSIX_s390x::IsFPR(unsigned reg) {
77 return (m_reg_info.first_fpr <= reg && reg <= m_reg_info.last_fpr);
78}
79
80RegisterContextPOSIX_s390x::RegisterContextPOSIX_s390x(
81 Thread &thread, uint32_t concrete_frame_idx,
82 RegisterInfoInterface *register_info)
83 : RegisterContext(thread, concrete_frame_idx) {
84 m_register_info_up.reset(p: register_info);
85
86 switch (register_info->GetTargetArchitecture().GetMachine()) {
87 case llvm::Triple::systemz:
88 m_reg_info.num_registers = k_num_registers_s390x;
89 m_reg_info.num_gpr_registers = k_num_gpr_registers_s390x;
90 m_reg_info.num_fpr_registers = k_num_fpr_registers_s390x;
91 m_reg_info.last_gpr = k_last_gpr_s390x;
92 m_reg_info.first_fpr = k_first_fpr_s390x;
93 m_reg_info.last_fpr = k_last_fpr_s390x;
94 break;
95 default:
96 assert(false && "Unhandled target architecture.");
97 break;
98 }
99}
100
101RegisterContextPOSIX_s390x::~RegisterContextPOSIX_s390x() = default;
102
103void RegisterContextPOSIX_s390x::Invalidate() {}
104
105void RegisterContextPOSIX_s390x::InvalidateAllRegisters() {}
106
107const RegisterInfo *RegisterContextPOSIX_s390x::GetRegisterInfo() {
108 return m_register_info_up->GetRegisterInfo();
109}
110
111const RegisterInfo *
112RegisterContextPOSIX_s390x::GetRegisterInfoAtIndex(size_t reg) {
113 if (reg < m_reg_info.num_registers)
114 return &GetRegisterInfo()[reg];
115 else
116 return nullptr;
117}
118
119size_t RegisterContextPOSIX_s390x::GetRegisterCount() {
120 return m_reg_info.num_registers;
121}
122
123unsigned RegisterContextPOSIX_s390x::GetRegisterOffset(unsigned reg) {
124 assert(reg < m_reg_info.num_registers && "Invalid register number.");
125 return GetRegisterInfo()[reg].byte_offset;
126}
127
128unsigned RegisterContextPOSIX_s390x::GetRegisterSize(unsigned reg) {
129 assert(reg < m_reg_info.num_registers && "Invalid register number.");
130 return GetRegisterInfo()[reg].byte_size;
131}
132
133const char *RegisterContextPOSIX_s390x::GetRegisterName(unsigned reg) {
134 assert(reg < m_reg_info.num_registers && "Invalid register offset.");
135 return GetRegisterInfo()[reg].name;
136}
137
138bool RegisterContextPOSIX_s390x::IsRegisterSetAvailable(size_t set_index) {
139 return set_index < k_num_register_sets;
140}
141
142size_t RegisterContextPOSIX_s390x::GetRegisterSetCount() {
143 size_t sets = 0;
144 for (size_t set = 0; set < k_num_register_sets; ++set) {
145 if (IsRegisterSetAvailable(set_index: set))
146 ++sets;
147 }
148
149 return sets;
150}
151
152const RegisterSet *RegisterContextPOSIX_s390x::GetRegisterSet(size_t set) {
153 if (IsRegisterSetAvailable(set_index: set)) {
154 switch (m_register_info_up->GetTargetArchitecture().GetMachine()) {
155 case llvm::Triple::systemz:
156 return &g_reg_sets_s390x[set];
157 default:
158 assert(false && "Unhandled target architecture.");
159 return nullptr;
160 }
161 }
162 return nullptr;
163}
164

source code of lldb/source/Plugins/Process/Utility/RegisterContextPOSIX_s390x.cpp