[thirdparty/binutils-gdb.git] / bfd / elfxx-aarch64.c

/* AArch64-specific support for ELF.
   Copyright (C) 2009-2015 Free Software Foundation, Inc.
   Contributed by ARM Ltd.

   This file is part of BFD, the Binary File Descriptor library.

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 3 of the License, or
   (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; see the file COPYING3. If not,
   see <http://www.gnu.org/licenses/>.  */

#include "sysdep.h"
#include "elfxx-aarch64.h"
#include <stdarg.h>
#include <string.h>

#define MASK(n) ((1u << (n)) - 1)

/* Sign-extend VALUE, which has the indicated number of BITS.  */

bfd_signed_vma
_bfd_aarch64_sign_extend (bfd_vma value, int bits)
{
  if (value & ((bfd_vma) 1 << (bits - 1)))
    /* VALUE is negative.  */
    value |= ((bfd_vma) - 1) << bits;

  return value;
}

/* Decode the IMM field of ADRP.  */

uint32_t
_bfd_aarch64_decode_adrp_imm (uint32_t insn)
{
  return (((insn >> 5) & MASK (19)) << 2) | ((insn >> 29) & MASK (2));
}

/* Reencode the imm field of add immediate.  */
static inline uint32_t
reencode_add_imm (uint32_t insn, uint32_t imm)
{
  return (insn & ~(MASK (12) << 10)) | ((imm & MASK (12)) << 10);
}

/* Reencode the IMM field of ADR.  */

uint32_t
_bfd_aarch64_reencode_adr_imm (uint32_t insn, uint32_t imm)
{
  return (insn & ~((MASK (2) << 29) | (MASK (19) << 5)))
    | ((imm & MASK (2)) << 29) | ((imm & (MASK (19) << 2)) << 3);
}

/* Reencode the imm field of ld/st pos immediate.  */
static inline uint32_t
reencode_ldst_pos_imm (uint32_t insn, uint32_t imm)
{
  return (insn & ~(MASK (12) << 10)) | ((imm & MASK (12)) << 10);
}

/* Encode the 26-bit offset of unconditional branch.  */
static inline uint32_t
reencode_branch_ofs_26 (uint32_t insn, uint32_t ofs)
{
  return (insn & ~MASK (26)) | (ofs & MASK (26));
}

/* Encode the 19-bit offset of conditional branch and compare & branch.  */
static inline uint32_t
reencode_cond_branch_ofs_19 (uint32_t insn, uint32_t ofs)
{
  return (insn & ~(MASK (19) << 5)) | ((ofs & MASK (19)) << 5);
}

/* Decode the 19-bit offset of load literal.  */
static inline uint32_t
reencode_ld_lit_ofs_19 (uint32_t insn, uint32_t ofs)
{
  return (insn & ~(MASK (19) << 5)) | ((ofs & MASK (19)) << 5);
}

/* Encode the 14-bit offset of test & branch.  */
static inline uint32_t
reencode_tst_branch_ofs_14 (uint32_t insn, uint32_t ofs)
{
  return (insn & ~(MASK (14) << 5)) | ((ofs & MASK (14)) << 5);
}

/* Reencode the imm field of move wide.  */
static inline uint32_t
reencode_movw_imm (uint32_t insn, uint32_t imm)
{
  return (insn & ~(MASK (16) << 5)) | ((imm & MASK (16)) << 5);
}

/* Reencode mov[zn] to movz.  */
static inline uint32_t
reencode_movzn_to_movz (uint32_t opcode)
{
  return opcode | (1 << 30);
}

/* Reencode mov[zn] to movn.  */
static inline uint32_t
reencode_movzn_to_movn (uint32_t opcode)
{
  return opcode & ~(1 << 30);
}

/* Return non-zero if the indicated VALUE has overflowed the maximum
   range expressible by a unsigned number with the indicated number of
   BITS.  */

static bfd_reloc_status_type
aarch64_unsigned_overflow (bfd_vma value, unsigned int bits)
{
  bfd_vma lim;
  if (bits >= sizeof (bfd_vma) * 8)
    return bfd_reloc_ok;
  lim = (bfd_vma) 1 << bits;
  if (value >= lim)
    return bfd_reloc_overflow;
  return bfd_reloc_ok;
}

/* Return non-zero if the indicated VALUE has overflowed the maximum
   range expressible by an signed number with the indicated number of
   BITS.  */

static bfd_reloc_status_type
aarch64_signed_overflow (bfd_vma value, unsigned int bits)
{
  bfd_signed_vma svalue = (bfd_signed_vma) value;
  bfd_signed_vma lim;

  if (bits >= sizeof (bfd_vma) * 8)
    return bfd_reloc_ok;
  lim = (bfd_signed_vma) 1 << (bits - 1);
  if (svalue < -lim || svalue >= lim)
    return bfd_reloc_overflow;
  return bfd_reloc_ok;
}

/* Insert the addend/value into the instruction or data object being
   relocated.  */
