//===-- AArch66.h ---------------------------------------------------------===//

//

// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.

// See https://llvm.org/LICENSE.txt for license information.

// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception

//

//===----------------------------------------------------------------------===//

#include "ABIAArch64.h"

#include "ABIMacOSX_arm64.h"

#include "ABISysV_arm64.h"

#include "Utility/ARM64_DWARF_Registers.h"

#include "lldb/Core/PluginManager.h"

#include "lldb/Target/Process.h"

#include <bitset>

LLDB_PLUGIN_DEFINE(ABIAArch64)

void ABIAArch64::Initialize() {

  ABISysV_arm64::Initialize();

  ABIMacOSX_arm64::Initialize();

}

void ABIAArch64::Terminate() {

  ABISysV_arm64::Terminate();

  ABIMacOSX_arm64::Terminate();

}

lldb::addr_t ABIAArch64::FixCodeAddress(lldb::addr_t pc) {

  if (lldb::ProcessSP process_sp = GetProcessSP())

    return FixAddress(pc, process_sp->GetCodeAddressMask());

  return pc;

}

lldb::addr_t ABIAArch64::FixDataAddress(lldb::addr_t pc) {

  if (lldb::ProcessSP process_sp = GetProcessSP())

    return FixAddress(pc, process_sp->GetDataAddressMask());

  return pc;

}

std::pair<uint32_t, uint32_t>

ABIAArch64::GetEHAndDWARFNums(llvm::StringRef name) {

  if (name == "pc")

    return {LLDB_INVALID_REGNUM, arm64_dwarf::pc};

  if (name == "cpsr")

    return {LLDB_INVALID_REGNUM, arm64_dwarf::cpsr};

  return MCBasedABI::GetEHAndDWARFNums(name);

}

std::string ABIAArch64::GetMCName(std::string reg) {

  MapRegisterName(reg, "v", "q");

  MapRegisterName(reg, "x29", "fp");

  MapRegisterName(reg, "x30", "lr");

  return reg;

}

uint32_t ABIAArch64::GetGenericNum(llvm::StringRef name) {

  return llvm::StringSwitch<uint32_t>(name)

      .Case("pc", LLDB_REGNUM_GENERIC_PC)

      .Cases("lr", "x30", LLDB_REGNUM_GENERIC_RA)

      .Cases("sp", "x31", LLDB_REGNUM_GENERIC_SP)

      .Cases("fp", "x29", LLDB_REGNUM_GENERIC_FP)

      .Case("cpsr", LLDB_REGNUM_GENERIC_FLAGS)

      .Case("x0", LLDB_REGNUM_GENERIC_ARG1)

      .Case("x1", LLDB_REGNUM_GENERIC_ARG2)

      .Case("x2", LLDB_REGNUM_GENERIC_ARG3)

      .Case("x3", LLDB_REGNUM_GENERIC_ARG4)

      .Case("x4", LLDB_REGNUM_GENERIC_ARG5)

      .Case("x5", LLDB_REGNUM_GENERIC_ARG6)

      .Case("x6", LLDB_REGNUM_GENERIC_ARG7)

      .Case("x7", LLDB_REGNUM_GENERIC_ARG8)

      .Default(LLDB_INVALID_REGNUM);

}

static void addPartialRegisters(

    std::vector<lldb_private::DynamicRegisterInfo::Register> &regs,

    llvm::ArrayRef<llvm::Optional<uint32_t>> full_reg_indices,

    uint32_t full_reg_size, const char *partial_reg_format,

    uint32_t partial_reg_size, lldb::Encoding encoding, lldb::Format format) {

  for (auto it : llvm::enumerate(full_reg_indices)) {

    llvm::Optional<uint32_t> full_reg_index = it.value();

    if (!full_reg_index || 
regs[*full_reg_index].byte_size != full_reg_size224
)

      return;

    lldb_private::DynamicRegisterInfo::Register partial_reg{

        lldb_private::ConstString(

            llvm::formatv(partial_reg_format, it.index()).str()),

        lldb_private::ConstString(),

        lldb_private::ConstString("supplementary registers"),

        partial_reg_size,

        LLDB_INVALID_INDEX32,

        encoding,

        format,

        LLDB_INVALID_REGNUM,

        LLDB_INVALID_REGNUM,

        LLDB_INVALID_REGNUM,

        LLDB_INVALID_REGNUM,

        {*full_reg_index},

        {}};

    addSupplementaryRegister(regs, partial_reg);

  }

}

void ABIAArch64::AugmentRegisterInfo(

    std::vector<lldb_private::DynamicRegisterInfo::Register> &regs) {

  lldb_private::MCBasedABI::AugmentRegisterInfo(regs);

  lldb_private::ConstString sp_string{"sp"};

  std::array<llvm::Optional<uint32_t>, 32> x_regs;

  std::array<llvm::Optional<uint32_t>, 32> v_regs;

  for (auto it : llvm::enumerate(regs)) {

    lldb_private::DynamicRegisterInfo::Register &info = it.value();

    // GDB sends x31 as "sp".  Add the "x31" alt_name for convenience.

    if (info.name == sp_string && 
!info.alt_name7
)

      info.alt_name.SetCString("x31");

    unsigned int reg_num;

    auto get_reg = [&info, &reg_num](const char *prefix) {

      llvm::StringRef reg_name = info.name.GetStringRef();

      llvm::StringRef alt_name = info.alt_name.GetStringRef();

      return (reg_name.consume_front(prefix) &&

              
llvm::to_integer(reg_name, reg_num, 10)251
 && 
reg_num < 32251
) ||

             
(118
alt_name.consume_front(prefix)118
 &&

              
llvm::to_integer(alt_name, reg_num, 10)7
 && 
reg_num < 327
);

    };

    if (get_reg("x"))

      x_regs[reg_num] = it.index();

    else if (get_reg("v"))

      v_regs[reg_num] = it.index();

    // if we have at least one subregister, abort

    else if (get_reg("w") || 
get_reg("s")15
 || 
get_reg("d")15
)

      return;

  }

  // Create aliases for partial registers: wN for xN, and sN/dN for vN.

  addPartialRegisters(regs, x_regs, 8, "w{0}", 4, lldb::eEncodingUint,

                      lldb::eFormatHex);

  addPartialRegisters(regs, v_regs, 16, "s{0}", 4, lldb::eEncodingIEEE754,

                      lldb::eFormatFloat);

  addPartialRegisters(regs, v_regs, 16, "d{0}", 8, lldb::eEncodingIEEE754,

                      lldb::eFormatFloat);

}