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 <cstring>
10#include <errno.h>
11#include <stdint.h>
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    {"General Purpose Registers", "gpr", k_num_gpr_registers_s390x,
67     g_gpr_regnums_s390x},
68    {"Floating Point Registers", "fpr", k_num_fpr_registers_s390x,
69     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(register_info);
85
86  switch (register_info->m_target_arch.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() {}
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))
146      ++sets;
147  }
148
149  return sets;
150}
151
152const RegisterSet *RegisterContextPOSIX_s390x::GetRegisterSet(size_t set) {
153  if (IsRegisterSetAvailable(set)) {
154    switch (m_register_info_up->m_target_arch.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