bfd_reloc_status_type
_bfd_aarch64_elf_put_addend (bfd *abfd,
			     bfd_byte *address, bfd_reloc_code_real_type r_type,
			     reloc_howto_type *howto, bfd_signed_vma addend)
{
  bfd_reloc_status_type status = bfd_reloc_ok;
  bfd_signed_vma old_addend = addend;
  bfd_vma contents;
  int size;

  size = bfd_get_reloc_size (howto);
  switch (size)
    {
    case 0:
      return status;
    case 2:
      contents = bfd_get_16 (abfd, address);
      break;
    case 4:
      if (howto->src_mask != 0xffffffff)
	/* Must be 32-bit instruction, always little-endian.  */
	contents = bfd_getl32 (address);
      else
	/* Must be 32-bit data (endianness dependent).  */
	contents = bfd_get_32 (abfd, address);
      break;
    case 8:
      contents = bfd_get_64 (abfd, address);
      break;
    default:
      abort ();
    }

  switch (howto->complain_on_overflow)
    {
    case complain_overflow_dont:
      break;
    case complain_overflow_signed:
      status = aarch64_signed_overflow (addend,
					howto->bitsize + howto->rightshift);
      break;
    case complain_overflow_unsigned:
      status = aarch64_unsigned_overflow (addend,
					  howto->bitsize + howto->rightshift);
      break;
    case complain_overflow_bitfield:
    default:
      abort ();
    }

  addend >>= howto->rightshift;

  switch (r_type)
    {
    case BFD_RELOC_AARCH64_CALL26:
    case BFD_RELOC_AARCH64_JUMP26:
      contents = reencode_branch_ofs_26 (contents, addend);
      break;

    case BFD_RELOC_AARCH64_BRANCH19:
      contents = reencode_cond_branch_ofs_19 (contents, addend);
      break;

    case BFD_RELOC_AARCH64_TSTBR14:
      contents = reencode_tst_branch_ofs_14 (contents, addend);
      break;

    case BFD_RELOC_AARCH64_GOT_LD_PREL19:
    case BFD_RELOC_AARCH64_LD_LO19_PCREL:
    case BFD_RELOC_AARCH64_TLSDESC_LD_PREL19:
    case BFD_RELOC_AARCH64_TLSIE_LD_GOTTPREL_PREL19:
      if (old_addend & ((1 << howto->rightshift) - 1))
	return bfd_reloc_overflow;
      contents = reencode_ld_lit_ofs_19 (contents, addend);
      break;

    case BFD_RELOC_AARCH64_TLSDESC_CALL:
      break;

    case BFD_RELOC_AARCH64_ADR_GOT_PAGE:
    case BFD_RELOC_AARCH64_ADR_HI21_NC_PCREL:
    case BFD_RELOC_AARCH64_ADR_HI21_PCREL:
    case BFD_RELOC_AARCH64_ADR_LO21_PCREL:
    case BFD_RELOC_AARCH64_TLSDESC_ADR_PAGE21:
    case BFD_RELOC_AARCH64_TLSDESC_ADR_PREL21:
    case BFD_RELOC_AARCH64_TLSGD_ADR_PAGE21:
    case BFD_RELOC_AARCH64_TLSGD_ADR_PREL21:
    case BFD_RELOC_AARCH64_TLSIE_ADR_GOTTPREL_PAGE21:
    case BFD_RELOC_AARCH64_TLSLD_ADR_PAGE21:
    case BFD_RELOC_AARCH64_TLSLD_ADR_PREL21:
      contents = _bfd_aarch64_reencode_adr_imm (contents, addend);
      break;

    case BFD_RELOC_AARCH64_ADD_LO12:
    case BFD_RELOC_AARCH64_TLSDESC_ADD_LO12_NC:
    case BFD_RELOC_AARCH64_TLSGD_ADD_LO12_NC:
    case BFD_RELOC_AARCH64_TLSLD_ADD_DTPREL_HI12:
    case BFD_RELOC_AARCH64_TLSLD_ADD_DTPREL_LO12:
    case BFD_RELOC_AARCH64_TLSLD_ADD_DTPREL_LO12_NC:
    case BFD_RELOC_AARCH64_TLSLD_ADD_LO12_NC:
    case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_HI12:
    case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12:
    case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12_NC:
      /* Corresponds to: add rd, rn, #uimm12 to provide the low order
         12 bits of the page offset following
         BFD_RELOC_AARCH64_ADR_HI21_PCREL which computes the
         (pc-relative) page base.  */
      contents = reencode_add_imm (contents, addend);
      break;

    case BFD_RELOC_AARCH64_LD32_GOTPAGE_LO14:
    case BFD_RELOC_AARCH64_LD32_GOT_LO12_NC:
    case BFD_RELOC_AARCH64_LD64_GOTPAGE_LO15:
    case BFD_RELOC_AARCH64_LD64_GOT_LO12_NC:
    case BFD_RELOC_AARCH64_LDST128_LO12:
    case BFD_RELOC_AARCH64_LDST16_LO12:
    case BFD_RELOC_AARCH64_LDST32_LO12:
    case BFD_RELOC_AARCH64_LDST64_LO12:
    case BFD_RELOC_AARCH64_LDST8_LO12:
    case BFD_RELOC_AARCH64_TLSDESC_LD32_LO12_NC:
    case BFD_RELOC_AARCH64_TLSDESC_LD64_LO12_NC:
    case BFD_RELOC_AARCH64_TLSIE_LD32_GOTTPREL_LO12_NC:
    case BFD_RELOC_AARCH64_TLSIE_LD64_GOTTPREL_LO12_NC:
    case BFD_RELOC_AARCH64_TLSLD_LDST16_DTPREL_LO12:
    case BFD_RELOC_AARCH64_TLSLD_LDST16_DTPREL_LO12_NC:
    case BFD_RELOC_AARCH64_TLSLD_LDST32_DTPREL_LO12:
    case BFD_RELOC_AARCH64_TLSLD_LDST32_DTPREL_LO12_NC:
    case BFD_RELOC_AARCH64_TLSLD_LDST64_DTPREL_LO12:
    case BFD_RELOC_AARCH64_TLSLD_LDST64_DTPREL_LO12_NC:
    case BFD_RELOC_AARCH64_TLSLD_LDST8_DTPREL_LO12:
    case BFD_RELOC_AARCH64_TLSLD_LDST8_DTPREL_LO12_NC:
      if (old_addend & ((1 << howto->rightshift) - 1))
	return bfd_reloc_overflow;
      /* Used for ldr*|str* rt, [rn, #uimm12] to provide the low order
         12 bits of the page offset following BFD_RELOC_AARCH64_ADR_HI21_PCREL
         which computes the (pc-relative) page base.  */
      contents = reencode_ldst_pos_imm (contents, addend);
      break;

      /* Group relocations to create high bits of a 16, 32, 48 or 64
         bit signed data or abs address inline. Will change
         instruction to MOVN or MOVZ depending on sign of calculated
         value.  */

    case BFD_RELOC_AARCH64_MOVW_G0_S:
    case BFD_RELOC_AARCH64_MOVW_G1_S:
    case BFD_RELOC_AARCH64_MOVW_G2_S:
    case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G0:
    case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G1:
    case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G2:
    case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0:
    case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1:
    case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G2:
      /* NOTE: We can only come here with movz or movn.  */
      if (addend < 0)
	{
	  /* Force use of MOVN.  */
	  addend = ~addend;
	  contents = reencode_movzn_to_movn (contents);
	}
      else
	{
	  /* Force use of MOVZ.  */
	  contents = reencode_movzn_to_movz (contents);
	}
      /* fall through */

      /* Group relocations to create a 16, 32, 48 or 64 bit unsigned
         data or abs address inline.  */

    case BFD_RELOC_AARCH64_MOVW_G0:
    case BFD_RELOC_AARCH64_MOVW_G0_NC:
    case BFD_RELOC_AARCH64_MOVW_G1:
    case BFD_RELOC_AARCH64_MOVW_G1_NC:
    case BFD_RELOC_AARCH64_MOVW_G2:
    case BFD_RELOC_AARCH64_MOVW_G2_NC:
    case BFD_RELOC_AARCH64_MOVW_G3:
    case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G0_NC:
    case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G1_NC:
    case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0_NC:
    case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1_NC:
      contents = reencode_movw_imm (contents, addend);
      break;

    default:
      /* Repack simple data */
      if (howto->dst_mask & (howto->dst_mask + 1))
	return bfd_reloc_notsupported;

      contents = ((contents & ~howto->dst_mask) | (addend & howto->dst_mask));
      break;
    }

  switch (size)
    {
    case 2:
      bfd_put_16 (abfd, contents, address);
      break;
    case 4:
      if (howto->dst_mask != 0xffffffff)
	/* must be 32-bit instruction, always little-endian */
	bfd_putl32 (contents, address);
      else
	/* must be 32-bit data (endianness dependent) */
	bfd_put_32 (abfd, contents, address);
      break;
    case 8:
      bfd_put_64 (abfd, contents, address);
      break;
    default:
      abort ();
    }

  return status;
}

