15ffd83dbSDimitry Andric //===-- ABISysV_s390x.cpp -------------------------------------------------===//
25ffd83dbSDimitry Andric //
35ffd83dbSDimitry Andric // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
45ffd83dbSDimitry Andric // See https://llvm.org/LICENSE.txt for license information.
55ffd83dbSDimitry Andric // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
65ffd83dbSDimitry Andric //
75ffd83dbSDimitry Andric //===----------------------------------------------------------------------===//
85ffd83dbSDimitry Andric
95ffd83dbSDimitry Andric #include "ABISysV_s390x.h"
105ffd83dbSDimitry Andric
115ffd83dbSDimitry Andric #include "llvm/ADT/STLExtras.h"
12*06c3fb27SDimitry Andric #include "llvm/TargetParser/Triple.h"
135ffd83dbSDimitry Andric
145ffd83dbSDimitry Andric #include "lldb/Core/Module.h"
155ffd83dbSDimitry Andric #include "lldb/Core/PluginManager.h"
165ffd83dbSDimitry Andric #include "lldb/Core/Value.h"
175ffd83dbSDimitry Andric #include "lldb/Core/ValueObjectConstResult.h"
185ffd83dbSDimitry Andric #include "lldb/Core/ValueObjectMemory.h"
195ffd83dbSDimitry Andric #include "lldb/Core/ValueObjectRegister.h"
205ffd83dbSDimitry Andric #include "lldb/Symbol/UnwindPlan.h"
215ffd83dbSDimitry Andric #include "lldb/Target/Process.h"
225ffd83dbSDimitry Andric #include "lldb/Target/RegisterContext.h"
235ffd83dbSDimitry Andric #include "lldb/Target/StackFrame.h"
245ffd83dbSDimitry Andric #include "lldb/Target/Target.h"
255ffd83dbSDimitry Andric #include "lldb/Target/Thread.h"
265ffd83dbSDimitry Andric #include "lldb/Utility/ConstString.h"
275ffd83dbSDimitry Andric #include "lldb/Utility/DataExtractor.h"
2881ad6265SDimitry Andric #include "lldb/Utility/LLDBLog.h"
295ffd83dbSDimitry Andric #include "lldb/Utility/Log.h"
305ffd83dbSDimitry Andric #include "lldb/Utility/RegisterValue.h"
315ffd83dbSDimitry Andric #include "lldb/Utility/Status.h"
32bdd1243dSDimitry Andric #include <optional>
335ffd83dbSDimitry Andric
345ffd83dbSDimitry Andric using namespace lldb;
355ffd83dbSDimitry Andric using namespace lldb_private;
365ffd83dbSDimitry Andric
375ffd83dbSDimitry Andric LLDB_PLUGIN_DEFINE_ADV(ABISysV_s390x, ABISystemZ)
385ffd83dbSDimitry Andric
395ffd83dbSDimitry Andric enum dwarf_regnums {
405ffd83dbSDimitry Andric // General Purpose Registers
415ffd83dbSDimitry Andric dwarf_r0_s390x = 0,
425ffd83dbSDimitry Andric dwarf_r1_s390x,
435ffd83dbSDimitry Andric dwarf_r2_s390x,
445ffd83dbSDimitry Andric dwarf_r3_s390x,
455ffd83dbSDimitry Andric dwarf_r4_s390x,
465ffd83dbSDimitry Andric dwarf_r5_s390x,
475ffd83dbSDimitry Andric dwarf_r6_s390x,
485ffd83dbSDimitry Andric dwarf_r7_s390x,
495ffd83dbSDimitry Andric dwarf_r8_s390x,
505ffd83dbSDimitry Andric dwarf_r9_s390x,
515ffd83dbSDimitry Andric dwarf_r10_s390x,
525ffd83dbSDimitry Andric dwarf_r11_s390x,
535ffd83dbSDimitry Andric dwarf_r12_s390x,
545ffd83dbSDimitry Andric dwarf_r13_s390x,
555ffd83dbSDimitry Andric dwarf_r14_s390x,
565ffd83dbSDimitry Andric dwarf_r15_s390x,
575ffd83dbSDimitry Andric // Floating Point Registers / Vector Registers 0-15
585ffd83dbSDimitry Andric dwarf_f0_s390x = 16,
595ffd83dbSDimitry Andric dwarf_f2_s390x,
605ffd83dbSDimitry Andric dwarf_f4_s390x,
615ffd83dbSDimitry Andric dwarf_f6_s390x,
625ffd83dbSDimitry Andric dwarf_f1_s390x,
635ffd83dbSDimitry Andric dwarf_f3_s390x,
645ffd83dbSDimitry Andric dwarf_f5_s390x,
655ffd83dbSDimitry Andric dwarf_f7_s390x,
665ffd83dbSDimitry Andric dwarf_f8_s390x,
675ffd83dbSDimitry Andric dwarf_f10_s390x,
685ffd83dbSDimitry Andric dwarf_f12_s390x,
695ffd83dbSDimitry Andric dwarf_f14_s390x,
705ffd83dbSDimitry Andric dwarf_f9_s390x,
715ffd83dbSDimitry Andric dwarf_f11_s390x,
725ffd83dbSDimitry Andric dwarf_f13_s390x,
735ffd83dbSDimitry Andric dwarf_f15_s390x,
745ffd83dbSDimitry Andric // Access Registers
755ffd83dbSDimitry Andric dwarf_acr0_s390x = 48,
765ffd83dbSDimitry Andric dwarf_acr1_s390x,
775ffd83dbSDimitry Andric dwarf_acr2_s390x,
785ffd83dbSDimitry Andric dwarf_acr3_s390x,
795ffd83dbSDimitry Andric dwarf_acr4_s390x,
805ffd83dbSDimitry Andric dwarf_acr5_s390x,
815ffd83dbSDimitry Andric dwarf_acr6_s390x,
825ffd83dbSDimitry Andric dwarf_acr7_s390x,
835ffd83dbSDimitry Andric dwarf_acr8_s390x,
845ffd83dbSDimitry Andric dwarf_acr9_s390x,
855ffd83dbSDimitry Andric dwarf_acr10_s390x,
865ffd83dbSDimitry Andric dwarf_acr11_s390x,
875ffd83dbSDimitry Andric dwarf_acr12_s390x,
885ffd83dbSDimitry Andric dwarf_acr13_s390x,
895ffd83dbSDimitry Andric dwarf_acr14_s390x,
905ffd83dbSDimitry Andric dwarf_acr15_s390x,
915ffd83dbSDimitry Andric // Program Status Word
925ffd83dbSDimitry Andric dwarf_pswm_s390x = 64,
935ffd83dbSDimitry Andric dwarf_pswa_s390x,
945ffd83dbSDimitry Andric // Vector Registers 16-31
955ffd83dbSDimitry Andric dwarf_v16_s390x = 68,
965ffd83dbSDimitry Andric dwarf_v18_s390x,
975ffd83dbSDimitry Andric dwarf_v20_s390x,
985ffd83dbSDimitry Andric dwarf_v22_s390x,
995ffd83dbSDimitry Andric dwarf_v17_s390x,
1005ffd83dbSDimitry Andric dwarf_v19_s390x,
1015ffd83dbSDimitry Andric dwarf_v21_s390x,
1025ffd83dbSDimitry Andric dwarf_v23_s390x,
1035ffd83dbSDimitry Andric dwarf_v24_s390x,
1045ffd83dbSDimitry Andric dwarf_v26_s390x,
1055ffd83dbSDimitry Andric dwarf_v28_s390x,
1065ffd83dbSDimitry Andric dwarf_v30_s390x,
1075ffd83dbSDimitry Andric dwarf_v25_s390x,
1085ffd83dbSDimitry Andric dwarf_v27_s390x,
1095ffd83dbSDimitry Andric dwarf_v29_s390x,
1105ffd83dbSDimitry Andric dwarf_v31_s390x,
1115ffd83dbSDimitry Andric };
1125ffd83dbSDimitry Andric
1135ffd83dbSDimitry Andric // RegisterKind: EHFrame, DWARF, Generic, Process Plugin, LLDB
1145ffd83dbSDimitry Andric
1155ffd83dbSDimitry Andric #define DEFINE_REG(name, size, alt, generic) \
1165ffd83dbSDimitry Andric { \
1175ffd83dbSDimitry Andric #name, alt, size, 0, eEncodingUint, eFormatHex, \
1185ffd83dbSDimitry Andric {dwarf_##name##_s390x, dwarf_##name##_s390x, generic, \
1195ffd83dbSDimitry Andric LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM }, \
120*06c3fb27SDimitry Andric nullptr, nullptr, nullptr, \
1215ffd83dbSDimitry Andric }
1225ffd83dbSDimitry Andric
123e8d8bef9SDimitry Andric static const RegisterInfo g_register_infos[] = {
1245ffd83dbSDimitry Andric DEFINE_REG(r0, 8, nullptr, LLDB_INVALID_REGNUM),
1255ffd83dbSDimitry Andric DEFINE_REG(r1, 8, nullptr, LLDB_INVALID_REGNUM),
126349cc55cSDimitry Andric DEFINE_REG(r2, 8, nullptr, LLDB_REGNUM_GENERIC_ARG1),
127349cc55cSDimitry Andric DEFINE_REG(r3, 8, nullptr, LLDB_REGNUM_GENERIC_ARG2),
128349cc55cSDimitry Andric DEFINE_REG(r4, 8, nullptr, LLDB_REGNUM_GENERIC_ARG3),
129349cc55cSDimitry Andric DEFINE_REG(r5, 8, nullptr, LLDB_REGNUM_GENERIC_ARG4),
130349cc55cSDimitry Andric DEFINE_REG(r6, 8, nullptr, LLDB_REGNUM_GENERIC_ARG5),
1315ffd83dbSDimitry Andric DEFINE_REG(r7, 8, nullptr, LLDB_INVALID_REGNUM),
1325ffd83dbSDimitry Andric DEFINE_REG(r8, 8, nullptr, LLDB_INVALID_REGNUM),
1335ffd83dbSDimitry Andric DEFINE_REG(r9, 8, nullptr, LLDB_INVALID_REGNUM),
1345ffd83dbSDimitry Andric DEFINE_REG(r10, 8, nullptr, LLDB_INVALID_REGNUM),
135349cc55cSDimitry Andric DEFINE_REG(r11, 8, nullptr, LLDB_REGNUM_GENERIC_FP),
1365ffd83dbSDimitry Andric DEFINE_REG(r12, 8, nullptr, LLDB_INVALID_REGNUM),
1375ffd83dbSDimitry Andric DEFINE_REG(r13, 8, nullptr, LLDB_INVALID_REGNUM),
1385ffd83dbSDimitry Andric DEFINE_REG(r14, 8, nullptr, LLDB_INVALID_REGNUM),
1395ffd83dbSDimitry Andric DEFINE_REG(r15, 8, "sp", LLDB_REGNUM_GENERIC_SP),
1405ffd83dbSDimitry Andric DEFINE_REG(acr0, 4, nullptr, LLDB_INVALID_REGNUM),
1415ffd83dbSDimitry Andric DEFINE_REG(acr1, 4, nullptr, LLDB_INVALID_REGNUM),
1425ffd83dbSDimitry Andric DEFINE_REG(acr2, 4, nullptr, LLDB_INVALID_REGNUM),
1435ffd83dbSDimitry Andric DEFINE_REG(acr3, 4, nullptr, LLDB_INVALID_REGNUM),
1445ffd83dbSDimitry Andric DEFINE_REG(acr4, 4, nullptr, LLDB_INVALID_REGNUM),
1455ffd83dbSDimitry Andric DEFINE_REG(acr5, 4, nullptr, LLDB_INVALID_REGNUM),
1465ffd83dbSDimitry Andric DEFINE_REG(acr6, 4, nullptr, LLDB_INVALID_REGNUM),
1475ffd83dbSDimitry Andric DEFINE_REG(acr7, 4, nullptr, LLDB_INVALID_REGNUM),
1485ffd83dbSDimitry Andric DEFINE_REG(acr8, 4, nullptr, LLDB_INVALID_REGNUM),
1495ffd83dbSDimitry Andric DEFINE_REG(acr9, 4, nullptr, LLDB_INVALID_REGNUM),
1505ffd83dbSDimitry Andric DEFINE_REG(acr10, 4, nullptr, LLDB_INVALID_REGNUM),
1515ffd83dbSDimitry Andric DEFINE_REG(acr11, 4, nullptr, LLDB_INVALID_REGNUM),
1525ffd83dbSDimitry Andric DEFINE_REG(acr12, 4, nullptr, LLDB_INVALID_REGNUM),
1535ffd83dbSDimitry Andric DEFINE_REG(acr13, 4, nullptr, LLDB_INVALID_REGNUM),
1545ffd83dbSDimitry Andric DEFINE_REG(acr14, 4, nullptr, LLDB_INVALID_REGNUM),
1555ffd83dbSDimitry Andric DEFINE_REG(acr15, 4, nullptr, LLDB_INVALID_REGNUM),
156349cc55cSDimitry Andric DEFINE_REG(pswm, 8, nullptr, LLDB_REGNUM_GENERIC_FLAGS),
157349cc55cSDimitry Andric DEFINE_REG(pswa, 8, nullptr, LLDB_REGNUM_GENERIC_PC),
1585ffd83dbSDimitry Andric DEFINE_REG(f0, 8, nullptr, LLDB_INVALID_REGNUM),
1595ffd83dbSDimitry Andric DEFINE_REG(f1, 8, nullptr, LLDB_INVALID_REGNUM),
1605ffd83dbSDimitry Andric DEFINE_REG(f2, 8, nullptr, LLDB_INVALID_REGNUM),
1615ffd83dbSDimitry Andric DEFINE_REG(f3, 8, nullptr, LLDB_INVALID_REGNUM),
1625ffd83dbSDimitry Andric DEFINE_REG(f4, 8, nullptr, LLDB_INVALID_REGNUM),
1635ffd83dbSDimitry Andric DEFINE_REG(f5, 8, nullptr, LLDB_INVALID_REGNUM),
1645ffd83dbSDimitry Andric DEFINE_REG(f6, 8, nullptr, LLDB_INVALID_REGNUM),
1655ffd83dbSDimitry Andric DEFINE_REG(f7, 8, nullptr, LLDB_INVALID_REGNUM),
1665ffd83dbSDimitry Andric DEFINE_REG(f8, 8, nullptr, LLDB_INVALID_REGNUM),
1675ffd83dbSDimitry Andric DEFINE_REG(f9, 8, nullptr, LLDB_INVALID_REGNUM),
1685ffd83dbSDimitry Andric DEFINE_REG(f10, 8, nullptr, LLDB_INVALID_REGNUM),
1695ffd83dbSDimitry Andric DEFINE_REG(f11, 8, nullptr, LLDB_INVALID_REGNUM),
1705ffd83dbSDimitry Andric DEFINE_REG(f12, 8, nullptr, LLDB_INVALID_REGNUM),
1715ffd83dbSDimitry Andric DEFINE_REG(f13, 8, nullptr, LLDB_INVALID_REGNUM),
1725ffd83dbSDimitry Andric DEFINE_REG(f14, 8, nullptr, LLDB_INVALID_REGNUM),
1735ffd83dbSDimitry Andric DEFINE_REG(f15, 8, nullptr, LLDB_INVALID_REGNUM),
1745ffd83dbSDimitry Andric };
1755ffd83dbSDimitry Andric
176bdd1243dSDimitry Andric static const uint32_t k_num_register_infos = std::size(g_register_infos);
1775ffd83dbSDimitry Andric
1785ffd83dbSDimitry Andric const lldb_private::RegisterInfo *
GetRegisterInfoArray(uint32_t & count)1795ffd83dbSDimitry Andric ABISysV_s390x::GetRegisterInfoArray(uint32_t &count) {
1805ffd83dbSDimitry Andric count = k_num_register_infos;
1815ffd83dbSDimitry Andric return g_register_infos;
1825ffd83dbSDimitry Andric }
1835ffd83dbSDimitry Andric
GetRedZoneSize() const1845ffd83dbSDimitry Andric size_t ABISysV_s390x::GetRedZoneSize() const { return 0; }
1855ffd83dbSDimitry Andric
1865ffd83dbSDimitry Andric // Static Functions
1875ffd83dbSDimitry Andric
1885ffd83dbSDimitry Andric ABISP
CreateInstance(lldb::ProcessSP process_sp,const ArchSpec & arch)1895ffd83dbSDimitry Andric ABISysV_s390x::CreateInstance(lldb::ProcessSP process_sp, const ArchSpec &arch) {
1905ffd83dbSDimitry Andric if (arch.GetTriple().getArch() == llvm::Triple::systemz) {
1915ffd83dbSDimitry Andric return ABISP(new ABISysV_s390x(std::move(process_sp), MakeMCRegisterInfo(arch)));
1925ffd83dbSDimitry Andric }
1935ffd83dbSDimitry Andric return ABISP();
1945ffd83dbSDimitry Andric }
1955ffd83dbSDimitry Andric
PrepareTrivialCall(Thread & thread,addr_t sp,addr_t func_addr,addr_t return_addr,llvm::ArrayRef<addr_t> args) const1965ffd83dbSDimitry Andric bool ABISysV_s390x::PrepareTrivialCall(Thread &thread, addr_t sp,
1975ffd83dbSDimitry Andric addr_t func_addr, addr_t return_addr,
1985ffd83dbSDimitry Andric llvm::ArrayRef<addr_t> args) const {
19981ad6265SDimitry Andric Log *log = GetLog(LLDBLog::Expressions);
2005ffd83dbSDimitry Andric
2015ffd83dbSDimitry Andric if (log) {
2025ffd83dbSDimitry Andric StreamString s;
2035ffd83dbSDimitry Andric s.Printf("ABISysV_s390x::PrepareTrivialCall (tid = 0x%" PRIx64
2045ffd83dbSDimitry Andric ", sp = 0x%" PRIx64 ", func_addr = 0x%" PRIx64
2055ffd83dbSDimitry Andric ", return_addr = 0x%" PRIx64,
2065ffd83dbSDimitry Andric thread.GetID(), (uint64_t)sp, (uint64_t)func_addr,
2075ffd83dbSDimitry Andric (uint64_t)return_addr);
2085ffd83dbSDimitry Andric
2095ffd83dbSDimitry Andric for (size_t i = 0; i < args.size(); ++i)
2105ffd83dbSDimitry Andric s.Printf(", arg%" PRIu64 " = 0x%" PRIx64, static_cast<uint64_t>(i + 1),
2115ffd83dbSDimitry Andric args[i]);
2125ffd83dbSDimitry Andric s.PutCString(")");
2135ffd83dbSDimitry Andric log->PutString(s.GetString());
2145ffd83dbSDimitry Andric }
2155ffd83dbSDimitry Andric
2165ffd83dbSDimitry Andric RegisterContext *reg_ctx = thread.GetRegisterContext().get();
2175ffd83dbSDimitry Andric if (!reg_ctx)
2185ffd83dbSDimitry Andric return false;
2195ffd83dbSDimitry Andric
2205ffd83dbSDimitry Andric const RegisterInfo *pc_reg_info =
2215ffd83dbSDimitry Andric reg_ctx->GetRegisterInfo(eRegisterKindGeneric, LLDB_REGNUM_GENERIC_PC);
2225ffd83dbSDimitry Andric const RegisterInfo *sp_reg_info =
2235ffd83dbSDimitry Andric reg_ctx->GetRegisterInfo(eRegisterKindGeneric, LLDB_REGNUM_GENERIC_SP);
2245ffd83dbSDimitry Andric const RegisterInfo *ra_reg_info = reg_ctx->GetRegisterInfoByName("r14", 0);
2255ffd83dbSDimitry Andric ProcessSP process_sp(thread.GetProcess());
2265ffd83dbSDimitry Andric
2275ffd83dbSDimitry Andric // Allocate a new stack frame and space for stack arguments if necessary
2285ffd83dbSDimitry Andric
2295ffd83dbSDimitry Andric addr_t arg_pos = 0;
2305ffd83dbSDimitry Andric if (args.size() > 5) {
2315ffd83dbSDimitry Andric sp -= 8 * (args.size() - 5);
2325ffd83dbSDimitry Andric arg_pos = sp;
2335ffd83dbSDimitry Andric }
2345ffd83dbSDimitry Andric
2355ffd83dbSDimitry Andric sp -= 160;
2365ffd83dbSDimitry Andric
2375ffd83dbSDimitry Andric // Process arguments
2385ffd83dbSDimitry Andric
2395ffd83dbSDimitry Andric for (size_t i = 0; i < args.size(); ++i) {
2405ffd83dbSDimitry Andric if (i < 5) {
2415ffd83dbSDimitry Andric const RegisterInfo *reg_info = reg_ctx->GetRegisterInfo(
2425ffd83dbSDimitry Andric eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG1 + i);
2435ffd83dbSDimitry Andric LLDB_LOGF(log, "About to write arg%" PRIu64 " (0x%" PRIx64 ") into %s",
2445ffd83dbSDimitry Andric static_cast<uint64_t>(i + 1), args[i], reg_info->name);
2455ffd83dbSDimitry Andric if (!reg_ctx->WriteRegisterFromUnsigned(reg_info, args[i]))
2465ffd83dbSDimitry Andric return false;
2475ffd83dbSDimitry Andric } else {
2485ffd83dbSDimitry Andric Status error;
2495ffd83dbSDimitry Andric LLDB_LOGF(log, "About to write arg%" PRIu64 " (0x%" PRIx64 ") onto stack",
2505ffd83dbSDimitry Andric static_cast<uint64_t>(i + 1), args[i]);
2515ffd83dbSDimitry Andric if (!process_sp->WritePointerToMemory(arg_pos, args[i], error))
2525ffd83dbSDimitry Andric return false;
2535ffd83dbSDimitry Andric arg_pos += 8;
2545ffd83dbSDimitry Andric }
2555ffd83dbSDimitry Andric }
2565ffd83dbSDimitry Andric
2575ffd83dbSDimitry Andric // %r14 is set to the return address
2585ffd83dbSDimitry Andric
2595ffd83dbSDimitry Andric LLDB_LOGF(log, "Writing RA: 0x%" PRIx64, (uint64_t)return_addr);
2605ffd83dbSDimitry Andric
2615ffd83dbSDimitry Andric if (!reg_ctx->WriteRegisterFromUnsigned(ra_reg_info, return_addr))
2625ffd83dbSDimitry Andric return false;
2635ffd83dbSDimitry Andric
2645ffd83dbSDimitry Andric // %r15 is set to the actual stack value.
2655ffd83dbSDimitry Andric
2665ffd83dbSDimitry Andric LLDB_LOGF(log, "Writing SP: 0x%" PRIx64, (uint64_t)sp);
2675ffd83dbSDimitry Andric
2685ffd83dbSDimitry Andric if (!reg_ctx->WriteRegisterFromUnsigned(sp_reg_info, sp))
2695ffd83dbSDimitry Andric return false;
2705ffd83dbSDimitry Andric
2715ffd83dbSDimitry Andric // %pc is set to the address of the called function.
2725ffd83dbSDimitry Andric
2735ffd83dbSDimitry Andric LLDB_LOGF(log, "Writing PC: 0x%" PRIx64, (uint64_t)func_addr);
2745ffd83dbSDimitry Andric
2755ffd83dbSDimitry Andric if (!reg_ctx->WriteRegisterFromUnsigned(pc_reg_info, func_addr))
2765ffd83dbSDimitry Andric return false;
2775ffd83dbSDimitry Andric
2785ffd83dbSDimitry Andric return true;
2795ffd83dbSDimitry Andric }
2805ffd83dbSDimitry Andric
ReadIntegerArgument(Scalar & scalar,unsigned int bit_width,bool is_signed,Thread & thread,uint32_t * argument_register_ids,unsigned int & current_argument_register,addr_t & current_stack_argument)2815ffd83dbSDimitry Andric static bool ReadIntegerArgument(Scalar &scalar, unsigned int bit_width,
2825ffd83dbSDimitry Andric bool is_signed, Thread &thread,
2835ffd83dbSDimitry Andric uint32_t *argument_register_ids,
2845ffd83dbSDimitry Andric unsigned int ¤t_argument_register,
2855ffd83dbSDimitry Andric addr_t ¤t_stack_argument) {
2865ffd83dbSDimitry Andric if (bit_width > 64)
2875ffd83dbSDimitry Andric return false; // Scalar can't hold large integer arguments
2885ffd83dbSDimitry Andric
2895ffd83dbSDimitry Andric if (current_argument_register < 5) {
2905ffd83dbSDimitry Andric scalar = thread.GetRegisterContext()->ReadRegisterAsUnsigned(
2915ffd83dbSDimitry Andric argument_register_ids[current_argument_register], 0);
2925ffd83dbSDimitry Andric current_argument_register++;
2935ffd83dbSDimitry Andric if (is_signed)
2945ffd83dbSDimitry Andric scalar.SignExtend(bit_width);
2955ffd83dbSDimitry Andric } else {
2965ffd83dbSDimitry Andric uint32_t byte_size = (bit_width + (8 - 1)) / 8;
2975ffd83dbSDimitry Andric Status error;
2985ffd83dbSDimitry Andric if (thread.GetProcess()->ReadScalarIntegerFromMemory(
2995ffd83dbSDimitry Andric current_stack_argument + 8 - byte_size, byte_size, is_signed,
3005ffd83dbSDimitry Andric scalar, error)) {
3015ffd83dbSDimitry Andric current_stack_argument += 8;
3025ffd83dbSDimitry Andric return true;
3035ffd83dbSDimitry Andric }
3045ffd83dbSDimitry Andric return false;
3055ffd83dbSDimitry Andric }
3065ffd83dbSDimitry Andric return true;
3075ffd83dbSDimitry Andric }
3085ffd83dbSDimitry Andric
GetArgumentValues(Thread & thread,ValueList & values) const3095ffd83dbSDimitry Andric bool ABISysV_s390x::GetArgumentValues(Thread &thread, ValueList &values) const {
3105ffd83dbSDimitry Andric unsigned int num_values = values.GetSize();
3115ffd83dbSDimitry Andric unsigned int value_index;
3125ffd83dbSDimitry Andric
3135ffd83dbSDimitry Andric // Extract the register context so we can read arguments from registers
3145ffd83dbSDimitry Andric
3155ffd83dbSDimitry Andric RegisterContext *reg_ctx = thread.GetRegisterContext().get();
3165ffd83dbSDimitry Andric
3175ffd83dbSDimitry Andric if (!reg_ctx)
3185ffd83dbSDimitry Andric return false;
3195ffd83dbSDimitry Andric
3205ffd83dbSDimitry Andric // Get the pointer to the first stack argument so we have a place to start
3215ffd83dbSDimitry Andric // when reading data
3225ffd83dbSDimitry Andric
3235ffd83dbSDimitry Andric addr_t sp = reg_ctx->GetSP(0);
3245ffd83dbSDimitry Andric
3255ffd83dbSDimitry Andric if (!sp)
3265ffd83dbSDimitry Andric return false;
3275ffd83dbSDimitry Andric
3285ffd83dbSDimitry Andric addr_t current_stack_argument = sp + 160;
3295ffd83dbSDimitry Andric
3305ffd83dbSDimitry Andric uint32_t argument_register_ids[5];
3315ffd83dbSDimitry Andric
3325ffd83dbSDimitry Andric argument_register_ids[0] =
3335ffd83dbSDimitry Andric reg_ctx->GetRegisterInfo(eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG1)
3345ffd83dbSDimitry Andric ->kinds[eRegisterKindLLDB];
3355ffd83dbSDimitry Andric argument_register_ids[1] =
3365ffd83dbSDimitry Andric reg_ctx->GetRegisterInfo(eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG2)
3375ffd83dbSDimitry Andric ->kinds[eRegisterKindLLDB];
3385ffd83dbSDimitry Andric argument_register_ids[2] =
3395ffd83dbSDimitry Andric reg_ctx->GetRegisterInfo(eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG3)
3405ffd83dbSDimitry Andric ->kinds[eRegisterKindLLDB];
3415ffd83dbSDimitry Andric argument_register_ids[3] =
3425ffd83dbSDimitry Andric reg_ctx->GetRegisterInfo(eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG4)
3435ffd83dbSDimitry Andric ->kinds[eRegisterKindLLDB];
3445ffd83dbSDimitry Andric argument_register_ids[4] =
3455ffd83dbSDimitry Andric reg_ctx->GetRegisterInfo(eRegisterKindGeneric, LLDB_REGNUM_GENERIC_ARG5)
3465ffd83dbSDimitry Andric ->kinds[eRegisterKindLLDB];
3475ffd83dbSDimitry Andric
3485ffd83dbSDimitry Andric unsigned int current_argument_register = 0;
3495ffd83dbSDimitry Andric
3505ffd83dbSDimitry Andric for (value_index = 0; value_index < num_values; ++value_index) {
3515ffd83dbSDimitry Andric Value *value = values.GetValueAtIndex(value_index);
3525ffd83dbSDimitry Andric
3535ffd83dbSDimitry Andric if (!value)
3545ffd83dbSDimitry Andric return false;
3555ffd83dbSDimitry Andric
3565ffd83dbSDimitry Andric // We currently only support extracting values with Clang QualTypes. Do we
3575ffd83dbSDimitry Andric // care about others?
3585ffd83dbSDimitry Andric CompilerType compiler_type = value->GetCompilerType();
359bdd1243dSDimitry Andric std::optional<uint64_t> bit_size = compiler_type.GetBitSize(&thread);
3605ffd83dbSDimitry Andric if (!bit_size)
3615ffd83dbSDimitry Andric return false;
3625ffd83dbSDimitry Andric bool is_signed;
3635ffd83dbSDimitry Andric
3645ffd83dbSDimitry Andric if (compiler_type.IsIntegerOrEnumerationType(is_signed)) {
3655ffd83dbSDimitry Andric ReadIntegerArgument(value->GetScalar(), *bit_size, is_signed, thread,
3665ffd83dbSDimitry Andric argument_register_ids, current_argument_register,
3675ffd83dbSDimitry Andric current_stack_argument);
3685ffd83dbSDimitry Andric } else if (compiler_type.IsPointerType()) {
3695ffd83dbSDimitry Andric ReadIntegerArgument(value->GetScalar(), *bit_size, false, thread,
3705ffd83dbSDimitry Andric argument_register_ids, current_argument_register,
3715ffd83dbSDimitry Andric current_stack_argument);
3725ffd83dbSDimitry Andric }
3735ffd83dbSDimitry Andric }
3745ffd83dbSDimitry Andric
3755ffd83dbSDimitry Andric return true;
3765ffd83dbSDimitry Andric }
3775ffd83dbSDimitry Andric
SetReturnValueObject(lldb::StackFrameSP & frame_sp,lldb::ValueObjectSP & new_value_sp)3785ffd83dbSDimitry Andric Status ABISysV_s390x::SetReturnValueObject(lldb::StackFrameSP &frame_sp,
3795ffd83dbSDimitry Andric lldb::ValueObjectSP &new_value_sp) {
3805ffd83dbSDimitry Andric Status error;
3815ffd83dbSDimitry Andric if (!new_value_sp) {
3825ffd83dbSDimitry Andric error.SetErrorString("Empty value object for return value.");
3835ffd83dbSDimitry Andric return error;
3845ffd83dbSDimitry Andric }
3855ffd83dbSDimitry Andric
3865ffd83dbSDimitry Andric CompilerType compiler_type = new_value_sp->GetCompilerType();
3875ffd83dbSDimitry Andric if (!compiler_type) {
3885ffd83dbSDimitry Andric error.SetErrorString("Null clang type for return value.");
3895ffd83dbSDimitry Andric return error;
3905ffd83dbSDimitry Andric }
3915ffd83dbSDimitry Andric
3925ffd83dbSDimitry Andric Thread *thread = frame_sp->GetThread().get();
3935ffd83dbSDimitry Andric
3945ffd83dbSDimitry Andric bool is_signed;
3955ffd83dbSDimitry Andric uint32_t count;
3965ffd83dbSDimitry Andric bool is_complex;
3975ffd83dbSDimitry Andric
3985ffd83dbSDimitry Andric RegisterContext *reg_ctx = thread->GetRegisterContext().get();
3995ffd83dbSDimitry Andric
4005ffd83dbSDimitry Andric bool set_it_simple = false;
4015ffd83dbSDimitry Andric if (compiler_type.IsIntegerOrEnumerationType(is_signed) ||
4025ffd83dbSDimitry Andric compiler_type.IsPointerType()) {
4035ffd83dbSDimitry Andric const RegisterInfo *reg_info = reg_ctx->GetRegisterInfoByName("r2", 0);
4045ffd83dbSDimitry Andric
4055ffd83dbSDimitry Andric DataExtractor data;
4065ffd83dbSDimitry Andric Status data_error;
4075ffd83dbSDimitry Andric size_t num_bytes = new_value_sp->GetData(data, data_error);
4085ffd83dbSDimitry Andric if (data_error.Fail()) {
4095ffd83dbSDimitry Andric error.SetErrorStringWithFormat(
4105ffd83dbSDimitry Andric "Couldn't convert return value to raw data: %s",
4115ffd83dbSDimitry Andric data_error.AsCString());
4125ffd83dbSDimitry Andric return error;
4135ffd83dbSDimitry Andric }
4145ffd83dbSDimitry Andric lldb::offset_t offset = 0;
4155ffd83dbSDimitry Andric if (num_bytes <= 8) {
4165ffd83dbSDimitry Andric uint64_t raw_value = data.GetMaxU64(&offset, num_bytes);
4175ffd83dbSDimitry Andric
4185ffd83dbSDimitry Andric if (reg_ctx->WriteRegisterFromUnsigned(reg_info, raw_value))
4195ffd83dbSDimitry Andric set_it_simple = true;
4205ffd83dbSDimitry Andric } else {
4215ffd83dbSDimitry Andric error.SetErrorString("We don't support returning longer than 64 bit "
4225ffd83dbSDimitry Andric "integer values at present.");
4235ffd83dbSDimitry Andric }
4245ffd83dbSDimitry Andric } else if (compiler_type.IsFloatingPointType(count, is_complex)) {
4255ffd83dbSDimitry Andric if (is_complex)
4265ffd83dbSDimitry Andric error.SetErrorString(
4275ffd83dbSDimitry Andric "We don't support returning complex values at present");
4285ffd83dbSDimitry Andric else {
429bdd1243dSDimitry Andric std::optional<uint64_t> bit_width =
4305ffd83dbSDimitry Andric compiler_type.GetBitSize(frame_sp.get());
4315ffd83dbSDimitry Andric if (!bit_width) {
4325ffd83dbSDimitry Andric error.SetErrorString("can't get type size");
4335ffd83dbSDimitry Andric return error;
4345ffd83dbSDimitry Andric }
4355ffd83dbSDimitry Andric if (*bit_width <= 64) {
4365ffd83dbSDimitry Andric const RegisterInfo *f0_info = reg_ctx->GetRegisterInfoByName("f0", 0);
4375ffd83dbSDimitry Andric RegisterValue f0_value;
4385ffd83dbSDimitry Andric DataExtractor data;
4395ffd83dbSDimitry Andric Status data_error;
4405ffd83dbSDimitry Andric size_t num_bytes = new_value_sp->GetData(data, data_error);
4415ffd83dbSDimitry Andric if (data_error.Fail()) {
4425ffd83dbSDimitry Andric error.SetErrorStringWithFormat(
4435ffd83dbSDimitry Andric "Couldn't convert return value to raw data: %s",
4445ffd83dbSDimitry Andric data_error.AsCString());
4455ffd83dbSDimitry Andric return error;
4465ffd83dbSDimitry Andric }
4475ffd83dbSDimitry Andric
4485ffd83dbSDimitry Andric unsigned char buffer[8];
4495ffd83dbSDimitry Andric ByteOrder byte_order = data.GetByteOrder();
4505ffd83dbSDimitry Andric
4515ffd83dbSDimitry Andric data.CopyByteOrderedData(0, num_bytes, buffer, 8, byte_order);
4525ffd83dbSDimitry Andric f0_value.SetBytes(buffer, 8, byte_order);
4535ffd83dbSDimitry Andric reg_ctx->WriteRegister(f0_info, f0_value);
4545ffd83dbSDimitry Andric set_it_simple = true;
4555ffd83dbSDimitry Andric } else {
4565ffd83dbSDimitry Andric // FIXME - don't know how to do long doubles yet.
4575ffd83dbSDimitry Andric error.SetErrorString(
4585ffd83dbSDimitry Andric "We don't support returning float values > 64 bits at present");
4595ffd83dbSDimitry Andric }
4605ffd83dbSDimitry Andric }
4615ffd83dbSDimitry Andric }
4625ffd83dbSDimitry Andric
4635ffd83dbSDimitry Andric if (!set_it_simple) {
4645ffd83dbSDimitry Andric // Okay we've got a structure or something that doesn't fit in a simple
4655ffd83dbSDimitry Andric // register. We should figure out where it really goes, but we don't
4665ffd83dbSDimitry Andric // support this yet.
4675ffd83dbSDimitry Andric error.SetErrorString("We only support setting simple integer and float "
4685ffd83dbSDimitry Andric "return types at present.");
4695ffd83dbSDimitry Andric }
4705ffd83dbSDimitry Andric
4715ffd83dbSDimitry Andric return error;
4725ffd83dbSDimitry Andric }
4735ffd83dbSDimitry Andric
GetReturnValueObjectSimple(Thread & thread,CompilerType & return_compiler_type) const4745ffd83dbSDimitry Andric ValueObjectSP ABISysV_s390x::GetReturnValueObjectSimple(
4755ffd83dbSDimitry Andric Thread &thread, CompilerType &return_compiler_type) const {
4765ffd83dbSDimitry Andric ValueObjectSP return_valobj_sp;
4775ffd83dbSDimitry Andric Value value;
4785ffd83dbSDimitry Andric
4795ffd83dbSDimitry Andric if (!return_compiler_type)
4805ffd83dbSDimitry Andric return return_valobj_sp;
4815ffd83dbSDimitry Andric
4825ffd83dbSDimitry Andric // value.SetContext (Value::eContextTypeClangType, return_value_type);
4835ffd83dbSDimitry Andric value.SetCompilerType(return_compiler_type);
4845ffd83dbSDimitry Andric
4855ffd83dbSDimitry Andric RegisterContext *reg_ctx = thread.GetRegisterContext().get();
4865ffd83dbSDimitry Andric if (!reg_ctx)
4875ffd83dbSDimitry Andric return return_valobj_sp;
4885ffd83dbSDimitry Andric
4895ffd83dbSDimitry Andric const uint32_t type_flags = return_compiler_type.GetTypeInfo();
4905ffd83dbSDimitry Andric if (type_flags & eTypeIsScalar) {
491fe6060f1SDimitry Andric value.SetValueType(Value::ValueType::Scalar);
4925ffd83dbSDimitry Andric
4935ffd83dbSDimitry Andric bool success = false;
4945ffd83dbSDimitry Andric if (type_flags & eTypeIsInteger) {
4955ffd83dbSDimitry Andric // Extract the register context so we can read arguments from registers.
496bdd1243dSDimitry Andric std::optional<uint64_t> byte_size =
497e8d8bef9SDimitry Andric return_compiler_type.GetByteSize(&thread);
4985ffd83dbSDimitry Andric if (!byte_size)
4995ffd83dbSDimitry Andric return return_valobj_sp;
5005ffd83dbSDimitry Andric uint64_t raw_value = thread.GetRegisterContext()->ReadRegisterAsUnsigned(
5015ffd83dbSDimitry Andric reg_ctx->GetRegisterInfoByName("r2", 0), 0);
5025ffd83dbSDimitry Andric const bool is_signed = (type_flags & eTypeIsSigned) != 0;
5035ffd83dbSDimitry Andric switch (*byte_size) {
5045ffd83dbSDimitry Andric default:
5055ffd83dbSDimitry Andric break;
5065ffd83dbSDimitry Andric
5075ffd83dbSDimitry Andric case sizeof(uint64_t):
5085ffd83dbSDimitry Andric if (is_signed)
5095ffd83dbSDimitry Andric value.GetScalar() = (int64_t)(raw_value);
5105ffd83dbSDimitry Andric else
5115ffd83dbSDimitry Andric value.GetScalar() = (uint64_t)(raw_value);
5125ffd83dbSDimitry Andric success = true;
5135ffd83dbSDimitry Andric break;
5145ffd83dbSDimitry Andric
5155ffd83dbSDimitry Andric case sizeof(uint32_t):
5165ffd83dbSDimitry Andric if (is_signed)
5175ffd83dbSDimitry Andric value.GetScalar() = (int32_t)(raw_value & UINT32_MAX);
5185ffd83dbSDimitry Andric else
5195ffd83dbSDimitry Andric value.GetScalar() = (uint32_t)(raw_value & UINT32_MAX);
5205ffd83dbSDimitry Andric success = true;
5215ffd83dbSDimitry Andric break;
5225ffd83dbSDimitry Andric
5235ffd83dbSDimitry Andric case sizeof(uint16_t):
5245ffd83dbSDimitry Andric if (is_signed)
5255ffd83dbSDimitry Andric value.GetScalar() = (int16_t)(raw_value & UINT16_MAX);
5265ffd83dbSDimitry Andric else
5275ffd83dbSDimitry Andric value.GetScalar() = (uint16_t)(raw_value & UINT16_MAX);
5285ffd83dbSDimitry Andric success = true;
5295ffd83dbSDimitry Andric break;
5305ffd83dbSDimitry Andric
5315ffd83dbSDimitry Andric case sizeof(uint8_t):
5325ffd83dbSDimitry Andric if (is_signed)
5335ffd83dbSDimitry Andric value.GetScalar() = (int8_t)(raw_value & UINT8_MAX);
5345ffd83dbSDimitry Andric else
5355ffd83dbSDimitry Andric value.GetScalar() = (uint8_t)(raw_value & UINT8_MAX);
5365ffd83dbSDimitry Andric success = true;
5375ffd83dbSDimitry Andric break;
5385ffd83dbSDimitry Andric }
5395ffd83dbSDimitry Andric } else if (type_flags & eTypeIsFloat) {
5405ffd83dbSDimitry Andric if (type_flags & eTypeIsComplex) {
5415ffd83dbSDimitry Andric // Don't handle complex yet.
5425ffd83dbSDimitry Andric } else {
543bdd1243dSDimitry Andric std::optional<uint64_t> byte_size =
544e8d8bef9SDimitry Andric return_compiler_type.GetByteSize(&thread);
5455ffd83dbSDimitry Andric if (byte_size && *byte_size <= sizeof(long double)) {
5465ffd83dbSDimitry Andric const RegisterInfo *f0_info = reg_ctx->GetRegisterInfoByName("f0", 0);
5475ffd83dbSDimitry Andric RegisterValue f0_value;
5485ffd83dbSDimitry Andric if (reg_ctx->ReadRegister(f0_info, f0_value)) {
5495ffd83dbSDimitry Andric DataExtractor data;
5505ffd83dbSDimitry Andric if (f0_value.GetData(data)) {
5515ffd83dbSDimitry Andric lldb::offset_t offset = 0;
5525ffd83dbSDimitry Andric if (*byte_size == sizeof(float)) {
5535ffd83dbSDimitry Andric value.GetScalar() = (float)data.GetFloat(&offset);
5545ffd83dbSDimitry Andric success = true;
5555ffd83dbSDimitry Andric } else if (*byte_size == sizeof(double)) {
5565ffd83dbSDimitry Andric value.GetScalar() = (double)data.GetDouble(&offset);
5575ffd83dbSDimitry Andric success = true;
5585ffd83dbSDimitry Andric } else if (*byte_size == sizeof(long double)) {
5595ffd83dbSDimitry Andric // Don't handle long double yet.
5605ffd83dbSDimitry Andric }
5615ffd83dbSDimitry Andric }
5625ffd83dbSDimitry Andric }
5635ffd83dbSDimitry Andric }
5645ffd83dbSDimitry Andric }
5655ffd83dbSDimitry Andric }
5665ffd83dbSDimitry Andric
5675ffd83dbSDimitry Andric if (success)
5685ffd83dbSDimitry Andric return_valobj_sp = ValueObjectConstResult::Create(
5695ffd83dbSDimitry Andric thread.GetStackFrameAtIndex(0).get(), value, ConstString(""));
5705ffd83dbSDimitry Andric } else if (type_flags & eTypeIsPointer) {
5715ffd83dbSDimitry Andric unsigned r2_id =
5725ffd83dbSDimitry Andric reg_ctx->GetRegisterInfoByName("r2", 0)->kinds[eRegisterKindLLDB];
5735ffd83dbSDimitry Andric value.GetScalar() =
5745ffd83dbSDimitry Andric (uint64_t)thread.GetRegisterContext()->ReadRegisterAsUnsigned(r2_id, 0);
575fe6060f1SDimitry Andric value.SetValueType(Value::ValueType::Scalar);
5765ffd83dbSDimitry Andric return_valobj_sp = ValueObjectConstResult::Create(
5775ffd83dbSDimitry Andric thread.GetStackFrameAtIndex(0).get(), value, ConstString(""));
5785ffd83dbSDimitry Andric }
5795ffd83dbSDimitry Andric
5805ffd83dbSDimitry Andric return return_valobj_sp;
5815ffd83dbSDimitry Andric }
5825ffd83dbSDimitry Andric
GetReturnValueObjectImpl(Thread & thread,CompilerType & return_compiler_type) const5835ffd83dbSDimitry Andric ValueObjectSP ABISysV_s390x::GetReturnValueObjectImpl(
5845ffd83dbSDimitry Andric Thread &thread, CompilerType &return_compiler_type) const {
5855ffd83dbSDimitry Andric ValueObjectSP return_valobj_sp;
5865ffd83dbSDimitry Andric
5875ffd83dbSDimitry Andric if (!return_compiler_type)
5885ffd83dbSDimitry Andric return return_valobj_sp;
5895ffd83dbSDimitry Andric
5905ffd83dbSDimitry Andric ExecutionContext exe_ctx(thread.shared_from_this());
5915ffd83dbSDimitry Andric return_valobj_sp = GetReturnValueObjectSimple(thread, return_compiler_type);
5925ffd83dbSDimitry Andric if (return_valobj_sp)
5935ffd83dbSDimitry Andric return return_valobj_sp;
5945ffd83dbSDimitry Andric
5955ffd83dbSDimitry Andric RegisterContextSP reg_ctx_sp = thread.GetRegisterContext();
5965ffd83dbSDimitry Andric if (!reg_ctx_sp)
5975ffd83dbSDimitry Andric return return_valobj_sp;
5985ffd83dbSDimitry Andric
5995ffd83dbSDimitry Andric if (return_compiler_type.IsAggregateType()) {
6005ffd83dbSDimitry Andric // FIXME: This is just taking a guess, r2 may very well no longer hold the
6015ffd83dbSDimitry Andric // return storage location.
6025ffd83dbSDimitry Andric // If we are going to do this right, when we make a new frame we should
6035ffd83dbSDimitry Andric // check to see if it uses a memory return, and if we are at the first
6045ffd83dbSDimitry Andric // instruction and if so stash away the return location. Then we would
6055ffd83dbSDimitry Andric // only return the memory return value if we know it is valid.
6065ffd83dbSDimitry Andric
6075ffd83dbSDimitry Andric unsigned r2_id =
6085ffd83dbSDimitry Andric reg_ctx_sp->GetRegisterInfoByName("r2", 0)->kinds[eRegisterKindLLDB];
6095ffd83dbSDimitry Andric lldb::addr_t storage_addr =
6105ffd83dbSDimitry Andric (uint64_t)thread.GetRegisterContext()->ReadRegisterAsUnsigned(r2_id, 0);
6115ffd83dbSDimitry Andric return_valobj_sp = ValueObjectMemory::Create(
6125ffd83dbSDimitry Andric &thread, "", Address(storage_addr, nullptr), return_compiler_type);
6135ffd83dbSDimitry Andric }
6145ffd83dbSDimitry Andric
6155ffd83dbSDimitry Andric return return_valobj_sp;
6165ffd83dbSDimitry Andric }
6175ffd83dbSDimitry Andric
CreateFunctionEntryUnwindPlan(UnwindPlan & unwind_plan)6185ffd83dbSDimitry Andric bool ABISysV_s390x::CreateFunctionEntryUnwindPlan(UnwindPlan &unwind_plan) {
6195ffd83dbSDimitry Andric unwind_plan.Clear();
6205ffd83dbSDimitry Andric unwind_plan.SetRegisterKind(eRegisterKindDWARF);
6215ffd83dbSDimitry Andric
6225ffd83dbSDimitry Andric UnwindPlan::RowSP row(new UnwindPlan::Row);
6235ffd83dbSDimitry Andric
6245ffd83dbSDimitry Andric // Our Call Frame Address is the stack pointer value + 160
6255ffd83dbSDimitry Andric row->GetCFAValue().SetIsRegisterPlusOffset(dwarf_r15_s390x, 160);
6265ffd83dbSDimitry Andric
6275ffd83dbSDimitry Andric // The previous PC is in r14
6285ffd83dbSDimitry Andric row->SetRegisterLocationToRegister(dwarf_pswa_s390x, dwarf_r14_s390x, true);
6295ffd83dbSDimitry Andric
6305ffd83dbSDimitry Andric // All other registers are the same.
6315ffd83dbSDimitry Andric unwind_plan.AppendRow(row);
6325ffd83dbSDimitry Andric unwind_plan.SetSourceName("s390x at-func-entry default");
6335ffd83dbSDimitry Andric unwind_plan.SetSourcedFromCompiler(eLazyBoolNo);
6345ffd83dbSDimitry Andric return true;
6355ffd83dbSDimitry Andric }
6365ffd83dbSDimitry Andric
CreateDefaultUnwindPlan(UnwindPlan & unwind_plan)6375ffd83dbSDimitry Andric bool ABISysV_s390x::CreateDefaultUnwindPlan(UnwindPlan &unwind_plan) {
6385ffd83dbSDimitry Andric // There's really no default way to unwind on s390x. Trust the .eh_frame CFI,
6395ffd83dbSDimitry Andric // which should always be good.
6405ffd83dbSDimitry Andric return false;
6415ffd83dbSDimitry Andric }
6425ffd83dbSDimitry Andric
GetFallbackRegisterLocation(const RegisterInfo * reg_info,UnwindPlan::Row::RegisterLocation & unwind_regloc)6435ffd83dbSDimitry Andric bool ABISysV_s390x::GetFallbackRegisterLocation(
6445ffd83dbSDimitry Andric const RegisterInfo *reg_info,
6455ffd83dbSDimitry Andric UnwindPlan::Row::RegisterLocation &unwind_regloc) {
6465ffd83dbSDimitry Andric // If a volatile register is being requested, we don't want to forward the
6475ffd83dbSDimitry Andric // next frame's register contents up the stack -- the register is not
6485ffd83dbSDimitry Andric // retrievable at this frame.
6495ffd83dbSDimitry Andric if (RegisterIsVolatile(reg_info)) {
6505ffd83dbSDimitry Andric unwind_regloc.SetUndefined();
6515ffd83dbSDimitry Andric return true;
6525ffd83dbSDimitry Andric }
6535ffd83dbSDimitry Andric
6545ffd83dbSDimitry Andric return false;
6555ffd83dbSDimitry Andric }
6565ffd83dbSDimitry Andric
RegisterIsVolatile(const RegisterInfo * reg_info)6575ffd83dbSDimitry Andric bool ABISysV_s390x::RegisterIsVolatile(const RegisterInfo *reg_info) {
6585ffd83dbSDimitry Andric return !RegisterIsCalleeSaved(reg_info);
6595ffd83dbSDimitry Andric }
6605ffd83dbSDimitry Andric
RegisterIsCalleeSaved(const RegisterInfo * reg_info)6615ffd83dbSDimitry Andric bool ABISysV_s390x::RegisterIsCalleeSaved(const RegisterInfo *reg_info) {
6625ffd83dbSDimitry Andric if (reg_info) {
6635ffd83dbSDimitry Andric // Preserved registers are :
6645ffd83dbSDimitry Andric // r6-r13, r15
6655ffd83dbSDimitry Andric // f8-f15
6665ffd83dbSDimitry Andric
6675ffd83dbSDimitry Andric const char *name = reg_info->name;
6685ffd83dbSDimitry Andric if (name[0] == 'r') {
6695ffd83dbSDimitry Andric switch (name[1]) {
6705ffd83dbSDimitry Andric case '6': // r6
6715ffd83dbSDimitry Andric case '7': // r7
6725ffd83dbSDimitry Andric case '8': // r8
6735ffd83dbSDimitry Andric case '9': // r9
6745ffd83dbSDimitry Andric return name[2] == '\0';
6755ffd83dbSDimitry Andric
6765ffd83dbSDimitry Andric case '1': // r10, r11, r12, r13, r15
6775ffd83dbSDimitry Andric if ((name[2] >= '0' && name[2] <= '3') || name[2] == '5')
6785ffd83dbSDimitry Andric return name[3] == '\0';
6795ffd83dbSDimitry Andric break;
6805ffd83dbSDimitry Andric
6815ffd83dbSDimitry Andric default:
6825ffd83dbSDimitry Andric break;
6835ffd83dbSDimitry Andric }
6845ffd83dbSDimitry Andric }
6855ffd83dbSDimitry Andric if (name[0] == 'f') {
6865ffd83dbSDimitry Andric switch (name[1]) {
6875ffd83dbSDimitry Andric case '8': // r8
6885ffd83dbSDimitry Andric case '9': // r9
6895ffd83dbSDimitry Andric return name[2] == '\0';
6905ffd83dbSDimitry Andric
6915ffd83dbSDimitry Andric case '1': // r10, r11, r12, r13, r14, r15
6925ffd83dbSDimitry Andric if (name[2] >= '0' && name[2] <= '5')
6935ffd83dbSDimitry Andric return name[3] == '\0';
6945ffd83dbSDimitry Andric break;
6955ffd83dbSDimitry Andric
6965ffd83dbSDimitry Andric default:
6975ffd83dbSDimitry Andric break;
6985ffd83dbSDimitry Andric }
6995ffd83dbSDimitry Andric }
7005ffd83dbSDimitry Andric
7015ffd83dbSDimitry Andric // Accept shorter-variant versions
7025ffd83dbSDimitry Andric if (name[0] == 's' && name[1] == 'p' && name[2] == '\0') // sp
7035ffd83dbSDimitry Andric return true;
7045ffd83dbSDimitry Andric if (name[0] == 'f' && name[1] == 'p' && name[2] == '\0') // fp
7055ffd83dbSDimitry Andric return true;
7065ffd83dbSDimitry Andric if (name[0] == 'p' && name[1] == 'c' && name[2] == '\0') // pc
7075ffd83dbSDimitry Andric return true;
7085ffd83dbSDimitry Andric }
7095ffd83dbSDimitry Andric return false;
7105ffd83dbSDimitry Andric }
7115ffd83dbSDimitry Andric
Initialize()7125ffd83dbSDimitry Andric void ABISysV_s390x::Initialize() {
7135ffd83dbSDimitry Andric PluginManager::RegisterPlugin(
7145ffd83dbSDimitry Andric GetPluginNameStatic(), "System V ABI for s390x targets", CreateInstance);
7155ffd83dbSDimitry Andric }
7165ffd83dbSDimitry Andric
Terminate()7175ffd83dbSDimitry Andric void ABISysV_s390x::Terminate() {
7185ffd83dbSDimitry Andric PluginManager::UnregisterPlugin(CreateInstance);
7195ffd83dbSDimitry Andric }
720