Automatic date update in version.in
[deliverable/binutils-gdb.git] / bfd / elf64-s390.c
index 197e9bc68c7ac4e8b436a9c6304f70585020748a..ff7ea7c35f403087024aafd830d910d297b03f2c 100644 (file)
@@ -1,5 +1,5 @@
 /* IBM S/390-specific support for 64-bit ELF
-   Copyright (C) 2000-2020 Free Software Foundation, Inc.
+   Copyright (C) 2000-2021 Free Software Foundation, Inc.
    Contributed Martin Schwidefsky (schwidefsky@de.ibm.com).
 
    This file is part of BFD, the Binary File Descriptor library.
@@ -46,147 +46,147 @@ static reloc_howto_type elf_howto_table[] =
         0,                     /* rightshift */
         3,                     /* size (0 = byte, 1 = 2 byte, 2 = 4 byte) */
         0,                     /* bitsize */
-        FALSE,                 /* pc_relative */
+        false,                 /* pc_relative */
         0,                     /* bitpos */
         complain_overflow_dont, /* complain_on_overflow */
         bfd_elf_generic_reloc, /* special_function */
         "R_390_NONE",          /* name */
-        FALSE,                 /* partial_inplace */
+        false,                 /* partial_inplace */
         0,                     /* src_mask */
         0,                     /* dst_mask */