bfd_vma
_bfd_aarch64_elf_resolve_relocation (bfd_reloc_code_real_type r_type,
				     bfd_vma place, bfd_vma value,
				     bfd_vma addend, bfd_boolean weak_undef_p)
{
  switch (r_type)
    {
    case BFD_RELOC_AARCH64_NONE:
    case BFD_RELOC_AARCH64_TLSDESC_CALL:
      break;

    case BFD_RELOC_AARCH64_16_PCREL:
    case BFD_RELOC_AARCH64_32_PCREL:
    case BFD_RELOC_AARCH64_64_PCREL:
    case BFD_RELOC_AARCH64_ADR_LO21_PCREL:
    case BFD_RELOC_AARCH64_BRANCH19:
    case BFD_RELOC_AARCH64_LD_LO19_PCREL:
    case BFD_RELOC_AARCH64_TLSDESC_ADR_PREL21:
    case BFD_RELOC_AARCH64_TLSDESC_LD_PREL19:
    case BFD_RELOC_AARCH64_TLSGD_ADR_PREL21:
    case BFD_RELOC_AARCH64_TLSIE_LD_GOTTPREL_PREL19:
    case BFD_RELOC_AARCH64_TLSLD_ADR_PREL21:
    case BFD_RELOC_AARCH64_TSTBR14:
      if (weak_undef_p)
	value = place;
      value = value + addend - place;
      break;

    case BFD_RELOC_AARCH64_CALL26:
    case BFD_RELOC_AARCH64_JUMP26:
      value = value + addend - place;
      break;

    case BFD_RELOC_AARCH64_16:
    case BFD_RELOC_AARCH64_32:
    case BFD_RELOC_AARCH64_MOVW_G0:
    case BFD_RELOC_AARCH64_MOVW_G0_NC:
    case BFD_RELOC_AARCH64_MOVW_G0_S:
    case BFD_RELOC_AARCH64_MOVW_G1:
    case BFD_RELOC_AARCH64_MOVW_G1_NC:
    case BFD_RELOC_AARCH64_MOVW_G1_S:
    case BFD_RELOC_AARCH64_MOVW_G2:
    case BFD_RELOC_AARCH64_MOVW_G2_NC:
    case BFD_RELOC_AARCH64_MOVW_G2_S:
    case BFD_RELOC_AARCH64_MOVW_G3:
    case BFD_RELOC_AARCH64_TLSLD_ADD_DTPREL_HI12:
    case BFD_RELOC_AARCH64_TLSLD_ADD_DTPREL_LO12:
    case BFD_RELOC_AARCH64_TLSLD_ADD_DTPREL_LO12_NC:
    case BFD_RELOC_AARCH64_TLSLD_LDST16_DTPREL_LO12:
    case BFD_RELOC_AARCH64_TLSLD_LDST16_DTPREL_LO12_NC:
    case BFD_RELOC_AARCH64_TLSLD_LDST32_DTPREL_LO12:
    case BFD_RELOC_AARCH64_TLSLD_LDST32_DTPREL_LO12_NC:
    case BFD_RELOC_AARCH64_TLSLD_LDST64_DTPREL_LO12:
    case BFD_RELOC_AARCH64_TLSLD_LDST64_DTPREL_LO12_NC:
    case BFD_RELOC_AARCH64_TLSLD_LDST8_DTPREL_LO12:
    case BFD_RELOC_AARCH64_TLSLD_LDST8_DTPREL_LO12_NC:
    case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G0:
    case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G0_NC:
    case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G1:
    case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G1_NC:
    case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G2:
      value = value + addend;
      break;

    case BFD_RELOC_AARCH64_ADR_HI21_NC_PCREL:
    case BFD_RELOC_AARCH64_ADR_HI21_PCREL:
      if (weak_undef_p)
	value = PG (place);
      value = PG (value + addend) - PG (place);
      break;

    case BFD_RELOC_AARCH64_GOT_LD_PREL19:
      value = value + addend - place;
      break;

    case BFD_RELOC_AARCH64_ADR_GOT_PAGE:
    case BFD_RELOC_AARCH64_TLSDESC_ADR_PAGE21:
    case BFD_RELOC_AARCH64_TLSGD_ADR_PAGE21:
    case BFD_RELOC_AARCH64_TLSIE_ADR_GOTTPREL_PAGE21:
    case BFD_RELOC_AARCH64_TLSLD_ADR_PAGE21:
      value = PG (value + addend) - PG (place);
      break;

    case BFD_RELOC_AARCH64_LD32_GOTPAGE_LO14:
    case BFD_RELOC_AARCH64_LD64_GOTPAGE_LO15:
      /* Caller must make sure addend is the base address of .got section.  */
      value = value - PG (addend);
      break;

    case BFD_RELOC_AARCH64_ADD_LO12:
    case BFD_RELOC_AARCH64_LD32_GOT_LO12_NC:
    case BFD_RELOC_AARCH64_LD64_GOT_LO12_NC:
    case BFD_RELOC_AARCH64_LDST128_LO12:
    case BFD_RELOC_AARCH64_LDST16_LO12:
    case BFD_RELOC_AARCH64_LDST32_LO12:
    case BFD_RELOC_AARCH64_LDST64_LO12:
    case BFD_RELOC_AARCH64_LDST8_LO12:
    case BFD_RELOC_AARCH64_TLSDESC_ADD:
    case BFD_RELOC_AARCH64_TLSDESC_ADD_LO12_NC:
    case BFD_RELOC_AARCH64_TLSDESC_LD32_LO12_NC:
    case BFD_RELOC_AARCH64_TLSDESC_LD64_LO12_NC:
    case BFD_RELOC_AARCH64_TLSDESC_LDR:
    case BFD_RELOC_AARCH64_TLSGD_ADD_LO12_NC:
    case BFD_RELOC_AARCH64_TLSIE_LD32_GOTTPREL_LO12_NC:
    case BFD_RELOC_AARCH64_TLSIE_LD64_GOTTPREL_LO12_NC:
    case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12_NC:
      value = PG_OFFSET (value + addend);
      break;

    case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12:
      value = value + addend;
      break;

    case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1:
    case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1_NC:
      value = (value + addend) & (bfd_vma) 0xffff0000;
      break;
    case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_HI12:
      /* Mask off low 12bits, keep all other high bits, so that the later
	 generic code could check whehter there is overflow.  */
      value = (value + addend) & ~(bfd_vma) 0xfff;
      break;

    case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0:
    case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0_NC:
      value = (value + addend) & (bfd_vma) 0xffff;
      break;

    case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G2:
      value = (value + addend) & ~(bfd_vma) 0xffffffff;
      value -= place & ~(bfd_vma) 0xffffffff;
      break;

    default:
      break;
    }

  return value;
}

