164 lines · cpp
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-exception6//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 flag41};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 flag55};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->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 else116 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->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