-        FALSE),                /* pcrel_offset */
-
-  HOWTO(R_390_8,        0, 0,  8, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_8",        FALSE, 0,0x000000ff, FALSE),
-  HOWTO(R_390_12,       0, 1, 12, FALSE, 0, complain_overflow_dont,
-       bfd_elf_generic_reloc, "R_390_12",       FALSE, 0,0x00000fff, FALSE),
-  HOWTO(R_390_16,       0, 1, 16, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_16",       FALSE, 0,0x0000ffff, FALSE),
-  HOWTO(R_390_32,       0, 2, 32, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_32",       FALSE, 0,0xffffffff, FALSE),
-  HOWTO(R_390_PC32,     0, 2, 32,  TRUE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_PC32",     FALSE, 0,0xffffffff, TRUE),
-  HOWTO(R_390_GOT12,    0, 1, 12, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_GOT12",    FALSE, 0,0x00000fff, FALSE),
-  HOWTO(R_390_GOT32,    0, 2, 32, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_GOT32",    FALSE, 0,0xffffffff, FALSE),
-  HOWTO(R_390_PLT32,    0, 2, 32,  TRUE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_PLT32",    FALSE, 0,0xffffffff, TRUE),
-  HOWTO(R_390_COPY,     0, 4, 64, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_COPY",     FALSE, 0,MINUS_ONE,  FALSE),
-  HOWTO(R_390_GLOB_DAT,         0, 4, 64, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_GLOB_DAT", FALSE, 0,MINUS_ONE,  FALSE),
-  HOWTO(R_390_JMP_SLOT,         0, 4, 64, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_JMP_SLOT", FALSE, 0,MINUS_ONE,  FALSE),
-  HOWTO(R_390_RELATIVE,         0, 4, 64,  TRUE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_RELATIVE", FALSE, 0,MINUS_ONE,  FALSE),
-  HOWTO(R_390_GOTOFF32,         0, 2, 32, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_GOTOFF32", FALSE, 0,MINUS_ONE,  FALSE),
-  HOWTO(R_390_GOTPC,    0, 4, 64,  TRUE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_GOTPC",    FALSE, 0,MINUS_ONE,  TRUE),
-  HOWTO(R_390_GOT16,    0, 1, 16, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_GOT16",    FALSE, 0,0x0000ffff, FALSE),
-  HOWTO(R_390_PC16,     0, 1, 16,  TRUE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_PC16",     FALSE, 0,0x0000ffff, TRUE),
-  HOWTO(R_390_PC16DBL,  1, 1, 16,  TRUE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_PC16DBL",  FALSE, 0,0x0000ffff, TRUE),
-  HOWTO(R_390_PLT16DBL,         1, 1, 16,  TRUE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_PLT16DBL", FALSE, 0,0x0000ffff, TRUE),
-  HOWTO(R_390_PC32DBL,  1, 2, 32,  TRUE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_PC32DBL",  FALSE, 0,0xffffffff, TRUE),
-  HOWTO(R_390_PLT32DBL,         1, 2, 32,  TRUE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_PLT32DBL", FALSE, 0,0xffffffff, TRUE),
-  HOWTO(R_390_GOTPCDBL,         1, 2, 32,  TRUE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_GOTPCDBL", FALSE, 0,MINUS_ONE,  TRUE),
-  HOWTO(R_390_64,       0, 4, 64, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_64",       FALSE, 0,MINUS_ONE,  FALSE),
-  HOWTO(R_390_PC64,     0, 4, 64,  TRUE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_PC64",     FALSE, 0,MINUS_ONE,  TRUE),
-  HOWTO(R_390_GOT64,    0, 4, 64, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_GOT64",    FALSE, 0,MINUS_ONE,  FALSE),
-  HOWTO(R_390_PLT64,    0, 4, 64,  TRUE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_PLT64",    FALSE, 0,MINUS_ONE,  TRUE),
-  HOWTO(R_390_GOTENT,   1, 2, 32,  TRUE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_GOTENT",   FALSE, 0,MINUS_ONE,  TRUE),
-  HOWTO(R_390_GOTOFF16,         0, 1, 16, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_GOTOFF16", FALSE, 0,0x0000ffff, FALSE),
-  HOWTO(R_390_GOTOFF64,         0, 4, 64, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_GOTOFF64", FALSE, 0,MINUS_ONE,  FALSE),
-  HOWTO(R_390_GOTPLT12,         0, 1, 12, FALSE, 0, complain_overflow_dont,
-       bfd_elf_generic_reloc, "R_390_GOTPLT12", FALSE, 0,0x00000fff, FALSE),
-  HOWTO(R_390_GOTPLT16,         0, 1, 16, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_GOTPLT16", FALSE, 0,0x0000ffff, FALSE),
-  HOWTO(R_390_GOTPLT32,         0, 2, 32, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_GOTPLT32", FALSE, 0,0xffffffff, FALSE),
-  HOWTO(R_390_GOTPLT64,         0, 4, 64, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_GOTPLT64", FALSE, 0,MINUS_ONE,  FALSE),
-  HOWTO(R_390_GOTPLTENT, 1, 2, 32,  TRUE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_GOTPLTENT",FALSE, 0,MINUS_ONE,  TRUE),
-  HOWTO(R_390_PLTOFF16,         0, 1, 16, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_PLTOFF16", FALSE, 0,0x0000ffff, FALSE),
-  HOWTO(R_390_PLTOFF32,         0, 2, 32, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_PLTOFF32", FALSE, 0,0xffffffff, FALSE),
-  HOWTO(R_390_PLTOFF64,         0, 4, 64, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_PLTOFF64", FALSE, 0,MINUS_ONE,  FALSE),
-  HOWTO(R_390_TLS_LOAD, 0, 0, 0, FALSE, 0, complain_overflow_dont,
-       s390_tls_reloc, "R_390_TLS_LOAD", FALSE, 0, 0, FALSE),
-  HOWTO(R_390_TLS_GDCALL, 0, 0, 0, FALSE, 0, complain_overflow_dont,
-       s390_tls_reloc, "R_390_TLS_GDCALL", FALSE, 0, 0, FALSE),
-  HOWTO(R_390_TLS_LDCALL, 0, 0, 0, FALSE, 0, complain_overflow_dont,
-       s390_tls_reloc, "R_390_TLS_LDCALL", FALSE, 0, 0, FALSE),
+        false),                /* pcrel_offset */
+
+  HOWTO(R_390_8,        0, 0,  8, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_8",        false, 0,0x000000ff, false),
+  HOWTO(R_390_12,       0, 1, 12, false, 0, complain_overflow_dont,
+       bfd_elf_generic_reloc, "R_390_12",       false, 0,0x00000fff, false),
+  HOWTO(R_390_16,       0, 1, 16, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_16",       false, 0,0x0000ffff, false),
+  HOWTO(R_390_32,       0, 2, 32, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_32",       false, 0,0xffffffff, false),
+  HOWTO(R_390_PC32,     0, 2, 32,  true, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_PC32",     false, 0,0xffffffff, true),
+  HOWTO(R_390_GOT12,    0, 1, 12, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_GOT12",    false, 0,0x00000fff, false),
+  HOWTO(R_390_GOT32,    0, 2, 32, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_GOT32",    false, 0,0xffffffff, false),
+  HOWTO(R_390_PLT32,    0, 2, 32,  true, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_PLT32",    false, 0,0xffffffff, true),
+  HOWTO(R_390_COPY,     0, 4, 64, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_COPY",     false, 0,MINUS_ONE,  false),
+  HOWTO(R_390_GLOB_DAT,         0, 4, 64, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_GLOB_DAT", false, 0,MINUS_ONE,  false),
+  HOWTO(R_390_JMP_SLOT,         0, 4, 64, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_JMP_SLOT", false, 0,MINUS_ONE,  false),
+  HOWTO(R_390_RELATIVE,         0, 4, 64,  true, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_RELATIVE", false, 0,MINUS_ONE,  false),
+  HOWTO(R_390_GOTOFF32,         0, 2, 32, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_GOTOFF32", false, 0,MINUS_ONE,  false),
+  HOWTO(R_390_GOTPC,    0, 4, 64,  true, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_GOTPC",    false, 0,MINUS_ONE,  true),
+  HOWTO(R_390_GOT16,    0, 1, 16, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_GOT16",    false, 0,0x0000ffff, false),
+  HOWTO(R_390_PC16,     0, 1, 16,  true, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_PC16",     false, 0,0x0000ffff, true),
+  HOWTO(R_390_PC16DBL,  1, 1, 16,  true, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_PC16DBL",  false, 0,0x0000ffff, true),
+  HOWTO(R_390_PLT16DBL,         1, 1, 16,  true, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_PLT16DBL", false, 0,0x0000ffff, true),
+  HOWTO(R_390_PC32DBL,  1, 2, 32,  true, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_PC32DBL",  false, 0,0xffffffff, true),
+  HOWTO(R_390_PLT32DBL,         1, 2, 32,  true, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_PLT32DBL", false, 0,0xffffffff, true),
+  HOWTO(R_390_GOTPCDBL,         1, 2, 32,  true, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_GOTPCDBL", false, 0,MINUS_ONE,  true),
+  HOWTO(R_390_64,       0, 4, 64, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_64",       false, 0,MINUS_ONE,  false),
+  HOWTO(R_390_PC64,     0, 4, 64,  true, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_PC64",     false, 0,MINUS_ONE,  true),
+  HOWTO(R_390_GOT64,    0, 4, 64, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_GOT64",    false, 0,MINUS_ONE,  false),
+  HOWTO(R_390_PLT64,    0, 4, 64,  true, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_PLT64",    false, 0,MINUS_ONE,  true),
+  HOWTO(R_390_GOTENT,   1, 2, 32,  true, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_GOTENT",   false, 0,MINUS_ONE,  true),
+  HOWTO(R_390_GOTOFF16,         0, 1, 16, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_GOTOFF16", false, 0,0x0000ffff, false),
+  HOWTO(R_390_GOTOFF64,         0, 4, 64, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_GOTOFF64", false, 0,MINUS_ONE,  false),
+  HOWTO(R_390_GOTPLT12,         0, 1, 12, false, 0, complain_overflow_dont,
+       bfd_elf_generic_reloc, "R_390_GOTPLT12", false, 0,0x00000fff, false),
+  HOWTO(R_390_GOTPLT16,         0, 1, 16, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_GOTPLT16", false, 0,0x0000ffff, false),
+  HOWTO(R_390_GOTPLT32,         0, 2, 32, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_GOTPLT32", false, 0,0xffffffff, false),
+  HOWTO(R_390_GOTPLT64,         0, 4, 64, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_GOTPLT64", false, 0,MINUS_ONE,  false),
+  HOWTO(R_390_GOTPLTENT, 1, 2, 32,  true, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_GOTPLTENT",false, 0,MINUS_ONE,  true),
+  HOWTO(R_390_PLTOFF16,         0, 1, 16, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_PLTOFF16", false, 0,0x0000ffff, false),
+  HOWTO(R_390_PLTOFF32,         0, 2, 32, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_PLTOFF32", false, 0,0xffffffff, false),
+  HOWTO(R_390_PLTOFF64,         0, 4, 64, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_PLTOFF64", false, 0,MINUS_ONE,  false),
+  HOWTO(R_390_TLS_LOAD, 0, 0, 0, false, 0, complain_overflow_dont,
+       s390_tls_reloc, "R_390_TLS_LOAD", false, 0, 0, false),
+  HOWTO(R_390_TLS_GDCALL, 0, 0, 0, false, 0, complain_overflow_dont,
+       s390_tls_reloc, "R_390_TLS_GDCALL", false, 0, 0, false),
+  HOWTO(R_390_TLS_LDCALL, 0, 0, 0, false, 0, complain_overflow_dont,
+       s390_tls_reloc, "R_390_TLS_LDCALL", false, 0, 0, false),
   EMPTY_HOWTO (R_390_TLS_GD32),        /* Empty entry for R_390_TLS_GD32.  */
-  HOWTO(R_390_TLS_GD64,         0, 4, 64, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_TLS_GD64", FALSE, 0, MINUS_ONE, FALSE),
-  HOWTO(R_390_TLS_GOTIE12, 0, 1, 12, FALSE, 0, complain_overflow_dont,
-       bfd_elf_generic_reloc, "R_390_TLS_GOTIE12", FALSE, 0, 0x00000fff, FALSE),
+  HOWTO(R_390_TLS_GD64,         0, 4, 64, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_TLS_GD64", false, 0, MINUS_ONE, false),
+  HOWTO(R_390_TLS_GOTIE12, 0, 1, 12, false, 0, complain_overflow_dont,
+       bfd_elf_generic_reloc, "R_390_TLS_GOTIE12", false, 0, 0x00000fff, false),
   EMPTY_HOWTO (R_390_TLS_GOTIE32),     /* Empty entry for R_390_TLS_GOTIE32.  */
-  HOWTO(R_390_TLS_GOTIE64, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_TLS_GOTIE64", FALSE, 0, MINUS_ONE, FALSE),
+  HOWTO(R_390_TLS_GOTIE64, 0, 4, 64, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_TLS_GOTIE64", false, 0, MINUS_ONE, false),
   EMPTY_HOWTO (R_390_TLS_LDM32),       /* Empty entry for R_390_TLS_LDM32.  */
-  HOWTO(R_390_TLS_LDM64, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_TLS_LDM64", FALSE, 0, MINUS_ONE, FALSE),
+  HOWTO(R_390_TLS_LDM64, 0, 4, 64, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_TLS_LDM64", false, 0, MINUS_ONE, false),
   EMPTY_HOWTO (R_390_TLS_IE32),        /* Empty entry for R_390_TLS_IE32.  */
-  HOWTO(R_390_TLS_IE64,         0, 4, 64, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_TLS_IE64", FALSE, 0, MINUS_ONE, FALSE),
-  HOWTO(R_390_TLS_IEENT, 1, 2, 32, TRUE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_TLS_IEENT", FALSE, 0, MINUS_ONE, TRUE),
+  HOWTO(R_390_TLS_IE64,         0, 4, 64, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_TLS_IE64", false, 0, MINUS_ONE, false),
+  HOWTO(R_390_TLS_IEENT, 1, 2, 32, true, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_TLS_IEENT", false, 0, MINUS_ONE, true),
   EMPTY_HOWTO (R_390_TLS_LE32),        /* Empty entry for R_390_TLS_LE32.  */
-  HOWTO(R_390_TLS_LE64,         0, 2, 32, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_TLS_LE64", FALSE, 0, MINUS_ONE, FALSE),
+  HOWTO(R_390_TLS_LE64,         0, 2, 32, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_TLS_LE64", false, 0, MINUS_ONE, false),
   EMPTY_HOWTO (R_390_TLS_LDO32),       /* Empty entry for R_390_TLS_LDO32.  */
-  HOWTO(R_390_TLS_LDO64, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_TLS_LDO64", FALSE, 0, MINUS_ONE, FALSE),
-  HOWTO(R_390_TLS_DTPMOD, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_TLS_DTPMOD", FALSE, 0, MINUS_ONE, FALSE),
-  HOWTO(R_390_TLS_DTPOFF, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_TLS_DTPOFF", FALSE, 0, MINUS_ONE, FALSE),
-  HOWTO(R_390_TLS_TPOFF, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_TLS_TPOFF", FALSE, 0, MINUS_ONE, FALSE),
-  HOWTO(R_390_20,       0, 2, 20, FALSE, 8, complain_overflow_dont,
-       s390_elf_ldisp_reloc, "R_390_20",      FALSE, 0,0x0fffff00, FALSE),
-  HOWTO(R_390_GOT20,    0, 2, 20, FALSE, 8, complain_overflow_dont,
-       s390_elf_ldisp_reloc, "R_390_GOT20",   FALSE, 0,0x0fffff00, FALSE),
-  HOWTO(R_390_GOTPLT20,         0, 2, 20, FALSE, 8, complain_overflow_dont,
-       s390_elf_ldisp_reloc, "R_390_GOTPLT20", FALSE, 0,0x0fffff00, FALSE),
-  HOWTO(R_390_TLS_GOTIE20, 0, 2, 20, FALSE, 8, complain_overflow_dont,
-       s390_elf_ldisp_reloc, "R_390_TLS_GOTIE20", FALSE, 0,0x0fffff00, FALSE),
-  HOWTO(R_390_IRELATIVE, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_IRELATIVE", FALSE, 0, MINUS_ONE, FALSE),
-  HOWTO(R_390_PC12DBL,  1, 1, 12,  TRUE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_PC12DBL",  FALSE, 0,0x00000fff, TRUE),
-  HOWTO(R_390_PLT12DBL,         1, 1, 12,  TRUE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_PLT12DBL", FALSE, 0,0x00000fff, TRUE),
-  HOWTO(R_390_PC24DBL,  1, 2, 24,  TRUE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_PC24DBL",  FALSE, 0,0x00ffffff, TRUE),
-  HOWTO(R_390_PLT24DBL,         1, 2, 24,  TRUE, 0, complain_overflow_bitfield,
-       bfd_elf_generic_reloc, "R_390_PLT24DBL", FALSE, 0,0x00ffffff, TRUE),
+  HOWTO(R_390_TLS_LDO64, 0, 4, 64, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_TLS_LDO64", false, 0, MINUS_ONE, false),
+  HOWTO(R_390_TLS_DTPMOD, 0, 4, 64, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_TLS_DTPMOD", false, 0, MINUS_ONE, false),
+  HOWTO(R_390_TLS_DTPOFF, 0, 4, 64, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_TLS_DTPOFF", false, 0, MINUS_ONE, false),
+  HOWTO(R_390_TLS_TPOFF, 0, 4, 64, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_TLS_TPOFF", false, 0, MINUS_ONE, false),
+  HOWTO(R_390_20,       0, 2, 20, false, 8, complain_overflow_dont,
+       s390_elf_ldisp_reloc, "R_390_20",      false, 0,0x0fffff00, false),
+  HOWTO(R_390_GOT20,    0, 2, 20, false, 8, complain_overflow_dont,
+       s390_elf_ldisp_reloc, "R_390_GOT20",   false, 0,0x0fffff00, false),
+  HOWTO(R_390_GOTPLT20,         0, 2, 20, false, 8, complain_overflow_dont,
+       s390_elf_ldisp_reloc, "R_390_GOTPLT20", false, 0,0x0fffff00, false),
+  HOWTO(R_390_TLS_GOTIE20, 0, 2, 20, false, 8, complain_overflow_dont,
+       s390_elf_ldisp_reloc, "R_390_TLS_GOTIE20", false, 0,0x0fffff00, false),
+  HOWTO(R_390_IRELATIVE, 0, 4, 64, false, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_IRELATIVE", false, 0, MINUS_ONE, false),
+  HOWTO(R_390_PC12DBL,  1, 1, 12,  true, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_PC12DBL",  false, 0,0x00000fff, true),
+  HOWTO(R_390_PLT12DBL,         1, 1, 12,  true, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_PLT12DBL", false, 0,0x00000fff, true),
+  HOWTO(R_390_PC24DBL,  1, 2, 24,  true, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_PC24DBL",  false, 0,0x00ffffff, true),
+  HOWTO(R_390_PLT24DBL,         1, 2, 24,  true, 0, complain_overflow_bitfield,
+       bfd_elf_generic_reloc, "R_390_PLT24DBL", false, 0,0x00ffffff, true),
 };
 
 /* GNU extension to record C++ vtable hierarchy.  */
 static reloc_howto_type elf64_s390_vtinherit_howto =
-  HOWTO (R_390_GNU_VTINHERIT, 0,4,0,FALSE,0,complain_overflow_dont, NULL, "R_390_GNU_VTINHERIT", FALSE,0, 0, FALSE);
+  HOWTO (R_390_GNU_VTINHERIT, 0,4,0,false,0,complain_overflow_dont, NULL, "R_390_GNU_VTINHERIT", false,0, 0, false);
 static reloc_howto_type elf64_s390_vtentry_howto =
-  HOWTO (R_390_GNU_VTENTRY, 0,4,0,FALSE,0,complain_overflow_dont, _bfd_elf_rel_vtable_reloc_fn,"R_390_GNU_VTENTRY", FALSE,0,0, FALSE);
+  HOWTO (R_390_GNU_VTENTRY, 0,4,0,false,0,complain_overflow_dont, _bfd_elf_rel_vtable_reloc_fn,"R_390_GNU_VTENTRY", false,0,0, false);
 
 static reloc_howto_type *
 elf_s390_reloc_type_lookup (bfd *abfd,
@@ -354,7 +354,7 @@ elf_s390_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
 /* We need to use ELF64_R_TYPE so we have our own copy of this function,
    and elf64-s390.c has its own copy.  */
 
-static bfd_boolean
+static bool
 elf_s390_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
                        arelent *cache_ptr,
                        Elf_Internal_Rela *dst)
@@ -378,11 +378,11 @@ elf_s390_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
          _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
                              abfd, r_type);
          bfd_set_error (bfd_error_bad_value);
-         return FALSE;
+         return false;
        }
       cache_ptr->howto = &elf_howto_table[r_type];
     }
-  return TRUE;
+  return true;
 }
 
 /* A relocation function which doesn't do anything.  */
@@ -450,11 +450,11 @@ s390_elf_ldisp_reloc (bfd *abfd,
     return bfd_reloc_ok;
 }
 
-static bfd_boolean
+static bool
 elf_s390_is_local_label_name (bfd *abfd, const char *name)
 {
   if (name[0] == '.' && (name[1] == 'X' || name[1] == 'L'))
-    return TRUE;
+    return true;
 
   return _bfd_elf_is_local_label_name (abfd, name);
 }
@@ -635,14 +635,14 @@ struct elf_s390_obj_tdata
    && elf_tdata (bfd) != NULL                          \
    && elf_object_id (bfd) == S390_ELF_DATA)
 
-static bfd_boolean
+static bool
 elf_s390_mkobject (bfd *abfd)
 {
   return bfd_elf_allocate_object (abfd, sizeof (struct elf_s390_obj_tdata),
                                  S390_ELF_DATA);
 }
 
-static bfd_boolean
+static bool
 elf_s390_object_p (bfd *abfd)
 {
   /* Set the right machine number for an s390 elf32 file.  */
@@ -663,9 +663,6 @@ struct elf_s390_link_hash_table
     bfd_vma offset;
   } tls_ldm_got;
 
-  /* Small local sym cache.  */
-  struct sym_cache sym_cache;
-
   /* Options passed from the linker.  */
   struct s390_elf_params *params;
 };
@@ -673,8 +670,9 @@ struct elf_s390_link_hash_table
 /* Get the s390 ELF linker hash table from a link_info structure.  */
 
 #define elf_s390_hash_table(p)                                         \
-  (elf_hash_table_id ((struct elf_link_hash_table *) ((p)->hash))      \
-   == S390_ELF_DATA ? ((struct elf_s390_link_hash_table *) ((p)->hash)) : NULL)
+  ((is_elf_hash_table ((p)->hash)                                      \
+    && elf_hash_table_id (elf_hash_table (p)) == S390_ELF_DATA)                \
+   ? (struct elf_s390_link_hash_table *) (p)->hash : NULL)
 
 #define ELF64 1
 #include "elf-s390-common.c"
@@ -801,7 +799,7 @@ elf_s390_tls_transition (struct bfd_link_info *info,
    allocate space in the global offset table or procedure linkage
    table.  */
 
-static bfd_boolean
+static bool
 elf_s390_check_relocs (bfd *abfd,
                       struct bfd_link_info *info,
                       asection *sec,
@@ -817,13 +815,13 @@ elf_s390_check_relocs (bfd *abfd,
   int tls_type, old_tls_type;
 
   if (bfd_link_relocatable (info))
-    return TRUE;
+    return true;
 
   BFD_ASSERT (is_s390_elf (abfd));
 
   htab = elf_s390_hash_table (info);
   if (htab == NULL)
-    return FALSE;
+    return false;
 
   symtab_hdr = &elf_symtab_hdr (abfd);
   sym_hashes = elf_sym_hashes (abfd);
@@ -846,16 +844,16 @@ elf_s390_check_relocs (bfd *abfd,
          /* xgettext:c-format */
          _bfd_error_handler (_("%pB: bad symbol index: %d"),
                              abfd, r_symndx);
-         return FALSE;
+         return false;
        }
 
       if (r_symndx < symtab_hdr->sh_info)
        {
          /* A local symbol.  */
-         isym = bfd_sym_from_r_symndx (&htab->sym_cache,
+         isym = bfd_sym_from_r_symndx (&htab->elf.sym_cache,
                                        abfd, r_symndx);
          if (isym == NULL)
-           return FALSE;
+           return false;
 
          if (ELF_ST_TYPE (isym->st_info) == STT_GNU_IFUNC)
            {
@@ -865,12 +863,12 @@ elf_s390_check_relocs (bfd *abfd,
                htab->elf.dynobj = abfd;
 
              if (!s390_elf_create_ifunc_sections (htab->elf.dynobj, info))
-               return FALSE;
+               return false;
 
              if (local_got_refcounts == NULL)
                {
                  if (!elf_s390_allocate_local_syminfo (abfd, symtab_hdr))
-                   return FALSE;
+                   return false;
                  local_got_refcounts = elf_local_got_refcounts (abfd);
                }
              plt = elf_s390_local_plt (abfd);
@@ -916,7 +914,7 @@ elf_s390_check_relocs (bfd *abfd,
              && local_got_refcounts == NULL)
            {
              if (!elf_s390_allocate_local_syminfo (abfd, symtab_hdr))
-               return FALSE;
+               return false;
              local_got_refcounts = elf_local_got_refcounts (abfd);
            }
 
@@ -931,7 +929,7 @@ elf_s390_check_relocs (bfd *abfd,
              if (htab->elf.dynobj == NULL)
                htab->elf.dynobj = abfd;
              if (!_bfd_elf_create_got_section (htab->elf.dynobj, info))
-               return FALSE;
+               return false;
            }
        }
 
@@ -940,7 +938,7 @@ elf_s390_check_relocs (bfd *abfd,
          if (htab->elf.dynobj == NULL)
            htab->elf.dynobj = abfd;
          if (!s390_elf_create_ifunc_sections (htab->elf.dynobj, info))
-           return FALSE;
+           return false;
 
          /* Make sure an IFUNC symbol defined in a non-shared object
             always gets a PLT slot.  */
@@ -1084,7 +1082,7 @@ elf_s390_check_relocs (bfd *abfd,
                    /* xgettext:c-format */
                    (_("%pB: `%s' accessed both as normal and thread local symbol"),
                     abfd, h->root.root.string);
-                 return FALSE;
+                 return false;
                }
              if (old_tls_type > tls_type)
                tls_type = old_tls_type;
@@ -1196,10 +1194,10 @@ elf_s390_check_relocs (bfd *abfd,
                    htab->elf.dynobj = abfd;
 
                  sreloc = _bfd_elf_make_dynamic_reloc_section
-                   (sec, htab->elf.dynobj, 3, abfd, /*rela?*/ TRUE);
+                   (sec, htab->elf.dynobj, 3, abfd, /*rela?*/ true);
 
                  if (sreloc == NULL)
-                   return FALSE;
+                   return false;
                }
 
              /* If this is a global symbol, we count the number of
@@ -1216,10 +1214,10 @@ elf_s390_check_relocs (bfd *abfd,
                  asection *s;
                  void *vpp;
 
-                 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
+                 isym = bfd_sym_from_r_symndx (&htab->elf.sym_cache,
                                                abfd, r_symndx);
                  if (isym == NULL)
-                   return FALSE;
+                   return false;
 
                  s = bfd_section_from_elf_index (abfd, isym->st_shndx);
                  if (s == NULL)
@@ -1236,7 +1234,7 @@ elf_s390_check_relocs (bfd *abfd,
                  p = ((struct elf_dyn_relocs *)
                       bfd_alloc (htab->elf.dynobj, amt));
                  if (p == NULL)
-                   return FALSE;
+                   return false;
                  p->next = *head;
                  *head = p;
                  p->sec = sec;
@@ -1260,14 +1258,14 @@ elf_s390_check_relocs (bfd *abfd,
             Reconstruct it for later use during GC.  */
        case R_390_GNU_VTINHERIT:
          if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
-           return FALSE;
+           return false;
          break;
 
          /* This relocation describes which C++ vtable entries are actually
             used.  Record for later use during GC.  */
        case R_390_GNU_VTENTRY:
          if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
-           return FALSE;
+           return false;
          break;
 
        default:
@@ -1275,7 +1273,7 @@ elf_s390_check_relocs (bfd *abfd,
        }
     }
 
-  return TRUE;
+  return true;
 }
 
 /* Return the section that should be marked against GC for a given
@@ -1327,7 +1325,7 @@ elf_s390_adjust_gotplt (struct elf_s390_link_hash_entry *h)
    change the definition to something the rest of the link can
    understand.  */
 
-static bfd_boolean
+static bool
 elf_s390_adjust_dynamic_symbol (struct bfd_link_info *info,
                                struct elf_link_hash_entry *h)
 {
@@ -1373,7 +1371,7 @@ elf_s390_adjust_dynamic_symbol (struct bfd_link_info *info,
          h->plt.offset = (bfd_vma) -1;
          h->needs_plt = 0;
        }
-      return TRUE;
+      return true;
     }
 
   /* If this is a function, put it in the procedure linkage table.  We
@@ -1396,7 +1394,7 @@ elf_s390_adjust_dynamic_symbol (struct bfd_link_info *info,
          elf_s390_adjust_gotplt((struct elf_s390_link_hash_entry *) h);
        }
 
-      return TRUE;
+      return true;
     }
   else
     /* It's possible that we incorrectly decided a .plt reloc was
@@ -1417,7 +1415,7 @@ elf_s390_adjust_dynamic_symbol (struct bfd_link_info *info,
       h->root.u.def.value = def->root.u.def.value;
       if (ELIMINATE_COPY_RELOCS || info->nocopyreloc)
        h->non_got_ref = def->non_got_ref;
-      return TRUE;
+      return true;
     }
 
   /* This is a reference to a symbol defined by a dynamic object which
@@ -1428,18 +1426,18 @@ elf_s390_adjust_dynamic_symbol (struct bfd_link_info *info,
      For such cases we need not do anything here; the relocations will
      be handled correctly by relocate_section.  */
   if (bfd_link_pic (info))
-    return TRUE;
+    return true;
 
   /* If there are no references to this symbol that do not use the
      GOT, we don't need to generate a copy reloc.  */
   if (!h->non_got_ref)
-    return TRUE;
+    return true;
 
   /* If -z nocopyreloc was given, we won't generate them either.  */
   if (info->nocopyreloc)
     {
       h->non_got_ref = 0;
-      return TRUE;
+      return true;
     }
 
   /* If we don't find any dynamic relocs in read-only sections, then
@@ -1447,7 +1445,7 @@ elf_s390_adjust_dynamic_symbol (struct bfd_link_info *info,
   if (ELIMINATE_COPY_RELOCS && !_bfd_elf_readonly_dynrelocs (h))
     {
       h->non_got_ref = 0;
-      return TRUE;
+      return true;
     }
 
   /* We must allocate the symbol in our .dynbss section, which will
@@ -1462,7 +1460,7 @@ elf_s390_adjust_dynamic_symbol (struct bfd_link_info *info,
 
   htab = elf_s390_hash_table (info);
   if (htab == NULL)
-    return FALSE;
+    return false;
 
   /* We must generate a R_390_COPY reloc to tell the dynamic linker to
      copy the initial value out of the dynamic object and into the
@@ -1489,7 +1487,7 @@ elf_s390_adjust_dynamic_symbol (struct bfd_link_info *info,
 /* Allocate space in .plt, .got and associated reloc sections for
    dynamic relocs.  */
 
-static bfd_boolean
+static bool
 allocate_dynrelocs (struct elf_link_hash_entry *h,
                    void * inf)
 {
@@ -1498,12 +1496,12 @@ allocate_dynrelocs (struct elf_link_hash_entry *h,
   struct elf_dyn_relocs *p;
 
   if (h->root.type == bfd_link_hash_indirect)
-    return TRUE;
+    return true;
 
   info = (struct bfd_link_info *) inf;
   htab = elf_s390_hash_table (info);
   if (htab == NULL)
-    return FALSE;
+    return false;
 
   /* Since STT_GNU_IFUNC symbol must go through PLT, we handle it
      here if it is defined and referenced in a non-shared object.  */
@@ -1518,7 +1516,7 @@ allocate_dynrelocs (struct elf_link_hash_entry *h,
          && !h->forced_local)
        {
          if (! bfd_elf_link_record_dynamic_symbol (info, h))
-           return FALSE;
+           return false;
        }
 
       if (bfd_link_pic (info)
@@ -1591,7 +1589,7 @@ allocate_dynrelocs (struct elf_link_hash_entry *h,
   else if (h->got.refcount > 0)
     {
       asection *s;
-      bfd_boolean dyn;
+      bool dyn;
       int tls_type = elf_s390_hash_entry(h)->tls_type;
 
       /* Make sure this symbol is output as a dynamic symbol.
@@ -1600,7 +1598,7 @@ allocate_dynrelocs (struct elf_link_hash_entry *h,
          && !h->forced_local)
        {
          if (! bfd_elf_link_record_dynamic_symbol (info, h))
-           return FALSE;
+           return false;
        }
 
       s = htab->elf.sgot;
@@ -1626,7 +1624,7 @@ allocate_dynrelocs (struct elf_link_hash_entry *h,
     h->got.offset = (bfd_vma) -1;
 
   if (h->dyn_relocs == NULL)
-    return TRUE;
+    return true;
 
   /* In the shared -Bsymbolic case, discard space allocated for
      dynamic pc-relative relocs against symbols which turn out to be
@@ -1666,7 +1664,7 @@ allocate_dynrelocs (struct elf_link_hash_entry *h,
                   && !h->forced_local)
            {
              if (! bfd_elf_link_record_dynamic_symbol (info, h))
-               return FALSE;
+               return false;
            }
        }
     }
@@ -1689,7 +1687,7 @@ allocate_dynrelocs (struct elf_link_hash_entry *h,
              && !h->forced_local)
            {
              if (! bfd_elf_link_record_dynamic_symbol (info, h))
-               return FALSE;
+               return false;
            }
 
          /* If that succeeded, we know we'll be keeping all the
@@ -1710,51 +1708,24 @@ allocate_dynrelocs (struct elf_link_hash_entry *h,
       sreloc->size += p->count * sizeof (Elf64_External_Rela);
     }
 
-  return TRUE;
-}
-
-/* Set DF_TEXTREL if we find any dynamic relocs that apply to
-   read-only sections.  */
-
-static bfd_boolean
-maybe_set_textrel (struct elf_link_hash_entry *h, void *info_p)
-{
-  asection *sec;
-
-  if (h->root.type == bfd_link_hash_indirect)
-    return TRUE;
-
-  sec = _bfd_elf_readonly_dynrelocs (h);
-  if (sec != NULL)
-    {
-      struct bfd_link_info *info = (struct bfd_link_info *) info_p;
-
-      info->flags |= DF_TEXTREL;
-      info->callbacks->minfo
-       (_("%pB: dynamic relocation against `%pT' in read-only section `%pA'\n"),
-        sec->owner, h->root.root.string, sec);
-
-      /* Not an error, just cut short the traversal.  */
-      return FALSE;
-    }
-  return TRUE;
+  return true;
 }
 
 /* Set the sizes of the dynamic sections.  */
 
-static bfd_boolean
+static bool
 elf_s390_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
                                struct bfd_link_info *info)
 {
   struct elf_s390_link_hash_table *htab;
   bfd *dynobj;
   asection *s;
-  bfd_boolean relocs;
+  bool relocs;
   bfd *ibfd;
 
   htab = elf_s390_hash_table (info);
   if (htab == NULL)
-    return FALSE;
+    return false;
 
   dynobj = htab->elf.dynobj;
   if (dynobj == NULL)
@@ -1884,7 +1855,7 @@ elf_s390_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
 
   /* We now have determined the sizes of the various dynamic sections.
      Allocate memory for them.  */
-  relocs = FALSE;
+  relocs = false;
   for (s = dynobj->sections; s != NULL; s = s->next)
     {
       if ((s->flags & SEC_LINKER_CREATED) == 0)
@@ -1902,10 +1873,10 @@ elf_s390_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
          /* Strip this section if we don't need it; see the
             comment below.  */
        }
-      else if (CONST_STRNEQ (bfd_section_name (s), ".rela"))
+      else if (startswith (bfd_section_name (s), ".rela"))
        {
          if (s->size != 0 && s != htab->elf.srelplt)
-           relocs = TRUE;
+           relocs = true;
 
          /* We use the reloc_count field as a counter if we need
             to copy relocs into the output file.  */
@@ -1943,56 +1914,10 @@ elf_s390_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
         of garbage.  */
       s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->size);
       if (s->contents == NULL)
-       return FALSE;
-    }
-
-  if (htab->elf.dynamic_sections_created)
-    {
-      /* Add some entries to the .dynamic section.  We fill in the
-        values later, in elf_s390_finish_dynamic_sections, but we
-        must add the entries now so that we get the correct size for
-        the .dynamic section.  The DT_DEBUG entry is filled in by the
-        dynamic linker and used by the debugger.  */
-#define add_dynamic_entry(TAG, VAL) \
-  _bfd_elf_add_dynamic_entry (info, TAG, VAL)
-
-      if (bfd_link_executable (info))
-       {
-         if (!add_dynamic_entry (DT_DEBUG, 0))
-           return FALSE;
-       }
-
-      if (htab->elf.splt->size != 0)
-       {
-         if (!add_dynamic_entry (DT_PLTGOT, 0)
-             || !add_dynamic_entry (DT_PLTRELSZ, 0)
-             || !add_dynamic_entry (DT_PLTREL, DT_RELA)
-             || !add_dynamic_entry (DT_JMPREL, 0))
-           return FALSE;
-       }
-
-      if (relocs)
-       {
-         if (!add_dynamic_entry (DT_RELA, 0)
-             || !add_dynamic_entry (DT_RELASZ, 0)
-             || !add_dynamic_entry (DT_RELAENT, sizeof (Elf64_External_Rela)))
-           return FALSE;
-
-         /* If any dynamic relocs apply to a read-only section,
-            then we need a DT_TEXTREL entry.  */
-         if ((info->flags & DF_TEXTREL) == 0)
-           elf_link_hash_traverse (&htab->elf, maybe_set_textrel, info);
-
-         if ((info->flags & DF_TEXTREL) != 0)
-           {
-             if (!add_dynamic_entry (DT_TEXTREL, 0))
-               return FALSE;
-           }
-       }
+       return false;
     }
-#undef add_dynamic_entry
 
-  return TRUE;
+  return _bfd_elf_add_dynamic_tags (output_bfd, info, relocs);
 }
 
 /* Return the base VMA address which should be subtracted from real addresses
@@ -2045,7 +1970,7 @@ invalid_tls_insn (bfd *input_bfd,
 
 /* Relocate a 390 ELF section.  */
 
-static bfd_boolean
+static int
 elf_s390_relocate_section (bfd *output_bfd,
                           struct bfd_link_info *info,
                           bfd *input_bfd,
@@ -2065,12 +1990,12 @@ elf_s390_relocate_section (bfd *output_bfd,
   if (!is_s390_elf (input_bfd))
     {
       bfd_set_error (bfd_error_wrong_format);
-      return FALSE;
+      return false;
     }
 
   htab = elf_s390_hash_table (info);
   if (htab == NULL)
-    return FALSE;
+    return false;
 
   symtab_hdr = &elf_symtab_hdr (input_bfd);
   sym_hashes = elf_sym_hashes (input_bfd);
@@ -2088,10 +2013,10 @@ elf_s390_relocate_section (bfd *output_bfd,
       asection *sec;
       bfd_vma off;
       bfd_vma relocation;
-      bfd_boolean unresolved_reloc;
+      bool unresolved_reloc;
       bfd_reloc_status_type r;
       int tls_type;
-      bfd_boolean resolved_to_zero;
+      bool resolved_to_zero;
 
       r_type = ELF64_R_TYPE (rel->r_info);
       if (r_type == (int) R_390_GNU_VTINHERIT
@@ -2100,7 +2025,7 @@ elf_s390_relocate_section (bfd *output_bfd,
       if (r_type >= (int) R_390_max)
        {
          bfd_set_error (bfd_error_bad_value);
-         return FALSE;
+         return false;
        }
 
       howto = elf_howto_table + r_type;
@@ -2109,7 +2034,7 @@ elf_s390_relocate_section (bfd *output_bfd,
       h = NULL;
       sym = NULL;
       sec = NULL;
-      unresolved_reloc = FALSE;
+      unresolved_reloc = false;
       if (r_symndx < symtab_hdr->sh_info)
        {
          sym = local_syms + r_symndx;
@@ -2119,7 +2044,7 @@ elf_s390_relocate_section (bfd *output_bfd,
            {
              struct plt_entry *local_plt = elf_s390_local_plt (input_bfd);
              if (local_plt == NULL)
-               return FALSE;
+               return false;
 
              /* Address of the PLT slot.  */
              relocation = (htab->elf.iplt->output_section->vma
@@ -2171,8 +2096,8 @@ elf_s390_relocate_section (bfd *output_bfd,
        }
       else
        {
-         bfd_boolean warned ATTRIBUTE_UNUSED;
-         bfd_boolean ignored ATTRIBUTE_UNUSED;
+         bool warned ATTRIBUTE_UNUSED;
+         bool ignored ATTRIBUTE_UNUSED;
 
          RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
                                   r_symndx, symtab_hdr, sym_hashes,
@@ -2230,7 +2155,7 @@ elf_s390_relocate_section (bfd *output_bfd,
                }
              if (r_type == R_390_GOTPLTENT)
                relocation += s390_got_pointer (info);
-             unresolved_reloc = FALSE;
+             unresolved_reloc = false;
              break;
            }
          /* Fall through.  */
@@ -2248,7 +2173,7 @@ elf_s390_relocate_section (bfd *output_bfd,
 
          if (h != NULL)
            {
-             bfd_boolean dyn;
+             bool dyn;
 
              off = h->got.offset;
              dyn = htab->elf.dynamic_sections_created;
@@ -2331,7 +2256,7 @@ elf_s390_relocate_section (bfd *output_bfd,
                                  & 0xff00f000) == 0xe300c000
                              && bfd_get_8 (input_bfd,
                                            contents + rel->r_offset + 3) == 0x04))
-                     && (isym = bfd_sym_from_r_symndx (&htab->sym_cache,
+                     && (isym = bfd_sym_from_r_symndx (&htab->elf.sym_cache,
                                                        input_bfd, r_symndx))
                      && isym->st_shndx != SHN_ABS
                      && h != htab->elf.hdynamic
@@ -2357,7 +2282,7 @@ elf_s390_relocate_section (bfd *output_bfd,
                    }
                }
              else
-               unresolved_reloc = FALSE;
+               unresolved_reloc = false;
            }
          else
            {
@@ -2440,7 +2365,7 @@ elf_s390_relocate_section (bfd *output_bfd,
        case R_390_GOTPCDBL:
          /* Use global offset table as symbol value.  */
          relocation = s390_got_pointer (info);
-         unresolved_reloc = FALSE;
+         unresolved_reloc = false;
          break;
 
        case R_390_PLT12DBL:
@@ -2473,7 +2398,7 @@ elf_s390_relocate_section (bfd *output_bfd,
            relocation = (htab->elf.splt->output_section->vma
                          + htab->elf.splt->output_offset
                          + h->plt.offset);
-         unresolved_reloc = FALSE;
+         unresolved_reloc = false;
          break;
 
        case R_390_PLTOFF16:
@@ -2502,7 +2427,7 @@ elf_s390_relocate_section (bfd *output_bfd,
                          + htab->elf.splt->output_offset
                          + h->plt.offset
                          - s390_got_pointer (info));
-         unresolved_reloc = FALSE;
+         unresolved_reloc = false;
          break;
 
        case R_390_PC16:
@@ -2522,7 +2447,7 @@ elf_s390_relocate_section (bfd *output_bfd,
                                    "(rebuild file with -fPIC ?)"),
                                  input_bfd, h->root.root.string);
              bfd_set_error (bfd_error_bad_value);
-             return FALSE;
+             return false;
            }
          /* The target of these relocs are instruction operands
             residing in read-only sections.  We cannot emit a runtime
@@ -2633,23 +2558,23 @@ elf_s390_relocate_section (bfd *output_bfd,
                      || h->root.type == bfd_link_hash_undefined)))
            {
              Elf_Internal_Rela outrel;
-             bfd_boolean skip, relocate;
+             bool skip, relocate;
              asection *sreloc;
              bfd_byte *loc;
 
              /* When generating a shared object, these relocations
                 are copied into the output file to be resolved at run
                 time.  */
-             skip = FALSE;
-             relocate = FALSE;
+             skip = false;
+             relocate = false;
 
              outrel.r_offset =
                _bfd_elf_section_offset (output_bfd, info, input_section,
                                         rel->r_offset);
              if (outrel.r_offset == (bfd_vma) -1)
-               skip = TRUE;
+               skip = true;
              else if (outrel.r_offset == (bfd_vma) -2)
-               skip = TRUE, relocate = TRUE;
+               skip = true, relocate = true;
 
              outrel.r_offset += (input_section->output_section->vma
                                  + input_section->output_offset);
@@ -2678,7 +2603,7 @@ elf_s390_relocate_section (bfd *output_bfd,
                  outrel.r_addend = relocation + rel->r_addend;
                  if (r_type == R_390_64)
                    {
-                     relocate = TRUE;
+                     relocate = true;
                      outrel.r_info = ELF64_R_INFO (0, R_390_RELATIVE);
                    }
                  else
@@ -2690,7 +2615,7 @@ elf_s390_relocate_section (bfd *output_bfd,
                      else if (sec == NULL || sec->owner == NULL)
                        {
                          bfd_set_error(bfd_error_bad_value);
-                         return FALSE;
+                         return false;
                        }
                      else
                        {
@@ -2858,7 +2783,7 @@ elf_s390_relocate_section (bfd *output_bfd,
              relocation = htab->elf.sgot->output_offset + off;
              if (r_type == R_390_TLS_IE64 || r_type == R_390_TLS_IEENT)
                relocation += htab->elf.sgot->output_section->vma;
-             unresolved_reloc = FALSE;
+             unresolved_reloc = false;
            }
          else
            {
@@ -2896,7 +2821,7 @@ elf_s390_relocate_section (bfd *output_bfd,
          relocation = htab->elf.sgot->output_offset + off;
          if (r_type == R_390_TLS_IEENT)
            relocation += htab->elf.sgot->output_section->vma;
-         unresolved_reloc = FALSE;
+         unresolved_reloc = false;
          break;
 
        case R_390_TLS_LDM64:
@@ -2934,7 +2859,7 @@ elf_s390_relocate_section (bfd *output_bfd,
              htab->tls_ldm_got.offset |= 1;
            }
          relocation = htab->elf.sgot->output_offset + off;
-         unresolved_reloc = FALSE;
+         unresolved_reloc = false;
          break;
 
        case R_390_TLS_LE64:
@@ -3011,7 +2936,7 @@ elf_s390_relocate_section (bfd *output_bfd,
                  if (insn1 != 0x0004)
                    {
                      invalid_tls_insn (input_bfd, input_section, rel);
-                     return FALSE;
+                     return false;
                    }
                  if ((insn0 & 0xff00f000) == 0xe3000000)
                    /* lg %rx,0(%ry,0) -> sllg %rx,%ry,0  */
@@ -3028,7 +2953,7 @@ elf_s390_relocate_section (bfd *output_bfd,
                  else
                    {
                      invalid_tls_insn (input_bfd, input_section, rel);
-                     return FALSE;
+                     return false;
                    }
                  insn0 = 0xeb000000 | (insn0 & 0x00f00000) | ry;
                  insn1 = 0x000d;
@@ -3045,7 +2970,7 @@ elf_s390_relocate_section (bfd *output_bfd,
              if ((insn0 & 0xffff0000) != 0xc0e50000)
                {
                  invalid_tls_insn (input_bfd, input_section, rel);
-                 return FALSE;
+                 return false;
                }
              if (!bfd_link_pic (info) && (h == NULL || h->dynindx == -1))
                {
@@ -3075,7 +3000,7 @@ elf_s390_relocate_section (bfd *output_bfd,
                  if ((insn0 & 0xffff0000) != 0xc0e50000)
                    {
                      invalid_tls_insn (input_bfd, input_section, rel);
-                     return FALSE;
+                     return false;
                    }
                  /* LD->LE transition.
                     brasl %r14,__tls_get_addr@plt -> brcl 0,. */
@@ -3146,7 +3071,7 @@ elf_s390_relocate_section (bfd *output_bfd,
                                                      symtab_hdr->sh_link,
                                                      sym->st_name);
              if (name == NULL)
-               return FALSE;
+               return false;
              if (*name == '\0')
                name = bfd_section_name (sec);
            }
@@ -3162,12 +3087,12 @@ elf_s390_relocate_section (bfd *output_bfd,
                (_("%pB(%pA+%#" PRIx64 "): reloc against `%s': error %d"),
                 input_bfd, input_section,
                 (uint64_t) rel->r_offset, name, (int) r);
-             return FALSE;
+             return false;
            }
        }
     }
 
-  return TRUE;
+  return true;
 }
 
 /* Generate the PLT slots together with the dynamic relocations needed
@@ -3259,7 +3184,7 @@ elf_s390_finish_ifunc_symbol (bfd *output_bfd,
 /* Finish up dynamic symbol handling.  We set the contents of various
    dynamic sections here.  */
 
-static bfd_boolean
+static bool
 elf_s390_finish_dynamic_symbol (bfd *output_bfd,
                                struct bfd_link_info *info,
                                struct elf_link_hash_entry *h,
@@ -3270,7 +3195,7 @@ elf_s390_finish_dynamic_symbol (bfd *output_bfd,
 
   htab = elf_s390_hash_table (info);
   if (htab == NULL)
-    return FALSE;
+    return false;
 
   if (h->plt.offset != (bfd_vma) -1)
     {
@@ -3402,14 +3327,14 @@ elf_s390_finish_dynamic_symbol (bfd *output_bfd,
                                       + htab->elf.iplt->output_offset
                                       + h->plt.offset),
                          htab->elf.sgot->contents + h->got.offset);
-             return TRUE;
+             return true;
            }
        }
       else if (bfd_link_pic (info)
               && SYMBOL_REFERENCES_LOCAL (info, h))
        {
          if (UNDEFWEAK_NO_DYNAMIC_RELOC (info, h))
-           return TRUE;
+           return true;
 
          /* If this is a static link, or it is a -Bsymbolic link and
             the symbol is defined locally or was forced to be local
@@ -3418,7 +3343,7 @@ elf_s390_finish_dynamic_symbol (bfd *output_bfd,
             will already have been initialized in the
             relocate_section function.  */
          if (!(h->def_regular || ELF_COMMON_DEF_P (h)))
-           return FALSE;
+           return false;
          BFD_ASSERT((h->got.offset & 1) != 0);
          rela.r_info = ELF64_R_INFO (0, R_390_RELATIVE);
          rela.r_addend = (h->root.u.def.value
@@ -3472,7 +3397,7 @@ elf_s390_finish_dynamic_symbol (bfd *output_bfd,
       || h == htab->elf.hplt)
     sym->st_shndx = SHN_ABS;
 
-  return TRUE;
+  return true;
 }
 
 /* Used to decide how to sort relocs in an optimal manner for the
@@ -3515,7 +3440,7 @@ elf_s390_reloc_type_class (const struct bfd_link_info *info ATTRIBUTE_UNUSED,
 
 /* Finish up the dynamic sections.  */
 
-static bfd_boolean
+static bool
 elf_s390_finish_dynamic_sections (bfd *output_bfd,
                                  struct bfd_link_info *info)
 {
@@ -3527,7 +3452,7 @@ elf_s390_finish_dynamic_sections (bfd *output_bfd,
 
   htab = elf_s390_hash_table (info);
   if (htab == NULL)
-    return FALSE;
+    return false;
 
   dynobj = htab->elf.dynobj;
   sdyn = bfd_get_linker_section (dynobj, ".dynamic");
@@ -3622,8 +3547,9 @@ elf_s390_finish_dynamic_sections (bfd *output_bfd,
          bfd_put_64 (output_bfd, (bfd_vma) 0,
                      htab->elf.hgot->root.u.def.section->contents + 16);
        }
-      elf_section_data (htab->elf.sgot->output_section)
-       ->this_hdr.sh_entsize = 8;
+      if (htab->elf.sgot != NULL && htab->elf.sgot->size > 0)
+       elf_section_data (htab->elf.sgot->output_section)
+         ->this_hdr.sh_entsize = 8;
     }
 
   /* Finish dynamic symbol for local IFUNC symbols.  */
@@ -3645,9 +3571,9 @@ elf_s390_finish_dynamic_sections (bfd *output_bfd,
            if (local_plt[i].plt.offset != (bfd_vma) -1)
              {
                asection *sec = local_plt[i].sec;
-               isym = bfd_sym_from_r_symndx (&htab->sym_cache, ibfd, i);
+               isym = bfd_sym_from_r_symndx (&htab->elf.sym_cache, ibfd, i);
                if (isym == NULL)
-                 return FALSE;
+                 return false;
 
                if (ELF_ST_TYPE (isym->st_info) == STT_GNU_IFUNC)
                  elf_s390_finish_ifunc_symbol (output_bfd, info, NULL, htab,
@@ -3660,12 +3586,12 @@ elf_s390_finish_dynamic_sections (bfd *output_bfd,
          }
     }
 
-  return TRUE;
+  return true;
 }
 \f
 /* Support for core dump NOTE sections.  */
 
-static bfd_boolean
+static bool
 elf_s390_grok_prstatus (bfd *abfd, Elf_Internal_Note *note)
 {
   int offset;
@@ -3674,7 +3600,7 @@ elf_s390_grok_prstatus (bfd *abfd, Elf_Internal_Note *note)
   switch (note->descsz)
     {
     default:
-      return FALSE;
+      return false;
 
     case 336:                  /* sizeof(struct elf_prstatus) on s390x */
       /* pr_cursig */
@@ -3694,13 +3620,13 @@ elf_s390_grok_prstatus (bfd *abfd, Elf_Internal_Note *note)
                                          size, note->descpos + offset);
 }
 
-static bfd_boolean
+static bool
 elf_s390_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
 {
   switch (note->descsz)
     {
     default:
-      return FALSE;
+      return false;
 
     case 136:                  /* sizeof(struct elf_prpsinfo) on s390x */
       elf_tdata (abfd)->core->pid
@@ -3723,7 +3649,7 @@ elf_s390_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
       command[n - 1] = '\0';
   }
 
-  return TRUE;
+  return true;
 }
 
 static char *
@@ -3800,11 +3726,11 @@ elf_s390_plt_sym_val (bfd_vma i, const asection *plt,
 /* Merge backend specific data from an object file to the output
    object file when linking.  */
 
-static bfd_boolean
+static bool
 elf64_s390_merge_private_bfd_data (bfd *ibfd, struct bfd_link_info *info)
 {
   if (!is_s390_elf (ibfd) || !is_s390_elf (info->output_bfd))
-    return TRUE;
+    return true;
 
   return elf_s390_merge_obj_attributes (ibfd, info);
 }
@@ -3829,18 +3755,18 @@ elf_s390_additional_program_headers (bfd *abfd ATTRIBUTE_UNUSED,
 
 /* Add the PT_S390_PGSTE program header.  */
 
-static bfd_boolean
+static bool
 elf_s390_modify_segment_map (bfd *abfd, struct bfd_link_info *info)
 {
   struct elf_s390_link_hash_table *htab;
   struct elf_segment_map *m, *pm = NULL;
 
   if (!abfd || !info)
-    return TRUE;
+    return true;
 
   htab = elf_s390_hash_table (info);
   if (!htab || !htab->params->pgste)
-    return TRUE;
+    return true;
 
   /* If there is already a PT_S390_PGSTE header, avoid adding
      another.  */
@@ -3852,22 +3778,22 @@ elf_s390_modify_segment_map (bfd *abfd, struct bfd_link_info *info)
     }
 
   if (m)
-    return TRUE;
+    return true;
 
   m = (struct elf_segment_map *)
     bfd_zalloc (abfd, sizeof (struct elf_segment_map));
   if (m == NULL)
-    return FALSE;
+    return false;
   m->p_type = PT_S390_PGSTE;
   m->count = 0;
   m->next = NULL;
   if (pm)
     pm->next = m;
 
-  return TRUE;
+  return true;
 }
 
-bfd_boolean
+bool
 bfd_elf_s390_set_options (struct bfd_link_info *info,
                          struct s390_elf_params *params)
 {
@@ -3880,7 +3806,7 @@ bfd_elf_s390_set_options (struct bfd_link_info *info,
        htab->params = params;
     }
 
-  return TRUE;
+  return true;
 }
 
 
This page took 0.048643 seconds and 4 git commands to generate.