/* Hook called by the linker routine which adds symbols from an object
   file.  */

bfd_boolean
_bfd_aarch64_elf_add_symbol_hook (bfd *abfd, struct bfd_link_info *info,
				  Elf_Internal_Sym *sym,
				  const char **namep ATTRIBUTE_UNUSED,
				  flagword *flagsp ATTRIBUTE_UNUSED,
				  asection **secp ATTRIBUTE_UNUSED,
				  bfd_vma *valp ATTRIBUTE_UNUSED)
{
  if ((ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC
       || ELF_ST_BIND (sym->st_info) == STB_GNU_UNIQUE)
      && (abfd->flags & DYNAMIC) == 0
      && bfd_get_flavour (info->output_bfd) == bfd_target_elf_flavour)
    elf_tdata (info->output_bfd)->has_gnu_symbols = elf_gnu_symbol_any;

  return TRUE;
}

/* Support for core dump NOTE sections.  */

bfd_boolean
_bfd_aarch64_elf_grok_prstatus (bfd *abfd, Elf_Internal_Note *note)
{
  int offset;
  size_t size;

  switch (note->descsz)
    {
      default:
	return FALSE;

      case 392:		/* sizeof(struct elf_prstatus) on Linux/arm64.  */
	/* pr_cursig */
	elf_tdata (abfd)->core->signal
	  = bfd_get_16 (abfd, note->descdata + 12);

	/* pr_pid */
	elf_tdata (abfd)->core->lwpid
	  = bfd_get_32 (abfd, note->descdata + 32);

	/* pr_reg */
	offset = 112;
	size = 272;

	break;
    }

  /* Make a ".reg/999" section.  */
  return _bfd_elfcore_make_pseudosection (abfd, ".reg",
					  size, note->descpos + offset);
}

bfd_boolean
_bfd_aarch64_elf_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
{
  switch (note->descsz)
    {
    default:
      return FALSE;

    case 136:        /* This is sizeof(struct elf_prpsinfo) on Linux/aarch64.  */
      elf_tdata (abfd)->core->pid = bfd_get_32 (abfd, note->descdata + 24);
      elf_tdata (abfd)->core->program
	= _bfd_elfcore_strndup (abfd, note->descdata + 40, 16);
      elf_tdata (abfd)->core->command
	= _bfd_elfcore_strndup (abfd, note->descdata + 56, 80);
    }

  /* Note that for some reason, a spurious space is tacked
     onto the end of the args in some (at least one anyway)
     implementations, so strip it off if it exists.  */

  {
    char *command = elf_tdata (abfd)->core->command;
    int n = strlen (command);

    if (0 < n && command[n - 1] == ' ')
      command[n - 1] = '\0';
  }

  return TRUE;
}

char *
_bfd_aarch64_elf_write_core_note (bfd *abfd, char *buf, int *bufsiz, int note_type,
				  ...)
{
  switch (note_type)
    {
    default:
      return NULL;

    case NT_PRPSINFO:
      {
        char data[136];
        va_list ap;

        va_start (ap, note_type);
        memset (data, 0, sizeof (data));
        strncpy (data + 40, va_arg (ap, const char *), 16);
        strncpy (data + 56, va_arg (ap, const char *), 80);
        va_end (ap);

        return elfcore_write_note (abfd, buf, bufsiz, "CORE",
				   note_type, data, sizeof (data));
      }

    case NT_PRSTATUS:
      {
        char data[392];
        va_list ap;
        long pid;
        int cursig;
        const void *greg;

        va_start (ap, note_type);
        memset (data, 0, sizeof (data));
        pid = va_arg (ap, long);
        bfd_put_32 (abfd, pid, data + 32);
        cursig = va_arg (ap, int);
        bfd_put_16 (abfd, cursig, data + 12);
        greg = va_arg (ap, const void *);
        memcpy (data + 112, greg, 272);
        va_end (ap);

        return elfcore_write_note (abfd, buf, bufsiz, "CORE",
				   note_type, data, sizeof (data));
      }
    }
}
Commit	Line	Data
caed7120	1	/* AArch64-specific support for ELF.
b90efa5b	2	Copyright (C) 2009-2015 Free Software Foundation, Inc.
caed7120 YZ	3	Contributed by ARM Ltd.
	4
	5	This file is part of BFD, the Binary File Descriptor library.
	6
	7	This program is free software; you can redistribute it and/or modify
	8	it under the terms of the GNU General Public License as published by
	9	the Free Software Foundation; either version 3 of the License, or
	10	(at your option) any later version.
	11
	12	This program is distributed in the hope that it will be useful,
	13	but WITHOUT ANY WARRANTY; without even the implied warranty of
	14	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	GNU General Public License for more details.
	16
	17	You should have received a copy of the GNU General Public License
	18	along with this program; see the file COPYING3. If not,
	19	see <http://www.gnu.org/licenses/>. */
	20
	21	#include "sysdep.h"
	22	#include "elfxx-aarch64.h"
d0ae9fbd OJ	23	#include <stdarg.h>
d0ae9fbd OJ	24	#include <string.h>
caed7120 YZ	25
	26	#define MASK(n) ((1u << (n)) - 1)
	27
4106101c MS	28	/* Sign-extend VALUE, which has the indicated number of BITS. */
	29
	30	bfd_signed_vma
	31	_bfd_aarch64_sign_extend (bfd_vma value, int bits)
	32	{
	33	if (value & ((bfd_vma) 1 << (bits - 1)))
	34	/* VALUE is negative. */
	35	value \|= ((bfd_vma) - 1) << bits;
	36
	37	return value;
	38	}
	39
	40	/* Decode the IMM field of ADRP. */
	41
	42	uint32_t
	43	_bfd_aarch64_decode_adrp_imm (uint32_t insn)
	44	{
	45	return (((insn >> 5) & MASK (19)) << 2) \| ((insn >> 29) & MASK (2));
	46	}
	47
caed7120 YZ	48	/* Reencode the imm field of add immediate. */
	49	static inline uint32_t
	50	reencode_add_imm (uint32_t insn, uint32_t imm)
	51	{
	52	return (insn & ~(MASK (12) << 10)) \| ((imm & MASK (12)) << 10);
	53	}
	54
4106101c MS	55	/* Reencode the IMM field of ADR. */
	56
	57	uint32_t
	58	_bfd_aarch64_reencode_adr_imm (uint32_t insn, uint32_t imm)
caed7120 YZ	59	{
	60	return (insn & ~((MASK (2) << 29) \| (MASK (19) << 5)))
	61	\| ((imm & MASK (2)) << 29) \| ((imm & (MASK (19) << 2)) << 3);
	62	}
	63
	64	/* Reencode the imm field of ld/st pos immediate. */
	65	static inline uint32_t
	66	reencode_ldst_pos_imm (uint32_t insn, uint32_t imm)
	67	{
	68	return (insn & ~(MASK (12) << 10)) \| ((imm & MASK (12)) << 10);
	69	}
	70
	71	/* Encode the 26-bit offset of unconditional branch. */
	72	static inline uint32_t
	73	reencode_branch_ofs_26 (uint32_t insn, uint32_t ofs)
	74	{
	75	return (insn & ~MASK (26)) \| (ofs & MASK (26));
	76	}
	77
	78	/* Encode the 19-bit offset of conditional branch and compare & branch. */
	79	static inline uint32_t
	80	reencode_cond_branch_ofs_19 (uint32_t insn, uint32_t ofs)
	81	{
	82	return (insn & ~(MASK (19) << 5)) \| ((ofs & MASK (19)) << 5);
	83	}
	84
	85	/* Decode the 19-bit offset of load literal. */
	86	static inline uint32_t
	87	reencode_ld_lit_ofs_19 (uint32_t insn, uint32_t ofs)
	88	{
	89	return (insn & ~(MASK (19) << 5)) \| ((ofs & MASK (19)) << 5);
	90	}
	91
	92	/* Encode the 14-bit offset of test & branch. */
	93	static inline uint32_t
	94	reencode_tst_branch_ofs_14 (uint32_t insn, uint32_t ofs)
	95	{
	96	return (insn & ~(MASK (14) << 5)) \| ((ofs & MASK (14)) << 5);
	97	}
	98
	99	/* Reencode the imm field of move wide. */
	100	static inline uint32_t
	101	reencode_movw_imm (uint32_t insn, uint32_t imm)
	102	{
	103	return (insn & ~(MASK (16) << 5)) \| ((imm & MASK (16)) << 5);
	104	}
	105
	106	/* Reencode mov[zn] to movz. */
	107	static inline uint32_t
	108	reencode_movzn_to_movz (uint32_t opcode)
	109	{
	110	return opcode \| (1 << 30);
	111	}
	112
	113	/* Reencode mov[zn] to movn. */
	114	static inline uint32_t
	115	reencode_movzn_to_movn (uint32_t opcode)
	116	{
	117	return opcode & ~(1 << 30);
	118	}
	119
	120	/* Return non-zero if the indicated VALUE has overflowed the maximum
	121	range expressible by a unsigned number with the indicated number of
	122	BITS. */
123
124	static bfd_reloc_status_type
125	aarch64_unsigned_overflow (bfd_vma value, unsigned int bits)
126	{
127	bfd_vma lim;
128	if (bits >= sizeof (bfd_vma) * 8)
129	return bfd_reloc_ok;
130	lim = (bfd_vma) 1 << bits;
131	if (value >= lim)
132	return bfd_reloc_overflow;
133	return bfd_reloc_ok;
134	}
135
136	/* Return non-zero if the indicated VALUE has overflowed the maximum
137	range expressible by an signed number with the indicated number of
138	BITS. */
139
140	static bfd_reloc_status_type
141	aarch64_signed_overflow (bfd_vma value, unsigned int bits)
142	{
143	bfd_signed_vma svalue = (bfd_signed_vma) value;
144	bfd_signed_vma lim;
145
146	if (bits >= sizeof (bfd_vma) * 8)
147	return bfd_reloc_ok;
148	lim = (bfd_signed_vma) 1 << (bits - 1);
149	if (svalue < -lim \|\| svalue >= lim)
150	return bfd_reloc_overflow;
151	return bfd_reloc_ok;
152	}
153
154	/* Insert the addend/value into the instruction or data object being
155	relocated. */
156	bfd_reloc_status_type
157	_bfd_aarch64_elf_put_addend (bfd *abfd,
158	bfd_byte *address, bfd_reloc_code_real_type r_type,
159	reloc_howto_type *howto, bfd_signed_vma addend)
160	{
161	bfd_reloc_status_type status = bfd_reloc_ok;
162	bfd_signed_vma old_addend = addend;
163	bfd_vma contents;
164	int size;
165
166	size = bfd_get_reloc_size (howto);
167	switch (size)
168	{
6346d5ca AM	169	case 0:
6346d5ca AM	170	return status;
caed7120 YZ	171	case 2:
	172	contents = bfd_get_16 (abfd, address);
	173	break;
	174	case 4:
	175	if (howto->src_mask != 0xffffffff)
	176	/* Must be 32-bit instruction, always little-endian. */
	177	contents = bfd_getl32 (address);
	178	else
	179	/* Must be 32-bit data (endianness dependent). */
	180	contents = bfd_get_32 (abfd, address);
	181	break;
	182	case 8:
	183	contents = bfd_get_64 (abfd, address);
	184	break;
	185	default:
	186	abort ();
	187	}
	188
	189	switch (howto->complain_on_overflow)
	190	{
	191	case complain_overflow_dont:
	192	break;
	193	case complain_overflow_signed:
	194	status = aarch64_signed_overflow (addend,
	195	howto->bitsize + howto->rightshift);
	196	break;
	197	case complain_overflow_unsigned:
	198	status = aarch64_unsigned_overflow (addend,
	199	howto->bitsize + howto->rightshift);
	200	break;
	201	case complain_overflow_bitfield:
	202	default:
	203	abort ();
	204	}
	205
	206	addend >>= howto->rightshift;
	207
	208	switch (r_type)
	209	{
caed7120	210	case BFD_RELOC_AARCH64_CALL26:
ce336788	211	case BFD_RELOC_AARCH64_JUMP26:
caed7120 YZ	212	contents = reencode_branch_ofs_26 (contents, addend);
	213	break;
	214
	215	case BFD_RELOC_AARCH64_BRANCH19:
	216	contents = reencode_cond_branch_ofs_19 (contents, addend);
	217	break;
	218
	219	case BFD_RELOC_AARCH64_TSTBR14:
	220	contents = reencode_tst_branch_ofs_14 (contents, addend);
	221	break;
	222
caed7120	223	case BFD_RELOC_AARCH64_GOT_LD_PREL19:
ce336788 JW	224	case BFD_RELOC_AARCH64_LD_LO19_PCREL:
ce336788 JW	225	case BFD_RELOC_AARCH64_TLSDESC_LD_PREL19:
043bf05a	226	case BFD_RELOC_AARCH64_TLSIE_LD_GOTTPREL_PREL19:
caed7120 YZ	227	if (old_addend & ((1 << howto->rightshift) - 1))
	228	return bfd_reloc_overflow;
	229	contents = reencode_ld_lit_ofs_19 (contents, addend);
	230	break;
	231
	232	case BFD_RELOC_AARCH64_TLSDESC_CALL:
	233	break;
	234
ce336788 JW	235	case BFD_RELOC_AARCH64_ADR_GOT_PAGE:
	236	case BFD_RELOC_AARCH64_ADR_HI21_NC_PCREL:
	237	case BFD_RELOC_AARCH64_ADR_HI21_PCREL:
	238	case BFD_RELOC_AARCH64_ADR_LO21_PCREL:
	239	case BFD_RELOC_AARCH64_TLSDESC_ADR_PAGE21:
389b8029	240	case BFD_RELOC_AARCH64_TLSDESC_ADR_PREL21:
caed7120	241	case BFD_RELOC_AARCH64_TLSGD_ADR_PAGE21:
ce336788	242	case BFD_RELOC_AARCH64_TLSGD_ADR_PREL21:
caed7120	243	case BFD_RELOC_AARCH64_TLSIE_ADR_GOTTPREL_PAGE21:
f69e4920	244	case BFD_RELOC_AARCH64_TLSLD_ADR_PAGE21:
77a69ff8	245	case BFD_RELOC_AARCH64_TLSLD_ADR_PREL21:
4106101c	246	contents = _bfd_aarch64_reencode_adr_imm (contents, addend);
caed7120 YZ	247	break;
caed7120 YZ	248
ce336788 JW	249	case BFD_RELOC_AARCH64_ADD_LO12:
ce336788 JW	250	case BFD_RELOC_AARCH64_TLSDESC_ADD_LO12_NC:
caed7120	251	case BFD_RELOC_AARCH64_TLSGD_ADD_LO12_NC:
6ffe9a1b	252	case BFD_RELOC_AARCH64_TLSLD_ADD_DTPREL_HI12:
40fbed84	253	case BFD_RELOC_AARCH64_TLSLD_ADD_DTPREL_LO12:
753999c1	254	case BFD_RELOC_AARCH64_TLSLD_ADD_DTPREL_LO12_NC:
73f925cc	255	case BFD_RELOC_AARCH64_TLSLD_ADD_LO12_NC:
caed7120	256	case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_HI12:
ce336788	257	case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12:
caed7120	258	case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12_NC:
caed7120 YZ	259	/* Corresponds to: add rd, rn, #uimm12 to provide the low order
	260	12 bits of the page offset following
	261	BFD_RELOC_AARCH64_ADR_HI21_PCREL which computes the
	262	(pc-relative) page base. */
	263	contents = reencode_add_imm (contents, addend);
	264	break;
	265
7018c030	266	case BFD_RELOC_AARCH64_LD32_GOTPAGE_LO14:
ce336788	267	case BFD_RELOC_AARCH64_LD32_GOT_LO12_NC:
99ad26cb	268	case BFD_RELOC_AARCH64_LD64_GOTPAGE_LO15:
ce336788 JW	269	case BFD_RELOC_AARCH64_LD64_GOT_LO12_NC:
ce336788 JW	270	case BFD_RELOC_AARCH64_LDST128_LO12:
caed7120 YZ	271	case BFD_RELOC_AARCH64_LDST16_LO12:
	272	case BFD_RELOC_AARCH64_LDST32_LO12:
	273	case BFD_RELOC_AARCH64_LDST64_LO12:
ce336788	274	case BFD_RELOC_AARCH64_LDST8_LO12:
caed7120	275	case BFD_RELOC_AARCH64_TLSDESC_LD32_LO12_NC:
ce336788	276	case BFD_RELOC_AARCH64_TLSDESC_LD64_LO12_NC:
caed7120	277	case BFD_RELOC_AARCH64_TLSIE_LD32_GOTTPREL_LO12_NC:
ce336788	278	case BFD_RELOC_AARCH64_TLSIE_LD64_GOTTPREL_LO12_NC:
07c9aa07 JW	279	case BFD_RELOC_AARCH64_TLSLD_LDST16_DTPREL_LO12:
	280	case BFD_RELOC_AARCH64_TLSLD_LDST16_DTPREL_LO12_NC:
	281	case BFD_RELOC_AARCH64_TLSLD_LDST32_DTPREL_LO12:
	282	case BFD_RELOC_AARCH64_TLSLD_LDST32_DTPREL_LO12_NC:
	283	case BFD_RELOC_AARCH64_TLSLD_LDST64_DTPREL_LO12:
	284	case BFD_RELOC_AARCH64_TLSLD_LDST64_DTPREL_LO12_NC:
	285	case BFD_RELOC_AARCH64_TLSLD_LDST8_DTPREL_LO12:
	286	case BFD_RELOC_AARCH64_TLSLD_LDST8_DTPREL_LO12_NC:
caed7120 YZ	287	if (old_addend & ((1 << howto->rightshift) - 1))
	288	return bfd_reloc_overflow;
	289	/* Used for ldr\|str rt, [rn, #uimm12] to provide the low order
	290	12 bits of the page offset following BFD_RELOC_AARCH64_ADR_HI21_PCREL
	291	which computes the (pc-relative) page base. */
	292	contents = reencode_ldst_pos_imm (contents, addend);
	293	break;
	294
	295	/* Group relocations to create high bits of a 16, 32, 48 or 64
	296	bit signed data or abs address inline. Will change
	297	instruction to MOVN or MOVZ depending on sign of calculated
	298	value. */
	299
caed7120 YZ	300	case BFD_RELOC_AARCH64_MOVW_G0_S:
	301	case BFD_RELOC_AARCH64_MOVW_G1_S:
	302	case BFD_RELOC_AARCH64_MOVW_G2_S:
6ffe9a1b JW	303	case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G0:
	304	case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G1:
	305	case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G2:
ce336788 JW	306	case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0:
	307	case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1:
	308	case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G2:
caed7120 YZ	309	/* NOTE: We can only come here with movz or movn. */
	310	if (addend < 0)
	311	{
	312	/* Force use of MOVN. */
	313	addend = ~addend;
	314	contents = reencode_movzn_to_movn (contents);
	315	}
	316	else
	317	{
	318	/* Force use of MOVZ. */
	319	contents = reencode_movzn_to_movz (contents);
	320	}
	321	/* fall through */
	322
	323	/* Group relocations to create a 16, 32, 48 or 64 bit unsigned
	324	data or abs address inline. */
	325
	326	case BFD_RELOC_AARCH64_MOVW_G0:
	327	case BFD_RELOC_AARCH64_MOVW_G0_NC:
	328	case BFD_RELOC_AARCH64_MOVW_G1:
	329	case BFD_RELOC_AARCH64_MOVW_G1_NC:
	330	case BFD_RELOC_AARCH64_MOVW_G2:
	331	case BFD_RELOC_AARCH64_MOVW_G2_NC:
	332	case BFD_RELOC_AARCH64_MOVW_G3:
6ffe9a1b JW	333	case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G0_NC:
6ffe9a1b JW	334	case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G1_NC:
ce336788 JW	335	case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0_NC:
ce336788 JW	336	case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1_NC:
caed7120 YZ	337	contents = reencode_movw_imm (contents, addend);
	338	break;
	339
	340	default:
	341	/* Repack simple data */
	342	if (howto->dst_mask & (howto->dst_mask + 1))
	343	return bfd_reloc_notsupported;
	344
	345	contents = ((contents & ~howto->dst_mask) \| (addend & howto->dst_mask));
	346	break;
	347	}
	348
	349	switch (size)
	350	{
	351	case 2:
	352	bfd_put_16 (abfd, contents, address);
	353	break;
	354	case 4:
	355	if (howto->dst_mask != 0xffffffff)
	356	/* must be 32-bit instruction, always little-endian */
	357	bfd_putl32 (contents, address);
	358	else
	359	/* must be 32-bit data (endianness dependent) */
	360	bfd_put_32 (abfd, contents, address);
	361	break;
	362	case 8:
	363	bfd_put_64 (abfd, contents, address);
	364	break;
	365	default:
	366	abort ();
	367	}
	368
	369	return status;
	370	}
	371
	372	bfd_vma
	373	_bfd_aarch64_elf_resolve_relocation (bfd_reloc_code_real_type r_type,
	374	bfd_vma place, bfd_vma value,
	375	bfd_vma addend, bfd_boolean weak_undef_p)
	376	{
	377	switch (r_type)
	378	{
caed7120	379	case BFD_RELOC_AARCH64_NONE:
ce336788	380	case BFD_RELOC_AARCH64_TLSDESC_CALL:
caed7120 YZ	381	break;
caed7120 YZ	382
ce336788 JW	383	case BFD_RELOC_AARCH64_16_PCREL:
	384	case BFD_RELOC_AARCH64_32_PCREL:
	385	case BFD_RELOC_AARCH64_64_PCREL:
	386	case BFD_RELOC_AARCH64_ADR_LO21_PCREL:
	387	case BFD_RELOC_AARCH64_BRANCH19:
	388	case BFD_RELOC_AARCH64_LD_LO19_PCREL:
389b8029	389	case BFD_RELOC_AARCH64_TLSDESC_ADR_PREL21:
1ada945d	390	case BFD_RELOC_AARCH64_TLSDESC_LD_PREL19:
3c12b054	391	case BFD_RELOC_AARCH64_TLSGD_ADR_PREL21:
043bf05a	392	case BFD_RELOC_AARCH64_TLSIE_LD_GOTTPREL_PREL19:
77a69ff8	393	case BFD_RELOC_AARCH64_TLSLD_ADR_PREL21:
caed7120 YZ	394	case BFD_RELOC_AARCH64_TSTBR14:
	395	if (weak_undef_p)
	396	value = place;
	397	value = value + addend - place;
	398	break;
	399
	400	case BFD_RELOC_AARCH64_CALL26:
	401	case BFD_RELOC_AARCH64_JUMP26:
	402	value = value + addend - place;
	403	break;
	404
	405	case BFD_RELOC_AARCH64_16:
	406	case BFD_RELOC_AARCH64_32:
caed7120 YZ	407	case BFD_RELOC_AARCH64_MOVW_G0:
caed7120 YZ	408	case BFD_RELOC_AARCH64_MOVW_G0_NC:
ce336788	409	case BFD_RELOC_AARCH64_MOVW_G0_S:
caed7120 YZ	410	case BFD_RELOC_AARCH64_MOVW_G1:
caed7120 YZ	411	case BFD_RELOC_AARCH64_MOVW_G1_NC:
ce336788	412	case BFD_RELOC_AARCH64_MOVW_G1_S:
caed7120 YZ	413	case BFD_RELOC_AARCH64_MOVW_G2:
caed7120 YZ	414	case BFD_RELOC_AARCH64_MOVW_G2_NC:
ce336788	415	case BFD_RELOC_AARCH64_MOVW_G2_S:
caed7120	416	case BFD_RELOC_AARCH64_MOVW_G3:
6ffe9a1b	417	case BFD_RELOC_AARCH64_TLSLD_ADD_DTPREL_HI12:
40fbed84	418	case BFD_RELOC_AARCH64_TLSLD_ADD_DTPREL_LO12:
753999c1	419	case BFD_RELOC_AARCH64_TLSLD_ADD_DTPREL_LO12_NC:
07c9aa07 JW	420	case BFD_RELOC_AARCH64_TLSLD_LDST16_DTPREL_LO12:
	421	case BFD_RELOC_AARCH64_TLSLD_LDST16_DTPREL_LO12_NC:
	422	case BFD_RELOC_AARCH64_TLSLD_LDST32_DTPREL_LO12:
	423	case BFD_RELOC_AARCH64_TLSLD_LDST32_DTPREL_LO12_NC:
	424	case BFD_RELOC_AARCH64_TLSLD_LDST64_DTPREL_LO12:
	425	case BFD_RELOC_AARCH64_TLSLD_LDST64_DTPREL_LO12_NC:
	426	case BFD_RELOC_AARCH64_TLSLD_LDST8_DTPREL_LO12:
	427	case BFD_RELOC_AARCH64_TLSLD_LDST8_DTPREL_LO12_NC:
6ffe9a1b JW	428	case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G0:
	429	case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G0_NC:
	430	case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G1:
	431	case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G1_NC:
	432	case BFD_RELOC_AARCH64_TLSLD_MOVW_DTPREL_G2:
caed7120 YZ	433	value = value + addend;
	434	break;
	435
caed7120	436	case BFD_RELOC_AARCH64_ADR_HI21_NC_PCREL:
ce336788	437	case BFD_RELOC_AARCH64_ADR_HI21_PCREL:
caed7120 YZ	438	if (weak_undef_p)
	439	value = PG (place);
	440	value = PG (value + addend) - PG (place);
	441	break;
	442
	443	case BFD_RELOC_AARCH64_GOT_LD_PREL19:
	444	value = value + addend - place;
	445	break;
	446
	447	case BFD_RELOC_AARCH64_ADR_GOT_PAGE:
	448	case BFD_RELOC_AARCH64_TLSDESC_ADR_PAGE21:
	449	case BFD_RELOC_AARCH64_TLSGD_ADR_PAGE21:
	450	case BFD_RELOC_AARCH64_TLSIE_ADR_GOTTPREL_PAGE21:
f69e4920	451	case BFD_RELOC_AARCH64_TLSLD_ADR_PAGE21:
caed7120 YZ	452	value = PG (value + addend) - PG (place);
	453	break;
	454
7018c030	455	case BFD_RELOC_AARCH64_LD32_GOTPAGE_LO14:
99ad26cb JW	456	case BFD_RELOC_AARCH64_LD64_GOTPAGE_LO15:
	457	/* Caller must make sure addend is the base address of .got section. */
	458	value = value - PG (addend);
	459	break;
	460
caed7120	461	case BFD_RELOC_AARCH64_ADD_LO12:
caed7120	462	case BFD_RELOC_AARCH64_LD32_GOT_LO12_NC:
ce336788 JW	463	case BFD_RELOC_AARCH64_LD64_GOT_LO12_NC:
ce336788 JW	464	case BFD_RELOC_AARCH64_LDST128_LO12:
caed7120 YZ	465	case BFD_RELOC_AARCH64_LDST16_LO12:
	466	case BFD_RELOC_AARCH64_LDST32_LO12:
	467	case BFD_RELOC_AARCH64_LDST64_LO12:
ce336788	468	case BFD_RELOC_AARCH64_LDST8_LO12:
caed7120	469	case BFD_RELOC_AARCH64_TLSDESC_ADD:
ce336788	470	case BFD_RELOC_AARCH64_TLSDESC_ADD_LO12_NC:
caed7120	471	case BFD_RELOC_AARCH64_TLSDESC_LD32_LO12_NC:
ce336788	472	case BFD_RELOC_AARCH64_TLSDESC_LD64_LO12_NC:
caed7120 YZ	473	case BFD_RELOC_AARCH64_TLSDESC_LDR:
caed7120 YZ	474	case BFD_RELOC_AARCH64_TLSGD_ADD_LO12_NC:
caed7120	475	case BFD_RELOC_AARCH64_TLSIE_LD32_GOTTPREL_LO12_NC:
ce336788	476	case BFD_RELOC_AARCH64_TLSIE_LD64_GOTTPREL_LO12_NC:
caed7120 YZ	477	case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12_NC:
	478	value = PG_OFFSET (value + addend);
	479	break;
	480
36e6c140 JW	481	case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12:
	482	value = value + addend;
	483	break;
	484
caed7120 YZ	485	case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1:
	486	case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1_NC:
	487	value = (value + addend) & (bfd_vma) 0xffff0000;
	488	break;
	489	case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_HI12:
bab91cce JW	490	/* Mask off low 12bits, keep all other high bits, so that the later
	491	generic code could check whehter there is overflow. */
	492	value = (value + addend) & ~(bfd_vma) 0xfff;
caed7120 YZ	493	break;
	494
	495	case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0:
	496	case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0_NC:
	497	value = (value + addend) & (bfd_vma) 0xffff;
	498	break;
	499
	500	case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G2:
	501	value = (value + addend) & ~(bfd_vma) 0xffffffff;
	502	value -= place & ~(bfd_vma) 0xffffffff;
	503	break;
	504
	505	default:
	506	break;
	507	}
	508
	509	return value;
	510	}
	511
	512	/* Hook called by the linker routine which adds symbols from an object
	513	file. */
	514
	515	bfd_boolean
	516	_bfd_aarch64_elf_add_symbol_hook (bfd abfd, struct bfd_link_info info,
	517	Elf_Internal_Sym *sym,
	518	const char **namep ATTRIBUTE_UNUSED,
	519	flagword *flagsp ATTRIBUTE_UNUSED,
	520	asection **secp ATTRIBUTE_UNUSED,
	521	bfd_vma *valp ATTRIBUTE_UNUSED)
	522	{
f1885d1e AM	523	if ((ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC
	524	\|\| ELF_ST_BIND (sym->st_info) == STB_GNU_UNIQUE)
	525	&& (abfd->flags & DYNAMIC) == 0
	526	&& bfd_get_flavour (info->output_bfd) == bfd_target_elf_flavour)
13a2df29	527	elf_tdata (info->output_bfd)->has_gnu_symbols = elf_gnu_symbol_any;
caed7120 YZ	528
	529	return TRUE;
	530	}
	531
	532	/* Support for core dump NOTE sections. */
	533
	534	bfd_boolean
	535	_bfd_aarch64_elf_grok_prstatus (bfd abfd, Elf_Internal_Note note)
	536	{
	537	int offset;
	538	size_t size;
	539
	540	switch (note->descsz)
	541	{
	542	default:
	543	return FALSE;
	544
3b570dee	545	case 392: /* sizeof(struct elf_prstatus) on Linux/arm64. */
caed7120 YZ	546	/* pr_cursig */
	547	elf_tdata (abfd)->core->signal
	548	= bfd_get_16 (abfd, note->descdata + 12);
	549
	550	/* pr_pid */
	551	elf_tdata (abfd)->core->lwpid
	552	= bfd_get_32 (abfd, note->descdata + 32);
	553
	554	/* pr_reg */
	555	offset = 112;
	556	size = 272;
	557
	558	break;
	559	}
	560
	561	/* Make a ".reg/999" section. */
	562	return _bfd_elfcore_make_pseudosection (abfd, ".reg",
	563	size, note->descpos + offset);
	564	}
d0ae9fbd OJ	565
	566	bfd_boolean
	567	_bfd_aarch64_elf_grok_psinfo (bfd abfd, Elf_Internal_Note note)
	568	{
	569	switch (note->descsz)
	570	{
	571	default:
	572	return FALSE;
	573
	574	case 136: /* This is sizeof(struct elf_prpsinfo) on Linux/aarch64. */
	575	elf_tdata (abfd)->core->pid = bfd_get_32 (abfd, note->descdata + 24);
	576	elf_tdata (abfd)->core->program
	577	= _bfd_elfcore_strndup (abfd, note->descdata + 40, 16);
	578	elf_tdata (abfd)->core->command
	579	= _bfd_elfcore_strndup (abfd, note->descdata + 56, 80);
	580	}
	581
	582	/* Note that for some reason, a spurious space is tacked
	583	onto the end of the args in some (at least one anyway)
	584	implementations, so strip it off if it exists. */
	585
	586	{
	587	char *command = elf_tdata (abfd)->core->command;
	588	int n = strlen (command);
	589
	590	if (0 < n && command[n - 1] == ' ')
	591	command[n - 1] = '\0';
	592	}
	593
	594	return TRUE;
	595	}
	596
	597	char *
	598	_bfd_aarch64_elf_write_core_note (bfd abfd, char buf, int *bufsiz, int note_type,
	599	...)
	600	{
	601	switch (note_type)
	602	{
	603	default:
	604	return NULL;
	605
	606	case NT_PRPSINFO:
	607	{
	608	char data[136];
	609	va_list ap;
	610
	611	va_start (ap, note_type);
	612	memset (data, 0, sizeof (data));
	613	strncpy (data + 40, va_arg (ap, const char *), 16);
	614	strncpy (data + 56, va_arg (ap, const char *), 80);
	615	va_end (ap);
	616
	617	return elfcore_write_note (abfd, buf, bufsiz, "CORE",
	618	note_type, data, sizeof (data));
	619	}
	620
	621	case NT_PRSTATUS:
	622	{
	623	char data[392];
	624	va_list ap;
	625	long pid;
	626	int cursig;
	627	const void *greg;
	628
629	va_start (ap, note_type);
630	memset (data, 0, sizeof (data));
631	pid = va_arg (ap, long);
632	bfd_put_32 (abfd, pid, data + 32);
633	cursig = va_arg (ap, int);
634	bfd_put_16 (abfd, cursig, data + 12);
635	greg = va_arg (ap, const void *);
636	memcpy (data + 112, greg, 272);
637	va_end (ap);
638
639	return elfcore_write_note (abfd, buf, bufsiz, "CORE",
640	note_type, data, sizeof (data));
641	}
642	}
643	}