aboutsummaryrefslogtreecommitdiff
path: root/bfd/vms-alpha.c
diff options
context:
space:
mode:
authorAlan Modra <amodra@gmail.com>2021-03-31 10:30:54 +1030
committerAlan Modra <amodra@gmail.com>2021-03-31 10:49:23 +1030
commit0a1b45a20eaa98d4d9026dc1fd17e79e741183af (patch)
tree059b2b296b4d60784a82cd6a52dae47dcac4d66a /bfd/vms-alpha.c
parentfaa7a26040c617a6d29f601998b99a1da882c672 (diff)
downloadgdb-0a1b45a20eaa98d4d9026dc1fd17e79e741183af.zip
gdb-0a1b45a20eaa98d4d9026dc1fd17e79e741183af.tar.gz
gdb-0a1b45a20eaa98d4d9026dc1fd17e79e741183af.tar.bz2
Use bool in bfd
* sysdep.h: POISON_BFD_BOOLEAN: Define. * aix5ppc-core.c, * aout-cris.c, * aout-ns32k.c, * aout-target.h, * aoutx.h, * arc-got.h, * archive.c, * archive64.c, * archures.c, * bfd-in.h, * bfd.c, * bfdwin.c, * binary.c, * cache.c, * coff-alpha.c, * coff-arm.c, * coff-arm.h, * coff-bfd.c, * coff-bfd.h, * coff-go32.c, * coff-i386.c, * coff-ia64.c, * coff-mcore.c, * coff-mips.c, * coff-rs6000.c, * coff-sh.c, * coff-stgo32.c, * coff-tic30.c, * coff-tic4x.c, * coff-tic54x.c, * coff-x86_64.c, * coff-z80.c, * coff-z8k.c, * coff64-rs6000.c, * coffcode.h, * coffgen.c, * cofflink.c, * compress.c, * corefile.c, * cpu-aarch64.c, * cpu-aarch64.h, * cpu-alpha.c, * cpu-arc.c, * cpu-arm.c, * cpu-arm.h, * cpu-avr.c, * cpu-bfin.c, * cpu-bpf.c, * cpu-cr16.c, * cpu-cris.c, * cpu-crx.c, * cpu-csky.c, * cpu-d10v.c, * cpu-d30v.c, * cpu-dlx.c, * cpu-epiphany.c, * cpu-fr30.c, * cpu-frv.c, * cpu-ft32.c, * cpu-h8300.c, * cpu-hppa.c, * cpu-i386.c, * cpu-ia64.c, * cpu-iamcu.c, * cpu-ip2k.c, * cpu-iq2000.c, * cpu-k1om.c, * cpu-l1om.c, * cpu-lm32.c, * cpu-m10200.c, * cpu-m10300.c, * cpu-m32c.c, * cpu-m32r.c, * cpu-m68hc11.c, * cpu-m68hc12.c, * cpu-m68k.c, * cpu-m9s12x.c, * cpu-m9s12xg.c, * cpu-mcore.c, * cpu-mep.c, * cpu-metag.c, * cpu-microblaze.c, * cpu-mips.c, * cpu-mmix.c, * cpu-moxie.c, * cpu-msp430.c, * cpu-mt.c, * cpu-nds32.c, * cpu-nfp.c, * cpu-nios2.c, * cpu-ns32k.c, * cpu-or1k.c, * cpu-pdp11.c, * cpu-pj.c, * cpu-powerpc.c, * cpu-pru.c, * cpu-riscv.c, * cpu-rl78.c, * cpu-rs6000.c, * cpu-rx.c, * cpu-s12z.c, * cpu-s390.c, * cpu-score.c, * cpu-sh.c, * cpu-sparc.c, * cpu-spu.c, * cpu-tic30.c, * cpu-tic4x.c, * cpu-tic54x.c, * cpu-tic6x.c, * cpu-tilegx.c, * cpu-tilepro.c, * cpu-v850.c, * cpu-v850_rh850.c, * cpu-vax.c, * cpu-visium.c, * cpu-wasm32.c, * cpu-xc16x.c, * cpu-xgate.c, * cpu-xstormy16.c, * cpu-xtensa.c, * cpu-z80.c, * cpu-z8k.c, * dwarf1.c, * dwarf2.c, * ecoff-bfd.h, * ecoff.c, * ecofflink.c, * elf-attrs.c, * elf-bfd.h, * elf-eh-frame.c, * elf-hppa.h, * elf-ifunc.c, * elf-m10200.c, * elf-m10300.c, * elf-nacl.c, * elf-nacl.h, * elf-properties.c, * elf-s390-common.c, * elf-s390.h, * elf-strtab.c, * elf-vxworks.c, * elf-vxworks.h, * elf.c, * elf32-am33lin.c, * elf32-arc.c, * elf32-arm.c, * elf32-arm.h, * elf32-avr.c, * elf32-avr.h, * elf32-bfin.c, * elf32-bfin.h, * elf32-cr16.c, * elf32-cr16.h, * elf32-cris.c, * elf32-crx.c, * elf32-csky.c, * elf32-csky.h, * elf32-d10v.c, * elf32-d30v.c, * elf32-dlx.c, * elf32-epiphany.c, * elf32-fr30.c, * elf32-frv.c, * elf32-ft32.c, * elf32-gen.c, * elf32-h8300.c, * elf32-hppa.c, * elf32-hppa.h, * elf32-i386.c, * elf32-ip2k.c, * elf32-iq2000.c, * elf32-lm32.c, * elf32-m32c.c, * elf32-m32r.c, * elf32-m68hc11.c, * elf32-m68hc12.c, * elf32-m68hc1x.c, * elf32-m68hc1x.h, * elf32-m68k.c, * elf32-m68k.h, * elf32-mcore.c, * elf32-mep.c, * elf32-metag.c, * elf32-metag.h, * elf32-microblaze.c, * elf32-mips.c, * elf32-moxie.c, * elf32-msp430.c, * elf32-mt.c, * elf32-nds32.c, * elf32-nios2.c, * elf32-nios2.h, * elf32-or1k.c, * elf32-pj.c, * elf32-ppc.c, * elf32-ppc.h, * elf32-pru.c, * elf32-rl78.c, * elf32-rx.c, * elf32-s12z.c, * elf32-s390.c, * elf32-score.c, * elf32-score.h, * elf32-score7.c, * elf32-sh-relocs.h, * elf32-sh.c, * elf32-sparc.c, * elf32-spu.c, * elf32-spu.h, * elf32-tic6x.c, * elf32-tic6x.h, * elf32-tilegx.c, * elf32-tilepro.c, * elf32-v850.c, * elf32-v850.h, * elf32-vax.c, * elf32-visium.c, * elf32-wasm32.c, * elf32-xc16x.c, * elf32-xgate.c, * elf32-xstormy16.c, * elf32-xtensa.c, * elf32-z80.c, * elf64-alpha.c, * elf64-bpf.c, * elf64-gen.c, * elf64-hppa.c, * elf64-ia64-vms.c, * elf64-mips.c, * elf64-mmix.c, * elf64-nfp.c, * elf64-ppc.c, * elf64-ppc.h, * elf64-s390.c, * elf64-sparc.c, * elf64-tilegx.c, * elf64-x86-64.c, * elfcode.h, * elfcore.h, * elflink.c, * elfn32-mips.c, * elfnn-aarch64.c, * elfnn-ia64.c, * elfnn-riscv.c, * elfxx-aarch64.c, * elfxx-aarch64.h, * elfxx-ia64.c, * elfxx-ia64.h, * elfxx-mips.c, * elfxx-mips.h, * elfxx-riscv.c, * elfxx-riscv.h, * elfxx-sparc.c, * elfxx-sparc.h, * elfxx-target.h, * elfxx-tilegx.c, * elfxx-tilegx.h, * elfxx-x86.c, * elfxx-x86.h, * format.c, * genlink.h, * hash.c, * i386aout.c, * i386lynx.c, * i386msdos.c, * ihex.c, * libaout.h, * libbfd-in.h, * libbfd.c, * libcoff-in.h, * libecoff.h, * libpei.h, * libxcoff.h, * linker.c, * mach-o-aarch64.c, * mach-o-arm.c, * mach-o-i386.c, * mach-o-x86-64.c, * mach-o.c, * mach-o.h, * merge.c, * mmo.c, * netbsd.h, * opncls.c, * pc532-mach.c, * pdp11.c, * pe-arm.c, * pe-i386.c, * pe-mcore.c, * pe-sh.c, * pe-x86_64.c, * peXXigen.c, * pef.c, * pei-arm.c, * pei-i386.c, * pei-ia64.c, * pei-mcore.c, * pei-sh.c, * pei-x86_64.c, * peicode.h, * plugin.c, * plugin.h, * ppcboot.c, * reloc.c, * reloc16.c, * rs6000-core.c, * section.c, * simple.c, * som.c, * som.h, * srec.c, * stabs.c, * syms.c, * targets.c, * tekhex.c, * verilog.c, * vms-alpha.c, * vms-lib.c, * vms-misc.c, * vms.h, * wasm-module.c, * xcofflink.c, * xcofflink.h, * xsym.c, * xsym.h: Replace bfd_boolean with bool, FALSE with false, and TRUE with true throughout. * bfd-in2.h: Regenerate. * libbfd.h: Regenerate. * libcoff.h: Regenerate.
Diffstat (limited to 'bfd/vms-alpha.c')
-rw-r--r--bfd/vms-alpha.c822
1 files changed, 410 insertions, 412 deletions
diff --git a/bfd/vms-alpha.c b/bfd/vms-alpha.c
index 94001cc..41cc944 100644
--- a/bfd/vms-alpha.c
+++ b/bfd/vms-alpha.c
@@ -155,7 +155,7 @@ struct eom_struct
{
unsigned int eom_l_total_lps;
unsigned short eom_w_comcod;
- bfd_boolean eom_has_transfer;
+ bool eom_has_transfer;
unsigned char eom_b_tfrflg;
unsigned int eom_l_psindx;
unsigned int eom_l_tfradr;
@@ -267,7 +267,7 @@ struct module
struct vms_private_data_struct
{
/* If true, relocs have been read. */
- bfd_boolean reloc_done;
+ bool reloc_done;
/* Record input buffer. */
struct vms_rec_rd recrd;
@@ -371,17 +371,15 @@ struct vms_section_data_struct
struct vms_private_data_struct *bfd_vms_get_data (bfd *);
static int vms_get_remaining_object_record (bfd *, unsigned int);
-static bfd_boolean _bfd_vms_slurp_object_records (bfd * abfd);
-static bfd_boolean alpha_vms_add_fixup_lp (struct bfd_link_info *,
- bfd *, bfd *);
-static bfd_boolean alpha_vms_add_fixup_ca (struct bfd_link_info *,
- bfd *, bfd *);
-static bfd_boolean alpha_vms_add_fixup_qr (struct bfd_link_info *,
- bfd *, bfd *, bfd_vma);
-static bfd_boolean alpha_vms_add_fixup_lr (struct bfd_link_info *,
- unsigned int, bfd_vma);
-static bfd_boolean alpha_vms_add_lw_reloc (struct bfd_link_info *);
-static bfd_boolean alpha_vms_add_qw_reloc (struct bfd_link_info *);
+static bool _bfd_vms_slurp_object_records (bfd * abfd);
+static bool alpha_vms_add_fixup_lp (struct bfd_link_info *, bfd *, bfd *);
+static bool alpha_vms_add_fixup_ca (struct bfd_link_info *, bfd *, bfd *);
+static bool alpha_vms_add_fixup_qr (struct bfd_link_info *, bfd *, bfd *,
+ bfd_vma);
+static bool alpha_vms_add_fixup_lr (struct bfd_link_info *, unsigned int,
+ bfd_vma);
+static bool alpha_vms_add_lw_reloc (struct bfd_link_info *);
+static bool alpha_vms_add_qw_reloc (struct bfd_link_info *);
struct vector_type
{
@@ -423,7 +421,7 @@ struct alpha_vms_vma_ref
struct alpha_vms_shlib_el
{
bfd *abfd;
- bfd_boolean has_fixups;
+ bool has_fixups;
struct vector_type lp; /* Vector of bfd_vma. */
struct vector_type ca; /* Vector of bfd_vma. */
@@ -464,7 +462,7 @@ struct alpha_vms_link_hash_entry
/* Read & process EIHD record.
Return TRUE on success, FALSE on error. */
-static bfd_boolean
+static bool
_bfd_vms_slurp_eihd (bfd *abfd, unsigned int *eisd_offset,
unsigned int *eihs_offset)
{
@@ -479,7 +477,7 @@ _bfd_vms_slurp_eihd (bfd *abfd, unsigned int *eisd_offset,
{
_bfd_error_handler (_("corrupt EIHD record - size is too small"));
bfd_set_error (bfd_error_bad_value);
- return FALSE;
+ return false;
}
size = bfd_getl32 (eihd->size);
@@ -506,13 +504,13 @@ _bfd_vms_slurp_eihd (bfd *abfd, unsigned int *eisd_offset,
*eisd_offset, *eihs_offset));
(void) size;
- return TRUE;
+ return true;
}
/* Read & process EISD record.
Return TRUE on success, FALSE on error. */
-static bfd_boolean
+static bool
_bfd_vms_slurp_eisd (bfd *abfd, unsigned int offset)
{
int section_count = 0;
@@ -535,7 +533,7 @@ _bfd_vms_slurp_eisd (bfd *abfd, unsigned int offset)
if (offset > PRIV (recrd.rec_size)
|| (PRIV (recrd.rec_size) - offset
< offsetof (struct vms_eisd, eisdsize) + 4))
- return FALSE;
+ return false;
eisd = (struct vms_eisd *) (PRIV (recrd.rec) + offset);
rec_size = bfd_getl32 (eisd->eisdsize);
if (rec_size == 0)
@@ -550,10 +548,10 @@ _bfd_vms_slurp_eisd (bfd *abfd, unsigned int offset)
/* Make sure that there is enough data present in the record. */
if (rec_size < offsetof (struct vms_eisd, type) + 1)
- return FALSE;
+ return false;
/* Make sure that the record is not too big either. */
if (rec_size > PRIV (recrd.rec_size) - offset)
- return FALSE;
+ return false;
offset += rec_size;
@@ -594,7 +592,7 @@ _bfd_vms_slurp_eisd (bfd *abfd, unsigned int offset)
if (flags & EISD__M_GBL)
{
if (rec_size <= offsetof (struct vms_eisd, gblnam))
- return FALSE;
+ return false;
else if (rec_size < sizeof (struct vms_eisd))
name = _bfd_vms_save_counted_string (abfd, eisd->gblnam,
rec_size - offsetof (struct vms_eisd, gblnam));
@@ -602,7 +600,7 @@ _bfd_vms_slurp_eisd (bfd *abfd, unsigned int offset)
name = _bfd_vms_save_counted_string (abfd, eisd->gblnam,
EISD__K_GBLNAMLEN);
if (name == NULL || name[0] == 0)
- return FALSE;
+ return false;
bfd_flags |= SEC_COFF_SHARED_LIBRARY;
bfd_flags &= ~(SEC_ALLOC | SEC_LOAD);
}
@@ -616,7 +614,7 @@ _bfd_vms_slurp_eisd (bfd *abfd, unsigned int offset)
name = (char *) bfd_alloc (abfd, 32);
if (name == NULL)
- return FALSE;
+ return false;
if (flags & EISD__M_DZRO)
pfx = "BSS";
else if (flags & EISD__M_EXE)
@@ -632,23 +630,23 @@ _bfd_vms_slurp_eisd (bfd *abfd, unsigned int offset)
section = bfd_make_section (abfd, name);
if (!section)
- return FALSE;
+ return false;
section->filepos = vbn ? VMS_BLOCK_SIZE * (vbn - 1) : 0;
section->size = size;
section->vma = vaddr;
if (!bfd_set_section_flags (section, bfd_flags))
- return FALSE;
+ return false;
}
- return TRUE;
+ return true;
}
/* Read & process EIHS record.
Return TRUE on success, FALSE on error. */
-static bfd_boolean
+static bool
_bfd_vms_slurp_eihs (bfd *abfd, unsigned int offset)
{
unsigned char *p = PRIV (recrd.rec) + offset;
@@ -666,7 +664,7 @@ _bfd_vms_slurp_eihs (bfd *abfd, unsigned int offset)
_bfd_error_handler (_("unable to read EIHS record at offset %#x"),
offset);
bfd_set_error (bfd_error_file_truncated);
- return FALSE;
+ return false;
}
gstvbn = bfd_getl32 (p + EIHS__L_GSTVBN);
@@ -688,13 +686,13 @@ _bfd_vms_slurp_eihs (bfd *abfd, unsigned int offset)
section = bfd_make_section (abfd, "$DST$");
if (!section)
- return FALSE;
+ return false;
section->size = dstsize;
section->filepos = VMS_BLOCK_SIZE * (dstvbn - 1);
if (!bfd_set_section_flags (section, bfd_flags))
- return FALSE;
+ return false;
PRIV (dst_section) = section;
abfd->flags |= (HAS_DEBUG | HAS_LINENO);
@@ -706,13 +704,13 @@ _bfd_vms_slurp_eihs (bfd *abfd, unsigned int offset)
section = bfd_make_section (abfd, "$DMT$");
if (!section)
- return FALSE;
+ return false;
section->size = dmtbytes;
section->filepos = VMS_BLOCK_SIZE * (dmtvbn - 1);
if (!bfd_set_section_flags (section, bfd_flags))
- return FALSE;
+ return false;
}
if (gstvbn)
@@ -720,16 +718,16 @@ _bfd_vms_slurp_eihs (bfd *abfd, unsigned int offset)
if (bfd_seek (abfd, VMS_BLOCK_SIZE * (gstvbn - 1), SEEK_SET))
{
bfd_set_error (bfd_error_file_truncated);
- return FALSE;
+ return false;
}
if (!_bfd_vms_slurp_object_records (abfd))
- return FALSE;
+ return false;
abfd->flags |= HAS_SYMS;
}
- return TRUE;
+ return true;
}
/* Object file reading. */
@@ -900,7 +898,7 @@ vms_get_remaining_object_record (bfd *abfd, unsigned int read_so_far)
/* Read and process emh record.
Return TRUE on success, FALSE on error. */
-static bfd_boolean
+static bool
_bfd_vms_slurp_ehdr (bfd *abfd)
{
unsigned char *ptr;
@@ -973,10 +971,10 @@ _bfd_vms_slurp_ehdr (bfd *abfd)
default:
fail:
bfd_set_error (bfd_error_wrong_format);
- return FALSE;
+ return false;
}
- return TRUE;
+ return true;
}
/* Typical sections for evax object files. */
@@ -1116,7 +1114,7 @@ vms_esecflag_by_name (const struct sec_flags_struct *section_flags,
/* Add SYM to the symbol table of ABFD.
Return FALSE in case of error. */
-static bfd_boolean
+static bool
add_symbol_entry (bfd *abfd, struct vms_symbol_entry *sym)
{
if (PRIV (gsd_sym_count) >= PRIV (max_sym_count))
@@ -1135,11 +1133,11 @@ add_symbol_entry (bfd *abfd, struct vms_symbol_entry *sym)
(PRIV (max_sym_count) * sizeof (struct vms_symbol_entry *)));
}
if (PRIV (syms) == NULL)
- return FALSE;
+ return false;
}
PRIV (syms)[PRIV (gsd_sym_count)++] = sym;
- return TRUE;
+ return true;
}
/* Create a symbol whose name is ASCIC and add it to ABFD.
@@ -1175,7 +1173,7 @@ add_symbol (bfd *abfd, const unsigned char *ascic, unsigned int max)
/* Read and process EGSD. Return FALSE on failure. */
-static bfd_boolean
+static bool
_bfd_vms_slurp_egsd (bfd *abfd)
{
int gsd_type;
@@ -1191,7 +1189,7 @@ _bfd_vms_slurp_egsd (bfd *abfd)
_bfd_error_handler (_("corrupt EGSD record: its size (%#x) is too small"),
PRIV (recrd.rec_size));
bfd_set_error (bfd_error_bad_value);
- return FALSE;
+ return false;
}
PRIV (recrd.rec) += 8; /* Skip type, size, align pad. */
@@ -1216,7 +1214,7 @@ _bfd_vms_slurp_egsd (bfd *abfd)
"is larger than remaining space (%#x)"),
gsd_type, gsd_size, PRIV (recrd.rec_size));
bfd_set_error (bfd_error_bad_value);
- return FALSE;
+ return false;
}
if (gsd_size < 4)
@@ -1226,7 +1224,7 @@ _bfd_vms_slurp_egsd (bfd *abfd)
"is too small"),
gsd_type, gsd_size);
bfd_set_error (bfd_error_bad_value);
- return FALSE;
+ return false;
}
switch (gsd_type)
@@ -1259,11 +1257,11 @@ _bfd_vms_slurp_egsd (bfd *abfd)
left = gsd_size - offsetof (struct vms_egps, namlng);
name = _bfd_vms_save_counted_string (abfd, &egps->namlng, left);
if (name == NULL || name[0] == 0)
- return FALSE;
+ return false;
section = bfd_make_section (abfd, name);
if (!section)
- return FALSE;
+ return false;
section->filepos = 0;
section->size = bfd_getl32 (egps->alloc);
@@ -1292,7 +1290,7 @@ _bfd_vms_slurp_egsd (bfd *abfd)
new_flags &= ~SEC_DATA;
}
if (!bfd_set_section_flags (section, new_flags))
- return FALSE;
+ return false;
/* Give a non-overlapping vma to non absolute sections. */
align_addr = (bfd_vma) 1 << section->alignment_power;
@@ -1311,7 +1309,7 @@ _bfd_vms_slurp_egsd (bfd *abfd)
PRIV (sections) = bfd_realloc_or_free
(PRIV (sections), PRIV (section_max) * sizeof (asection *));
if (PRIV (sections) == NULL)
- return FALSE;
+ return false;
}
PRIV (sections)[PRIV (section_count)] = section;
@@ -1338,7 +1336,7 @@ _bfd_vms_slurp_egsd (bfd *abfd)
goto too_small;
entry = add_symbol (abfd, vms_rec + nameoff, gsd_size - nameoff);
if (entry == NULL)
- return FALSE;
+ return false;
/* Allow only duplicate reference. */
if ((entry->flags & EGSY__V_DEF) && (old_flags & EGSY__V_DEF))
@@ -1357,7 +1355,7 @@ _bfd_vms_slurp_egsd (bfd *abfd)
entry->value = bfd_getl64 (esdf->value);
if (PRIV (sections) == NULL)
- return FALSE;
+ return false;
psindx = bfd_getl32 (esdf->psindx);
/* PR 21813: Check for an out of range index. */
@@ -1368,7 +1366,7 @@ _bfd_vms_slurp_egsd (bfd *abfd)
"field is too big (%#lx)"),
psindx);
bfd_set_error (bfd_error_bad_value);
- return FALSE;
+ return false;
}
entry->section = PRIV (sections)[psindx];
@@ -1398,7 +1396,7 @@ _bfd_vms_slurp_egsd (bfd *abfd)
goto too_small;
entry = add_symbol (abfd, &egst->namlng, gsd_size - nameoff);
if (entry == NULL)
- return FALSE;
+ return false;
old_flags = bfd_getl16 (egst->header.flags);
entry->typ = gsd_type;
@@ -1410,7 +1408,7 @@ _bfd_vms_slurp_egsd (bfd *abfd)
if (old_flags & EGSY__V_REL)
{
if (PRIV (sections) == NULL)
- return FALSE;
+ return false;
psindx = bfd_getl32 (egst->psindx);
/* PR 21813: Check for an out of range index. */
if (psindx < 0 || psindx >= (int) PRIV (section_count))
@@ -1441,7 +1439,7 @@ _bfd_vms_slurp_egsd (bfd *abfd)
default:
_bfd_error_handler (_("unknown EGSD subtype %d"), gsd_type);
bfd_set_error (bfd_error_bad_value);
- return FALSE;
+ return false;
}
PRIV (recrd.rec_size) -= gsd_size;
@@ -1453,14 +1451,14 @@ _bfd_vms_slurp_egsd (bfd *abfd)
if (PRIV (gsd_sym_count) > 0)
abfd->flags |= HAS_SYMS;
- return TRUE;
+ return true;
}
/* Stack routines for vms ETIR commands. */
/* Push value and section index. */
-static bfd_boolean
+static bool
_bfd_vms_push (bfd *abfd, bfd_vma val, unsigned int reloc)
{
vms_debug2 ((4, "<push %08lx (0x%08x) at %d>\n",
@@ -1473,28 +1471,28 @@ _bfd_vms_push (bfd *abfd, bfd_vma val, unsigned int reloc)
{
bfd_set_error (bfd_error_bad_value);
_bfd_error_handler (_("stack overflow (%d) in _bfd_vms_push"), PRIV (stackptr));
- return FALSE;
+ return false;
}
- return TRUE;
+ return true;
}
/* Pop value and section index. */
-static bfd_boolean
+static bool
_bfd_vms_pop (bfd *abfd, bfd_vma *val, unsigned int *rel)
{
if (PRIV (stackptr) == 0)
{
bfd_set_error (bfd_error_bad_value);
_bfd_error_handler (_("stack underflow in _bfd_vms_pop"));
- return FALSE;
+ return false;
}
PRIV (stackptr)--;
*val = PRIV (stack[PRIV (stackptr)]).value;
*rel = PRIV (stack[PRIV (stackptr)]).reloc;
vms_debug2 ((4, "<pop %08lx (0x%08x)>\n", (unsigned long)*val, *rel));
- return TRUE;
+ return true;
}
/* Routines to fill sections contents during tir/etir read. */
@@ -1551,7 +1549,7 @@ image_inc_ptr (bfd *abfd, bfd_vma offset)
/* Save current DST location counter under specified index. */
-static bfd_boolean
+static bool
dst_define_location (bfd *abfd, unsigned int loc)
{
vms_debug2 ((4, "dst_define_location (%d)\n", (int)loc));
@@ -1561,7 +1559,7 @@ dst_define_location (bfd *abfd, unsigned int loc)
/* 16M entries ought to be plenty. */
bfd_set_error (bfd_error_bad_value);
_bfd_error_handler (_("dst_define_location %u too large"), loc);
- return FALSE;
+ return false;
}
/* Grow the ptr offset table if necessary. */
@@ -1571,17 +1569,17 @@ dst_define_location (bfd *abfd, unsigned int loc)
= bfd_realloc_or_free (PRIV (dst_ptr_offsets),
(loc + 1) * sizeof (unsigned int));
if (PRIV (dst_ptr_offsets) == NULL)
- return FALSE;
+ return false;
PRIV (dst_ptr_offsets_count) = loc + 1;
}
PRIV (dst_ptr_offsets)[loc] = PRIV (image_offset);
- return TRUE;
+ return true;
}
/* Restore saved DST location counter from specified index. */
-static bfd_boolean
+static bool
dst_restore_location (bfd *abfd, unsigned int loc)
{
vms_debug2 ((4, "dst_restore_location (%d)\n", (int)loc));
@@ -1589,14 +1587,14 @@ dst_restore_location (bfd *abfd, unsigned int loc)
if (loc < PRIV (dst_ptr_offsets_count))
{
PRIV (image_offset) = PRIV (dst_ptr_offsets)[loc];
- return TRUE;
+ return true;
}
- return FALSE;
+ return false;
}
/* Retrieve saved DST location counter from specified index. */
-static bfd_boolean
+static bool
dst_retrieve_location (bfd *abfd, bfd_vma *loc)
{
vms_debug2 ((4, "dst_retrieve_location (%d)\n", (int) *loc));
@@ -1604,14 +1602,14 @@ dst_retrieve_location (bfd *abfd, bfd_vma *loc)
if (*loc < PRIV (dst_ptr_offsets_count))
{
*loc = PRIV (dst_ptr_offsets)[*loc];
- return TRUE;
+ return true;
}
- return FALSE;
+ return false;
}
/* Write multiple bytes to section image. */
-static bfd_boolean
+static bool
image_write (bfd *abfd, unsigned char *ptr, unsigned int size)
{
asection *sec = PRIV (image_section);
@@ -1622,7 +1620,7 @@ image_write (bfd *abfd, unsigned char *ptr, unsigned int size)
|| size > sec->size - off)
{
bfd_set_error (bfd_error_bad_value);
- return FALSE;
+ return false;
}
#if VMS_DEBUG
@@ -1639,7 +1637,7 @@ image_write (bfd *abfd, unsigned char *ptr, unsigned int size)
if (ptr[i] != 0)
{
bfd_set_error (bfd_error_bad_value);
- return FALSE;
+ return false;
}
}
@@ -1648,12 +1646,12 @@ image_write (bfd *abfd, unsigned char *ptr, unsigned int size)
#endif
PRIV (image_offset) += size;
- return TRUE;
+ return true;
}
/* Write byte to section image. */
-static bfd_boolean
+static bool
image_write_b (bfd * abfd, unsigned int value)
{
unsigned char data[1];
@@ -1667,7 +1665,7 @@ image_write_b (bfd * abfd, unsigned int value)
/* Write 2-byte word to image. */
-static bfd_boolean
+static bool
image_write_w (bfd * abfd, unsigned int value)
{
unsigned char data[2];
@@ -1680,7 +1678,7 @@ image_write_w (bfd * abfd, unsigned int value)
/* Write 4-byte long to image. */
-static bfd_boolean
+static bool
image_write_l (bfd * abfd, unsigned long value)
{
unsigned char data[4];
@@ -1693,7 +1691,7 @@ image_write_l (bfd * abfd, unsigned long value)
/* Write 8-byte quad to image. */
-static bfd_boolean
+static bool
image_write_q (bfd * abfd, bfd_vma value)
{
unsigned char data[8];
@@ -1803,7 +1801,7 @@ _bfd_vms_get_value (bfd *abfd,
name[i] = 0;
h = (struct alpha_vms_link_hash_entry *)
- bfd_link_hash_lookup (info->hash, name, FALSE, FALSE, TRUE);
+ bfd_link_hash_lookup (info->hash, name, false, false, true);
*hp = h;
@@ -1818,7 +1816,7 @@ _bfd_vms_get_value (bfd *abfd,
else
{
(*info->callbacks->undefined_symbol)
- (info, name, abfd, PRIV (image_section), PRIV (image_offset), TRUE);
+ (info, name, abfd, PRIV (image_section), PRIV (image_offset), true);
*vma = 0;
}
}
@@ -1888,7 +1886,7 @@ alpha_vms_fix_sec_rel (bfd *abfd, struct bfd_link_info *info,
the output section (used during linking).
Return FALSE in case of error. */
-static bfd_boolean
+static bool
_bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
{
unsigned char *ptr;
@@ -1925,7 +1923,7 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
corrupt_etir:
_bfd_error_handler (_("corrupt ETIR record encountered"));
bfd_set_error (bfd_error_bad_value);
- return FALSE;
+ return false;
}
ptr += 4;
cmd_length -= 4;
@@ -1945,7 +1943,7 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
case ETIR__C_STA_GBL:
_bfd_vms_get_value (abfd, ptr, ptr + cmd_length, info, &op1, &h);
if (!_bfd_vms_push (abfd, op1, alpha_vms_sym_to_ctxt (h)))
- return FALSE;
+ return false;
break;
/* Stack longword
@@ -1956,7 +1954,7 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
if (cmd_length < 4)
goto corrupt_etir;
if (!_bfd_vms_push (abfd, bfd_getl32 (ptr), RELC_NONE))
- return FALSE;
+ return false;
break;
/* Stack quadword
@@ -1967,7 +1965,7 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
if (cmd_length < 8)
goto corrupt_etir;
if (!_bfd_vms_push (abfd, bfd_getl64 (ptr), RELC_NONE))
- return FALSE;
+ return false;
break;
/* Stack psect base plus quadword offset
@@ -1988,11 +1986,11 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
_bfd_error_handler (_("bad section index in %s"),
_bfd_vms_etir_name (cmd));
bfd_set_error (bfd_error_bad_value);
- return FALSE;
+ return false;
}
op1 = bfd_getl64 (ptr + 4);
if (!_bfd_vms_push (abfd, op1, psect | RELC_SEC_BASE))
- return FALSE;
+ return false;
}
break;
@@ -2001,36 +1999,36 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
case ETIR__C_STA_CKARG:
_bfd_error_handler (_("unsupported STA cmd %s"),
_bfd_vms_etir_name (cmd));
- return FALSE;
+ return false;
break;
/* Store byte: pop stack, write byte
arg: -. */
case ETIR__C_STO_B:
if (!_bfd_vms_pop (abfd, &op1, &rel1))
- return FALSE;
+ return false;
if (rel1 != RELC_NONE)
goto bad_context;
if (!image_write_b (abfd, (unsigned int) op1 & 0xff))
- return FALSE;
+ return false;
break;
/* Store word: pop stack, write word
arg: -. */
case ETIR__C_STO_W:
if (!_bfd_vms_pop (abfd, &op1, &rel1))
- return FALSE;
+ return false;
if (rel1 != RELC_NONE)
goto bad_context;
if (!image_write_w (abfd, (unsigned int) op1 & 0xffff))
- return FALSE;
+ return false;
break;
/* Store longword: pop stack, write longword
arg: -. */
case ETIR__C_STO_LW:
if (!_bfd_vms_pop (abfd, &op1, &rel1))
- return FALSE;
+ return false;
if (rel1 & RELC_SEC_BASE)
{
op1 = alpha_vms_fix_sec_rel (abfd, info, rel1, op1);
@@ -2039,7 +2037,7 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
else if (rel1 & RELC_SHR_BASE)
{
if (!alpha_vms_add_fixup_lr (info, rel1 & RELC_MASK, op1))
- return FALSE;
+ return false;
rel1 = RELC_NONE;
}
if (rel1 != RELC_NONE)
@@ -2047,17 +2045,17 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
if (rel1 != RELC_REL)
abort ();
if (!alpha_vms_add_lw_reloc (info))
- return FALSE;
+ return false;
}
if (!image_write_l (abfd, op1))
- return FALSE;
+ return false;
break;
/* Store quadword: pop stack, write quadword
arg: -. */
case ETIR__C_STO_QW:
if (!_bfd_vms_pop (abfd, &op1, &rel1))
- return FALSE;
+ return false;
if (rel1 & RELC_SEC_BASE)
{
op1 = alpha_vms_fix_sec_rel (abfd, info, rel1, op1);
@@ -2070,10 +2068,10 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
if (rel1 != RELC_REL)
abort ();
if (!alpha_vms_add_qw_reloc (info))
- return FALSE;
+ return false;
}
if (!image_write_q (abfd, op1))
- return FALSE;
+ return false;
break;
/* Store immediate repeated: pop stack for repeat count
@@ -2089,7 +2087,7 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
if (size > cmd_length - 4)
goto corrupt_etir;
if (!_bfd_vms_pop (abfd, &op1, &rel1))
- return FALSE;
+ return false;
if (rel1 != RELC_NONE)
goto bad_context;
if (size == 0)
@@ -2097,7 +2095,7 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
op1 &= 0xffffffff;
while (op1-- > 0)
if (!image_write (abfd, ptr + 4, size))
- return FALSE;
+ return false;
}
break;
@@ -2111,7 +2109,7 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
{
if (!alpha_vms_add_fixup_qr (info, abfd, h->sym->owner,
h->sym->symbol_vector))
- return FALSE;
+ return false;
op1 = 0;
}
else
@@ -2119,11 +2117,11 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
op1 = alpha_vms_get_sym_value (h->sym->section,
h->sym->value);
if (!alpha_vms_add_qw_reloc (info))
- return FALSE;
+ return false;
}
}
if (!image_write_q (abfd, op1))
- return FALSE;
+ return false;
break;
/* Store code address: write address of entry point
@@ -2138,7 +2136,7 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
if (h->sym->typ == EGSD__C_SYMG)
{
if (!alpha_vms_add_fixup_ca (info, abfd, h->sym->owner))
- return FALSE;
+ return false;
op1 = h->sym->symbol_vector;
}
else
@@ -2146,7 +2144,7 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
op1 = alpha_vms_get_sym_value (h->sym->code_section,
h->sym->code_value);
if (!alpha_vms_add_qw_reloc (info))
- return FALSE;
+ return false;
}
}
else
@@ -2156,14 +2154,14 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
}
}
if (!image_write_q (abfd, op1))
- return FALSE;
+ return false;
break;
/* Store offset to psect: pop stack, add low 32 bits to base of psect
arg: none. */
case ETIR__C_STO_OFF:
if (!_bfd_vms_pop (abfd, &op1, &rel1))
- return FALSE;
+ return false;
if (!(rel1 & RELC_SEC_BASE))
abort ();
@@ -2171,7 +2169,7 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
op1 = alpha_vms_fix_sec_rel (abfd, info, rel1, op1);
rel1 = RELC_REL;
if (!image_write_q (abfd, op1))
- return FALSE;
+ return false;
break;
/* Store immediate
@@ -2185,7 +2183,7 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
goto corrupt_etir;
size = bfd_getl32 (ptr);
if (!image_write (abfd, ptr + 4, size))
- return FALSE;
+ return false;
}
break;
@@ -2201,7 +2199,7 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
abort ();
#endif
if (!image_write_l (abfd, op1))
- return FALSE;
+ return false;
break;
case ETIR__C_STO_RB:
@@ -2209,13 +2207,13 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
case ETIR__C_STO_LP_PSB:
_bfd_error_handler (_("%s: not supported"),
_bfd_vms_etir_name (cmd));
- return FALSE;
+ return false;
break;
case ETIR__C_STO_HINT_GBL:
case ETIR__C_STO_HINT_PS:
_bfd_error_handler (_("%s: not implemented"),
_bfd_vms_etir_name (cmd));
- return FALSE;
+ return false;
break;
/* 200 Store-conditional Linkage Pair
@@ -2240,7 +2238,7 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
case ETIR__C_STC_PS:
_bfd_error_handler (_("%s: not supported"),
_bfd_vms_etir_name (cmd));
- return FALSE;
+ return false;
break;
/* 201 Store-conditional Linkage Pair with Procedure Signature
@@ -2258,7 +2256,7 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
if (h->sym->typ == EGSD__C_SYMG)
{
if (!alpha_vms_add_fixup_lp (info, abfd, h->sym->owner))
- return FALSE;
+ return false;
op1 = h->sym->symbol_vector;
op2 = 0;
}
@@ -2278,7 +2276,7 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
}
if (!image_write_q (abfd, op1)
|| !image_write_q (abfd, op2))
- return FALSE;
+ return false;
break;
/* 205 Store-conditional NOP at address of global
@@ -2335,14 +2333,14 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
case ETIR__C_STC_NBH_PS:
_bfd_error_handler (_("%s: not supported"),
_bfd_vms_etir_name (cmd));
- return FALSE;
+ return false;
break;
/* Det relocation base: pop stack, set image location counter
arg: none. */
case ETIR__C_CTL_SETRB:
if (!_bfd_vms_pop (abfd, &op1, &rel1))
- return FALSE;
+ return false;
if (!(rel1 & RELC_SEC_BASE))
abort ();
image_set_ptr (abfd, op1, rel1 & RELC_MASK, info);
@@ -2361,25 +2359,25 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
arg: none. */
case ETIR__C_CTL_DFLOC:
if (!_bfd_vms_pop (abfd, &op1, &rel1))
- return FALSE;
+ return false;
if (rel1 != RELC_NONE)
goto bad_context;
if (!dst_define_location (abfd, op1))
- return FALSE;
+ return false;
break;
/* Set location: pop index, restore location counter from index
arg: none. */
case ETIR__C_CTL_STLOC:
if (!_bfd_vms_pop (abfd, &op1, &rel1))
- return FALSE;
+ return false;
if (rel1 != RELC_NONE)
goto bad_context;
if (!dst_restore_location (abfd, op1))
{
bfd_set_error (bfd_error_bad_value);
_bfd_error_handler (_("invalid %s"), "ETIR__C_CTL_STLOC");
- return FALSE;
+ return false;
}
break;
@@ -2387,17 +2385,17 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
arg: none. */
case ETIR__C_CTL_STKDL:
if (!_bfd_vms_pop (abfd, &op1, &rel1))
- return FALSE;
+ return false;
if (rel1 != RELC_NONE)
goto bad_context;
if (!dst_retrieve_location (abfd, &op1))
{
bfd_set_error (bfd_error_bad_value);
_bfd_error_handler (_("invalid %s"), "ETIR__C_CTL_STKDL");
- return FALSE;
+ return false;
}
if (!_bfd_vms_push (abfd, op1, RELC_NONE))
- return FALSE;
+ return false;
break;
case ETIR__C_OPR_NOP: /* No-op. */
@@ -2406,19 +2404,19 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
case ETIR__C_OPR_ADD: /* Add. */
if (!_bfd_vms_pop (abfd, &op1, &rel1)
|| !_bfd_vms_pop (abfd, &op2, &rel2))
- return FALSE;
+ return false;
if (rel1 == RELC_NONE && rel2 != RELC_NONE)
rel1 = rel2;
else if (rel1 != RELC_NONE && rel2 != RELC_NONE)
goto bad_context;
if (!_bfd_vms_push (abfd, op1 + op2, rel1))
- return FALSE;
+ return false;
break;
case ETIR__C_OPR_SUB: /* Subtract. */
if (!_bfd_vms_pop (abfd, &op1, &rel1)
|| !_bfd_vms_pop (abfd, &op2, &rel2))
- return FALSE;
+ return false;
if (rel1 == RELC_NONE && rel2 != RELC_NONE)
rel1 = rel2;
else if ((rel1 & RELC_SEC_BASE) && (rel2 & RELC_SEC_BASE))
@@ -2430,23 +2428,23 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
else if (rel1 != RELC_NONE && rel2 != RELC_NONE)
goto bad_context;
if (!_bfd_vms_push (abfd, op2 - op1, rel1))
- return FALSE;
+ return false;
break;
case ETIR__C_OPR_MUL: /* Multiply. */
if (!_bfd_vms_pop (abfd, &op1, &rel1)
|| !_bfd_vms_pop (abfd, &op2, &rel2))
- return FALSE;
+ return false;
if (rel1 != RELC_NONE || rel2 != RELC_NONE)
goto bad_context;
if (!_bfd_vms_push (abfd, op1 * op2, RELC_NONE))
- return FALSE;
+ return false;
break;
case ETIR__C_OPR_DIV: /* Divide. */
if (!_bfd_vms_pop (abfd, &op1, &rel1)
|| !_bfd_vms_pop (abfd, &op2, &rel2))
- return FALSE;
+ return false;
if (rel1 != RELC_NONE || rel2 != RELC_NONE)
goto bad_context;
if (op1 == 0)
@@ -2455,73 +2453,73 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
and a non-fatal warning message. */
_bfd_error_handler (_("%s divide by zero"), "ETIR__C_OPR_DIV");
if (!_bfd_vms_push (abfd, 0, RELC_NONE))
- return FALSE;
+ return false;
}
else
{
if (!_bfd_vms_push (abfd, op2 / op1, RELC_NONE))
- return FALSE;
+ return false;
}
break;
case ETIR__C_OPR_AND: /* Logical AND. */
if (!_bfd_vms_pop (abfd, &op1, &rel1)
|| !_bfd_vms_pop (abfd, &op2, &rel2))
- return FALSE;
+ return false;
if (rel1 != RELC_NONE || rel2 != RELC_NONE)
goto bad_context;
if (!_bfd_vms_push (abfd, op1 & op2, RELC_NONE))
- return FALSE;
+ return false;
break;
case ETIR__C_OPR_IOR: /* Logical inclusive OR. */
if (!_bfd_vms_pop (abfd, &op1, &rel1)
|| !_bfd_vms_pop (abfd, &op2, &rel2))
- return FALSE;
+ return false;
if (rel1 != RELC_NONE || rel2 != RELC_NONE)
goto bad_context;
if (!_bfd_vms_push (abfd, op1 | op2, RELC_NONE))
- return FALSE;
+ return false;
break;
case ETIR__C_OPR_EOR: /* Logical exclusive OR. */
if (!_bfd_vms_pop (abfd, &op1, &rel1)
|| !_bfd_vms_pop (abfd, &op2, &rel2))
- return FALSE;
+ return false;
if (rel1 != RELC_NONE || rel2 != RELC_NONE)
goto bad_context;
if (!_bfd_vms_push (abfd, op1 ^ op2, RELC_NONE))
- return FALSE;
+ return false;
break;
case ETIR__C_OPR_NEG: /* Negate. */
if (!_bfd_vms_pop (abfd, &op1, &rel1))
- return FALSE;
+ return false;
if (rel1 != RELC_NONE)
goto bad_context;
if (!_bfd_vms_push (abfd, -op1, RELC_NONE))
- return FALSE;
+ return false;
break;
case ETIR__C_OPR_COM: /* Complement. */
if (!_bfd_vms_pop (abfd, &op1, &rel1))
- return FALSE;
+ return false;
if (rel1 != RELC_NONE)
goto bad_context;
if (!_bfd_vms_push (abfd, ~op1, RELC_NONE))
- return FALSE;
+ return false;
break;
case ETIR__C_OPR_ASH: /* Arithmetic shift. */
if (!_bfd_vms_pop (abfd, &op1, &rel1)
|| !_bfd_vms_pop (abfd, &op2, &rel2))
- return FALSE;
+ return false;
if (rel1 != RELC_NONE || rel2 != RELC_NONE)
{
bad_context:
_bfd_error_handler (_("invalid use of %s with contexts"),
_bfd_vms_etir_name (cmd));
- return FALSE;
+ return false;
}
if ((bfd_signed_vma) op2 < 0)
{
@@ -2545,7 +2543,7 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
op1 <<= op2;
}
if (!_bfd_vms_push (abfd, op1, RELC_NONE)) /* FIXME: sym. */
- return FALSE;
+ return false;
break;
case ETIR__C_OPR_INSV: /* Insert field. */
@@ -2555,43 +2553,43 @@ _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
case ETIR__C_OPR_DFLIT: /* Define a literal. */
_bfd_error_handler (_("%s: not supported"),
_bfd_vms_etir_name (cmd));
- return FALSE;
+ return false;
break;
case ETIR__C_OPR_SEL: /* Select. */
if (!_bfd_vms_pop (abfd, &op1, &rel1))
- return FALSE;
+ return false;
if (op1 & 0x01L)
{
if (!_bfd_vms_pop (abfd, &op1, &rel1))
- return FALSE;
+ return false;
}
else
{
if (!_bfd_vms_pop (abfd, &op1, &rel1)
|| !_bfd_vms_pop (abfd, &op2, &rel2))
- return FALSE;
+ return false;
if (!_bfd_vms_push (abfd, op1, rel1))
- return FALSE;
+ return false;
}
break;
default:
_bfd_error_handler (_("reserved cmd %d"), cmd);
- return FALSE;
+ return false;
break;
}
ptr += cmd_length;
}
- return TRUE;
+ return true;
}
/* Process EDBG/ETBT record.
Return TRUE on success, FALSE on error */
-static bfd_boolean
+static bool
vms_slurp_debug (bfd *abfd)
{
asection *section = PRIV (dst_section);
@@ -2606,9 +2604,9 @@ vms_slurp_debug (bfd *abfd)
section = bfd_make_section (abfd, "$DST$");
if (!section)
- return FALSE;
+ return false;
if (!bfd_set_section_flags (section, flags))
- return FALSE;
+ return false;
PRIV (dst_section) = section;
}
@@ -2616,16 +2614,16 @@ vms_slurp_debug (bfd *abfd)
PRIV (image_offset) = section->size;
if (!_bfd_vms_slurp_etir (abfd, NULL))
- return FALSE;
+ return false;
section->size = PRIV (image_offset);
- return TRUE;
+ return true;
}
/* Process EDBG record.
Return TRUE on success, FALSE on error. */
-static bfd_boolean
+static bool
_bfd_vms_slurp_edbg (bfd *abfd)
{
vms_debug2 ((2, "EDBG\n"));
@@ -2638,7 +2636,7 @@ _bfd_vms_slurp_edbg (bfd *abfd)
/* Process ETBT record.
Return TRUE on success, FALSE on error. */
-static bfd_boolean
+static bool
_bfd_vms_slurp_etbt (bfd *abfd)
{
vms_debug2 ((2, "ETBT\n"));
@@ -2651,7 +2649,7 @@ _bfd_vms_slurp_etbt (bfd *abfd)
/* Process EEOM record.
Return TRUE on success, FALSE on error. */
-static bfd_boolean
+static bool
_bfd_vms_slurp_eeom (bfd *abfd)
{
struct vms_eeom *eeom = (struct vms_eeom *) PRIV (recrd.rec);
@@ -2663,7 +2661,7 @@ _bfd_vms_slurp_eeom (bfd *abfd)
{
_bfd_error_handler (_("corrupt EEOM record - size is too small"));
bfd_set_error (bfd_error_bad_value);
- return FALSE;
+ return false;
}
PRIV (eom_data).eom_l_total_lps = bfd_getl32 (eeom->total_lps);
@@ -2672,28 +2670,28 @@ _bfd_vms_slurp_eeom (bfd *abfd)
{
_bfd_error_handler (_("object module not error-free !"));
bfd_set_error (bfd_error_bad_value);
- return FALSE;
+ return false;
}
- PRIV (eom_data).eom_has_transfer = FALSE;
+ PRIV (eom_data).eom_has_transfer = false;
if (PRIV (recrd.rec_size) > 10)
{
- PRIV (eom_data).eom_has_transfer = TRUE;
+ PRIV (eom_data).eom_has_transfer = true;
PRIV (eom_data).eom_b_tfrflg = eeom->tfrflg;
PRIV (eom_data).eom_l_psindx = bfd_getl32 (eeom->psindx);
PRIV (eom_data).eom_l_tfradr = bfd_getl32 (eeom->tfradr);
abfd->start_address = PRIV (eom_data).eom_l_tfradr;
}
- return TRUE;
+ return true;
}
/* Slurp an ordered set of VMS object records. Return FALSE on error. */
-static bfd_boolean
+static bool
_bfd_vms_slurp_object_records (bfd * abfd)
{
- bfd_boolean ok;
+ bool ok;
int type;
do
@@ -2704,7 +2702,7 @@ _bfd_vms_slurp_object_records (bfd * abfd)
if (type < 0)
{
vms_debug2 ((2, "next_record failed\n"));
- return FALSE;
+ return false;
}
switch (type)
@@ -2719,7 +2717,7 @@ _bfd_vms_slurp_object_records (bfd * abfd)
ok = _bfd_vms_slurp_egsd (abfd);
break;
case EOBJ__C_ETIR:
- ok = TRUE; /* _bfd_vms_slurp_etir (abfd); */
+ ok = true; /* _bfd_vms_slurp_etir (abfd); */
break;
case EOBJ__C_EDBG:
ok = _bfd_vms_slurp_edbg (abfd);
@@ -2728,21 +2726,21 @@ _bfd_vms_slurp_object_records (bfd * abfd)
ok = _bfd_vms_slurp_etbt (abfd);
break;
default:
- ok = FALSE;
+ ok = false;
}
if (!ok)
{
vms_debug2 ((2, "slurp type %d failed\n", type));
- return FALSE;
+ return false;
}
}
while (type != EOBJ__C_EEOM);
- return TRUE;
+ return true;
}
/* Initialize private data */
-static bfd_boolean
+static bool
vms_initialize (bfd * abfd)
{
size_t amt;
@@ -2750,7 +2748,7 @@ vms_initialize (bfd * abfd)
amt = sizeof (struct vms_private_data_struct);
abfd->tdata.any = bfd_zalloc (abfd, amt);
if (abfd->tdata.any == NULL)
- return FALSE;
+ return false;
PRIV (recrd.file_format) = FF_UNKNOWN;
@@ -2759,12 +2757,12 @@ vms_initialize (bfd * abfd)
if (PRIV (stack) == NULL)
goto error_ret1;
- return TRUE;
+ return true;
error_ret1:
bfd_release (abfd, abfd->tdata.any);
abfd->tdata.any = NULL;
- return FALSE;
+ return false;
}
/* Free malloc'd memory. */
@@ -2941,7 +2939,7 @@ _bfd_vms_write_emh (bfd *abfd)
/* Create module name from filename. */
if (bfd_get_filename (abfd) != 0)
{
- char *module = vms_get_module_name (bfd_get_filename (abfd), TRUE);
+ char *module = vms_get_module_name (bfd_get_filename (abfd), true);
_bfd_vms_output_counted (recwr, module);
free (module);
}
@@ -2975,7 +2973,7 @@ _bfd_vms_write_lmn (bfd *abfd, const char *name)
/* Write eom record for bfd abfd. Return FALSE on error. */
-static bfd_boolean
+static bool
_bfd_vms_write_eeom (bfd *abfd)
{
struct vms_rec_wr *recwr = &PRIV (recwr);
@@ -2998,7 +2996,7 @@ _bfd_vms_write_eeom (bfd *abfd)
if (section == 0)
{
bfd_set_error (bfd_error_nonrepresentable_section);
- return FALSE;
+ return false;
}
_bfd_vms_output_short (recwr, 0);
_bfd_vms_output_long (recwr, (unsigned long) section->target_index);
@@ -3008,7 +3006,7 @@ _bfd_vms_write_eeom (bfd *abfd)
}
_bfd_vms_output_end (abfd, recwr);
- return TRUE;
+ return true;
}
static void *
@@ -3096,7 +3094,7 @@ alpha_vms_append_extra_eisd (bfd *abfd, struct vms_internal_eisd_map *eisd)
/* Create an EISD for shared image SHRIMG.
Return FALSE in case of error. */
-static bfd_boolean
+static bool
alpha_vms_create_eisd_for_shared (bfd *abfd, bfd *shrimg)
{
struct vms_internal_eisd_map *eisd;
@@ -3106,12 +3104,12 @@ alpha_vms_create_eisd_for_shared (bfd *abfd, bfd *shrimg)
if (namlen + 5 > EISD__K_GBLNAMLEN)
{
/* Won't fit. */
- return FALSE;
+ return false;
}
eisd = bfd_alloc (abfd, sizeof (*eisd));
if (eisd == NULL)
- return FALSE;
+ return false;
/* Fill the fields. */
eisd->u.gbl_eisd.common.majorid = EISD__K_MAJORID;
@@ -3134,25 +3132,25 @@ alpha_vms_create_eisd_for_shared (bfd *abfd, bfd *shrimg)
/* Append it to the list. */
alpha_vms_append_extra_eisd (abfd, eisd);
- return TRUE;
+ return true;
}
/* Create an EISD for section SEC.
Return FALSE in case of failure. */
-static bfd_boolean
+static bool
alpha_vms_create_eisd_for_section (bfd *abfd, asection *sec)
{
struct vms_internal_eisd_map *eisd;
/* Only for allocating section. */
if (!(sec->flags & SEC_ALLOC))
- return TRUE;
+ return true;
BFD_ASSERT (vms_section_data (sec)->eisd == NULL);
eisd = bfd_alloc (abfd, sizeof (*eisd));
if (eisd == NULL)
- return FALSE;
+ return false;
vms_section_data (sec)->eisd = eisd;
/* Fill the fields. */
@@ -3196,13 +3194,13 @@ alpha_vms_create_eisd_for_section (bfd *abfd, asection *sec)
PRIV (eisd_tail)->next = eisd;
PRIV (eisd_tail) = eisd;
- return TRUE;
+ return true;
}
/* Layout executable ABFD and write it to the disk.
Return FALSE in case of failure. */
-static bfd_boolean
+static bool
alpha_vms_write_exec (bfd *abfd)
{
struct vms_eihd eihd;
@@ -3279,7 +3277,7 @@ alpha_vms_write_exec (bfd *abfd)
unsigned int len;
/* Set module name. */
- module = vms_get_module_name (bfd_get_filename (abfd), TRUE);
+ module = vms_get_module_name (bfd_get_filename (abfd), true);
len = strlen (module);
if (len > sizeof (eihi->imgnam) - 1)
len = sizeof (eihi->imgnam) - 1;
@@ -3323,7 +3321,7 @@ alpha_vms_write_exec (bfd *abfd)
for (sec = abfd->sections; sec; sec = sec->next)
{
if (!alpha_vms_create_eisd_for_section (abfd, sec))
- return FALSE;
+ return false;
}
/* Merge section EIDS which extra ones. */
@@ -3341,7 +3339,7 @@ alpha_vms_write_exec (bfd *abfd)
{
eisd = bfd_zalloc (abfd, sizeof (*eisd));
if (eisd == NULL)
- return FALSE;
+ return false;
eisd->u.eisd.majorid = 0;
eisd->u.eisd.minorid = 0;
eisd->u.eisd.eisdsize = 0;
@@ -3425,7 +3423,7 @@ alpha_vms_write_exec (bfd *abfd)
/* Write first block. */
bfd_putl32 (lnkflags, eihd.lnkflags);
if (bfd_bwrite (&eihd, sizeof (eihd), abfd) != sizeof (eihd))
- return FALSE;
+ return false;
/* Write remaining eisd. */
if (eisd != NULL)
@@ -3446,7 +3444,7 @@ alpha_vms_write_exec (bfd *abfd)
!= eisd->file_pos / VMS_BLOCK_SIZE))
{
if (bfd_bwrite (blk, sizeof (blk), abfd) != sizeof (blk))
- return FALSE;
+ return false;
memset (blk, 0xff, sizeof (blk));
}
@@ -3463,7 +3461,7 @@ alpha_vms_write_exec (bfd *abfd)
if (sec->size == 0 || !(sec->flags & SEC_HAS_CONTENTS))
continue;
if (bfd_bwrite (sec->contents, sec->size, abfd) != sec->size)
- return FALSE;
+ return false;
/* Pad. */
len = VMS_BLOCK_SIZE - sec->size % VMS_BLOCK_SIZE;
@@ -3471,7 +3469,7 @@ alpha_vms_write_exec (bfd *abfd)
{
memset (blk, 0, len);
if (bfd_bwrite (blk, len, abfd) != len)
- return FALSE;
+ return false;
}
}
@@ -3533,16 +3531,16 @@ alpha_vms_write_exec (bfd *abfd)
_bfd_vms_output_end (abfd, recwr);
if (!_bfd_vms_write_eeom (abfd))
- return FALSE;
+ return false;
}
- return TRUE;
+ return true;
}
/* Object write. */
/* Write section and symbol directory of bfd abfd. Return FALSE on error. */
-static bfd_boolean
+static bool
_bfd_vms_write_egsd (bfd *abfd)
{
asection *section;
@@ -3765,12 +3763,12 @@ _bfd_vms_write_egsd (bfd *abfd)
_bfd_vms_output_alignment (recwr, 8);
_bfd_vms_output_end (abfd, recwr);
- return TRUE;
+ return true;
}
/* Write object header for bfd abfd. Return FALSE on error. */
-static bfd_boolean
+static bool
_bfd_vms_write_ehdr (bfd *abfd)
{
asymbol *symbol;
@@ -3819,7 +3817,7 @@ _bfd_vms_write_ehdr (bfd *abfd)
39);
_bfd_vms_output_end (abfd, recwr);
- return TRUE;
+ return true;
}
/* Part 4.6, relocations. */
@@ -3940,7 +3938,7 @@ etir_output_check (bfd *abfd, asection *section, bfd_vma vaddr, int checklen)
/* Return whether RELOC must be deferred till the end. */
-static bfd_boolean
+static bool
defer_reloc_p (arelent *reloc)
{
switch (reloc->howto->type)
@@ -3949,16 +3947,16 @@ defer_reloc_p (arelent *reloc)
case ALPHA_R_LDA:
case ALPHA_R_BSR:
case ALPHA_R_BOH:
- return TRUE;
+ return true;
default:
- return FALSE;
+ return false;
}
}
/* Write section contents for bfd abfd. Return FALSE on error. */
-static bfd_boolean
+static bool
_bfd_vms_write_etir (bfd * abfd, int objtype ATTRIBUTE_UNUSED)
{
asection *section;
@@ -3982,7 +3980,7 @@ _bfd_vms_write_etir (bfd * abfd, int objtype ATTRIBUTE_UNUSED)
if (!section->contents)
{
bfd_set_error (bfd_error_no_contents);
- return FALSE;
+ return false;
}
start_etir_or_etbt_record (abfd, section, 0);
@@ -4030,7 +4028,7 @@ _bfd_vms_write_etir (bfd * abfd, int objtype ATTRIBUTE_UNUSED)
bfd_vma addr = rptr->address;
asymbol *sym = *rptr->sym_ptr_ptr;
asection *sec = sym->section;
- bfd_boolean defer = defer_reloc_p (rptr);
+ bool defer = defer_reloc_p (rptr);
unsigned int slen;
if (pass2_in_progress)
@@ -4266,7 +4264,7 @@ _bfd_vms_write_etir (bfd * abfd, int objtype ATTRIBUTE_UNUSED)
if (curr_addr > section->size)
{
_bfd_error_handler (_("size error in section %pA"), section);
- return FALSE;
+ return false;
}
size = section->size - curr_addr;
sto_imm (abfd, section, size, curr_data, curr_addr);
@@ -4288,12 +4286,12 @@ _bfd_vms_write_etir (bfd * abfd, int objtype ATTRIBUTE_UNUSED)
}
_bfd_vms_output_alignment (recwr, 2);
- return TRUE;
+ return true;
}
/* Write cached information into a file being written, at bfd_close. */
-static bfd_boolean
+static bool
alpha_vms_write_object_contents (bfd *abfd)
{
vms_debug2 ((1, "vms_write_object_contents (%p)\n", abfd));
@@ -4307,16 +4305,16 @@ alpha_vms_write_object_contents (bfd *abfd)
if (abfd->section_count > 0) /* we have sections */
{
if (!_bfd_vms_write_ehdr (abfd))
- return FALSE;
+ return false;
if (!_bfd_vms_write_egsd (abfd))
- return FALSE;
+ return false;
if (!_bfd_vms_write_etir (abfd, EOBJ__C_ETIR))
- return FALSE;
+ return false;
if (!_bfd_vms_write_eeom (abfd))
- return FALSE;
+ return false;
}
}
- return TRUE;
+ return true;
}
/* Debug stuff: nearest line. */
@@ -4340,7 +4338,7 @@ new_module (bfd *abfd)
/* Parse debug info for a module and internalize it. */
-static bfd_boolean
+static bool
parse_module (bfd *abfd, struct module *module, unsigned char *ptr,
int length)
{
@@ -4456,7 +4454,7 @@ parse_module (bfd *abfd, struct module *module, unsigned char *ptr,
module->file_table_count
* sizeof (struct fileinfo));
if (module->file_table == NULL)
- return FALSE;
+ return false;
}
module->file_table [fileid].name = filename;
@@ -4778,7 +4776,7 @@ parse_module (bfd *abfd, struct module *module, unsigned char *ptr,
because parsing can be either performed at module creation
or deferred until debug info is consumed. */
SET_MODULE_PARSED (module);
- return TRUE;
+ return true;
}
/* Build the list of modules for the specified BFD. */
@@ -4867,7 +4865,7 @@ build_module_list (bfd *abfd)
/* Calculate and return the name of the source file and the line nearest
to the wanted location in the specified module. */
-static bfd_boolean
+static bool
module_find_nearest_line (bfd *abfd, struct module *module, bfd_vma addr,
const char **file, const char **func,
unsigned int *line)
@@ -4875,7 +4873,7 @@ module_find_nearest_line (bfd *abfd, struct module *module, bfd_vma addr,
struct funcinfo *funcinfo;
struct lineinfo *lineinfo;
struct srecinfo *srecinfo;
- bfd_boolean ret = FALSE;
+ bool ret = false;
/* Parse this module if that was not done at module creation. */
if (! IS_MODULE_PARSED (module))
@@ -4888,7 +4886,7 @@ module_find_nearest_line (bfd *abfd, struct module *module, bfd_vma addr,
|| (buffer = _bfd_malloc_and_read (abfd, size, size)) == NULL)
{
bfd_set_error (bfd_error_no_debug_section);
- return FALSE;
+ return false;
}
ret = parse_module (abfd, module, buffer, size);
@@ -4902,7 +4900,7 @@ module_find_nearest_line (bfd *abfd, struct module *module, bfd_vma addr,
if (addr >= funcinfo->low && addr <= funcinfo->high)
{
*func = funcinfo->name;
- ret = TRUE;
+ ret = true;
break;
}
@@ -4923,7 +4921,7 @@ module_find_nearest_line (bfd *abfd, struct module *module, bfd_vma addr,
*file = module->name;
*line = lineinfo->line;
}
- return TRUE;
+ return true;
}
break;
@@ -4936,7 +4934,7 @@ module_find_nearest_line (bfd *abfd, struct module *module, bfd_vma addr,
return the name of the source file and the line nearest to the wanted
location. */
-static bfd_boolean
+static bool
_bfd_vms_find_nearest_line (bfd *abfd,
asymbol **symbols ATTRIBUTE_UNUSED,
asection *section,
@@ -4959,27 +4957,27 @@ _bfd_vms_find_nearest_line (bfd *abfd,
/* We can't do anything if there is no DST (debug symbol table). */
if (PRIV (dst_section) == NULL)
- return FALSE;
+ return false;
/* Create the module list - if not already done. */
if (PRIV (modules) == NULL)
{
PRIV (modules) = build_module_list (abfd);
if (PRIV (modules) == NULL)
- return FALSE;
+ return false;
}
for (module = PRIV (modules); module; module = module->next)
if (addr >= module->low && addr <= module->high)
return module_find_nearest_line (abfd, module, addr, file, func, line);
- return FALSE;
+ return false;
}
/* Canonicalizations. */
/* Set name, value, section and flags of SYM from E. */
-static bfd_boolean
+static bool
alpha_vms_convert_symbol (bfd *abfd, struct vms_symbol_entry *e, asymbol *sym)
{
flagword flags;
@@ -5037,14 +5035,14 @@ alpha_vms_convert_symbol (bfd *abfd, struct vms_symbol_entry *e, asymbol *sym)
break;
default:
- return FALSE;
+ return false;
}
sym->name = name;
sym->section = sec;
sym->flags = flags;
sym->value = value;
- return TRUE;
+ return true;
}
@@ -5109,7 +5107,7 @@ alpha_vms_canonicalize_symtab (bfd *abfd, asymbol **symbols)
/* Read and convert relocations from ETIR. We do it once for all sections. */
-static bfd_boolean
+static bool
alpha_vms_slurp_relocs (bfd *abfd)
{
int cur_psect = -1;
@@ -5118,14 +5116,14 @@ alpha_vms_slurp_relocs (bfd *abfd)
/* We slurp relocs only once, for all sections. */
if (PRIV (reloc_done))
- return TRUE;
- PRIV (reloc_done) = TRUE;
+ return true;
+ PRIV (reloc_done) = true;
if (alpha_vms_canonicalize_symtab (abfd, NULL) < 0)
- return FALSE;
+ return false;
if (bfd_seek (abfd, 0, SEEK_SET) != 0)
- return FALSE;
+ return false;
while (1)
{
@@ -5187,7 +5185,7 @@ alpha_vms_slurp_relocs (bfd *abfd)
/* xgettext:c-format */
(_("unknown reloc %s + %s"), _bfd_vms_etir_name (prev_cmd),
_bfd_vms_etir_name (cmd));
- return FALSE;
+ return false;
}
cur_psect = cur_psidx;
vaddr = cur_addend;
@@ -5205,7 +5203,7 @@ alpha_vms_slurp_relocs (bfd *abfd)
/* xgettext:c-format */
(_("unknown reloc %s + %s"), _bfd_vms_etir_name (cmd),
_bfd_vms_etir_name (ETIR__C_STA_LW));
- return FALSE;
+ return false;
}
}
cur_addend = bfd_getl32 (ptr + 4);
@@ -5220,7 +5218,7 @@ alpha_vms_slurp_relocs (bfd *abfd)
/* xgettext:c-format */
(_("unknown reloc %s + %s"), _bfd_vms_etir_name (cmd),
_bfd_vms_etir_name (ETIR__C_STA_QW));
- return FALSE;
+ return false;
}
cur_addend = bfd_getl64 (ptr + 4);
prev_cmd = cmd;
@@ -5237,7 +5235,7 @@ alpha_vms_slurp_relocs (bfd *abfd)
_bfd_error_handler (_("unknown reloc %s + %s"),
_bfd_vms_etir_name (prev_cmd),
_bfd_vms_etir_name (ETIR__C_STO_LW));
- return FALSE;
+ return false;
}
reloc_code = BFD_RELOC_32;
break;
@@ -5250,7 +5248,7 @@ alpha_vms_slurp_relocs (bfd *abfd)
_bfd_error_handler (_("unknown reloc %s + %s"),
_bfd_vms_etir_name (prev_cmd),
_bfd_vms_etir_name (ETIR__C_STO_QW));
- return FALSE;
+ return false;
}
reloc_code = BFD_RELOC_64;
break;
@@ -5262,7 +5260,7 @@ alpha_vms_slurp_relocs (bfd *abfd)
_bfd_error_handler (_("unknown reloc %s + %s"),
_bfd_vms_etir_name (prev_cmd),
_bfd_vms_etir_name (ETIR__C_STO_OFF));
- return FALSE;
+ return false;
}
reloc_code = BFD_RELOC_64;
break;
@@ -5275,7 +5273,7 @@ alpha_vms_slurp_relocs (bfd *abfd)
_bfd_error_handler (_("unknown reloc %s + %s"),
_bfd_vms_etir_name (prev_cmd),
_bfd_vms_etir_name (ETIR__C_OPR_ADD));
- return FALSE;
+ return false;
}
prev_cmd = ETIR__C_OPR_ADD;
continue;
@@ -5329,7 +5327,7 @@ alpha_vms_slurp_relocs (bfd *abfd)
default:
_bfd_error_handler (_("unknown reloc %s"),
_bfd_vms_etir_name (cmd));
- return FALSE;
+ return false;
}
{
@@ -5342,16 +5340,16 @@ alpha_vms_slurp_relocs (bfd *abfd)
if (cur_psect < 0 || cur_psect > (int)PRIV (section_count))
{
_bfd_error_handler (_("invalid section index in ETIR"));
- return FALSE;
+ return false;
}
if (PRIV (sections) == NULL)
- return FALSE;
+ return false;
sec = PRIV (sections)[cur_psect];
if (sec == bfd_abs_section_ptr)
{
_bfd_error_handler (_("relocation for non-REL psect"));
- return FALSE;
+ return false;
}
vms_sec = vms_section_data (sec);
@@ -5371,7 +5369,7 @@ alpha_vms_slurp_relocs (bfd *abfd)
sec->relocation = bfd_realloc_or_free
(sec->relocation, vms_sec->reloc_max * sizeof (arelent));
if (sec->relocation == NULL)
- return FALSE;
+ return false;
}
}
reloc = &sec->relocation[sec->reloc_count];
@@ -5409,7 +5407,7 @@ alpha_vms_slurp_relocs (bfd *abfd)
else if (cur_psidx >= 0)
{
if (PRIV (sections) == NULL || cur_psidx >= (int) PRIV (section_count))
- return FALSE;
+ return false;
reloc->sym_ptr_ptr =
PRIV (sections)[cur_psidx]->symbol_ptr_ptr;
}
@@ -5432,9 +5430,9 @@ alpha_vms_slurp_relocs (bfd *abfd)
cur_psidx = -1;
}
}
- vms_debug2 ((3, "alpha_vms_slurp_relocs: result = TRUE\n"));
+ vms_debug2 ((3, "alpha_vms_slurp_relocs: result = true\n"));
- return TRUE;
+ return true;
}
/* Return the number of bytes required to store the relocation
@@ -5514,30 +5512,30 @@ static reloc_howto_type alpha_howto_table[] =
0, /* Rightshift. */
0, /* Size (0 = byte, 1 = short, 2 = long). */
8, /* Bitsize. */
- TRUE, /* PC relative. */
+ true, /* PC relative. */
0, /* Bitpos. */
complain_overflow_dont,/* Complain_on_overflow. */
reloc_nil, /* Special_function. */
"IGNORE", /* Name. */
- TRUE, /* Partial_inplace. */
+ true, /* Partial_inplace. */
0, /* Source mask */
0, /* Dest mask. */
- TRUE), /* PC rel offset. */
+ true), /* PC rel offset. */
/* A 64 bit reference to a symbol. */
HOWTO (ALPHA_R_REFQUAD, /* Type. */
0, /* Rightshift. */
4, /* Size (0 = byte, 1 = short, 2 = long). */
64, /* Bitsize. */
- FALSE, /* PC relative. */
+ false, /* PC relative. */
0, /* Bitpos. */
complain_overflow_bitfield, /* Complain_on_overflow. */
reloc_nil, /* Special_function. */
"REFQUAD", /* Name. */
- TRUE, /* Partial_inplace. */
+ true, /* Partial_inplace. */
MINUS_ONE, /* Source mask. */
MINUS_ONE, /* Dest mask. */
- FALSE), /* PC rel offset. */
+ false), /* PC rel offset. */
/* A 21 bit branch. The native assembler generates these for
branches within the text segment, and also fills in the PC
@@ -5546,90 +5544,90 @@ static reloc_howto_type alpha_howto_table[] =
2, /* Rightshift. */
2, /* Size (0 = byte, 1 = short, 2 = long). */
21, /* Bitsize. */
- TRUE, /* PC relative. */
+ true, /* PC relative. */
0, /* Bitpos. */
complain_overflow_signed, /* Complain_on_overflow. */
reloc_nil, /* Special_function. */
"BRADDR", /* Name. */
- TRUE, /* Partial_inplace. */
+ true, /* Partial_inplace. */
0x1fffff, /* Source mask. */
0x1fffff, /* Dest mask. */
- FALSE), /* PC rel offset. */
+ false), /* PC rel offset. */
/* A hint for a jump to a register. */
HOWTO (ALPHA_R_HINT, /* Type. */
2, /* Rightshift. */
1, /* Size (0 = byte, 1 = short, 2 = long). */
14, /* Bitsize. */
- TRUE, /* PC relative. */
+ true, /* PC relative. */
0, /* Bitpos. */
complain_overflow_dont,/* Complain_on_overflow. */
reloc_nil, /* Special_function. */
"HINT", /* Name. */
- TRUE, /* Partial_inplace. */
+ true, /* Partial_inplace. */
0x3fff, /* Source mask. */
0x3fff, /* Dest mask. */
- FALSE), /* PC rel offset. */
+ false), /* PC rel offset. */
/* 16 bit PC relative offset. */
HOWTO (ALPHA_R_SREL16, /* Type. */
0, /* Rightshift. */
1, /* Size (0 = byte, 1 = short, 2 = long). */
16, /* Bitsize. */
- TRUE, /* PC relative. */
+ true, /* PC relative. */
0, /* Bitpos. */
complain_overflow_signed, /* Complain_on_overflow. */
reloc_nil, /* Special_function. */
"SREL16", /* Name. */
- TRUE, /* Partial_inplace. */
+ true, /* Partial_inplace. */
0xffff, /* Source mask. */
0xffff, /* Dest mask. */
- FALSE), /* PC rel offset. */
+ false), /* PC rel offset. */
/* 32 bit PC relative offset. */
HOWTO (ALPHA_R_SREL32, /* Type. */
0, /* Rightshift. */
2, /* Size (0 = byte, 1 = short, 2 = long). */
32, /* Bitsize. */
- TRUE, /* PC relative. */
+ true, /* PC relative. */
0, /* Bitpos. */
complain_overflow_signed, /* Complain_on_overflow. */
reloc_nil, /* Special_function. */
"SREL32", /* Name. */
- TRUE, /* Partial_inplace. */
+ true, /* Partial_inplace. */
0xffffffff, /* Source mask. */
0xffffffff, /* Dest mask. */
- FALSE), /* PC rel offset. */
+ false), /* PC rel offset. */
/* A 64 bit PC relative offset. */
HOWTO (ALPHA_R_SREL64, /* Type. */
0, /* Rightshift. */
4, /* Size (0 = byte, 1 = short, 2 = long). */
64, /* Bitsize. */
- TRUE, /* PC relative. */
+ true, /* PC relative. */
0, /* Bitpos. */
complain_overflow_signed, /* Complain_on_overflow. */
reloc_nil, /* Special_function. */
"SREL64", /* Name. */
- TRUE, /* Partial_inplace. */
+ true, /* Partial_inplace. */
MINUS_ONE, /* Source mask. */
MINUS_ONE, /* Dest mask. */
- FALSE), /* PC rel offset. */
+ false), /* PC rel offset. */
/* Push a value on the reloc evaluation stack. */
HOWTO (ALPHA_R_OP_PUSH, /* Type. */
0, /* Rightshift. */
0, /* Size (0 = byte, 1 = short, 2 = long). */
0, /* Bitsize. */
- FALSE, /* PC relative. */
+ false, /* PC relative. */
0, /* Bitpos. */
complain_overflow_dont,/* Complain_on_overflow. */
reloc_nil, /* Special_function. */
"OP_PUSH", /* Name. */
- FALSE, /* Partial_inplace. */
+ false, /* Partial_inplace. */
0, /* Source mask. */
0, /* Dest mask. */
- FALSE), /* PC rel offset. */
+ false), /* PC rel offset. */
/* Store the value from the stack at the given address. Store it in
a bitfield of size r_size starting at bit position r_offset. */
@@ -5637,15 +5635,15 @@ static reloc_howto_type alpha_howto_table[] =
0, /* Rightshift. */
4, /* Size (0 = byte, 1 = short, 2 = long). */
64, /* Bitsize. */
- FALSE, /* PC relative. */
+ false, /* PC relative. */
0, /* Bitpos. */
complain_overflow_dont,/* Complain_on_overflow. */
reloc_nil, /* Special_function. */
"OP_STORE", /* Name. */
- FALSE, /* Partial_inplace. */
+ false, /* Partial_inplace. */
0, /* Source mask. */
MINUS_ONE, /* Dest mask. */
- FALSE), /* PC rel offset. */
+ false), /* PC rel offset. */
/* Subtract the reloc address from the value on the top of the
relocation stack. */
@@ -5653,15 +5651,15 @@ static reloc_howto_type alpha_howto_table[] =
0, /* Rightshift. */
0, /* Size (0 = byte, 1 = short, 2 = long). */
0, /* Bitsize. */
- FALSE, /* PC relative. */
+ false, /* PC relative. */
0, /* Bitpos. */
complain_overflow_dont,/* Complain_on_overflow. */
reloc_nil, /* Special_function. */
"OP_PSUB", /* Name. */
- FALSE, /* Partial_inplace. */
+ false, /* Partial_inplace. */
0, /* Source mask. */
0, /* Dest mask. */
- FALSE), /* PC rel offset. */
+ false), /* PC rel offset. */
/* Shift the value on the top of the relocation stack right by the
given value. */
@@ -5669,60 +5667,60 @@ static reloc_howto_type alpha_howto_table[] =
0, /* Rightshift. */
0, /* Size (0 = byte, 1 = short, 2 = long). */
0, /* Bitsize. */
- FALSE, /* PC relative. */
+ false, /* PC relative. */
0, /* Bitpos. */
complain_overflow_dont,/* Complain_on_overflow. */
reloc_nil, /* Special_function. */
"OP_PRSHIFT", /* Name. */
- FALSE, /* Partial_inplace. */
+ false, /* Partial_inplace. */
0, /* Source mask. */
0, /* Dest mask. */
- FALSE), /* PC rel offset. */
+ false), /* PC rel offset. */
/* Hack. Linkage is done by linker. */
HOWTO (ALPHA_R_LINKAGE, /* Type. */
0, /* Rightshift. */
0, /* Size (0 = byte, 1 = short, 2 = long). */
0, /* Bitsize. */
- FALSE, /* PC relative. */
+ false, /* PC relative. */
0, /* Bitpos. */
complain_overflow_dont,/* Complain_on_overflow. */
reloc_nil, /* Special_function. */
"LINKAGE", /* Name. */
- FALSE, /* Partial_inplace. */
+ false, /* Partial_inplace. */
0, /* Source mask. */
0, /* Dest mask. */
- FALSE), /* PC rel offset. */
+ false), /* PC rel offset. */
/* A 32 bit reference to a symbol. */
HOWTO (ALPHA_R_REFLONG, /* Type. */
0, /* Rightshift. */
2, /* Size (0 = byte, 1 = short, 2 = long). */
32, /* Bitsize. */
- FALSE, /* PC relative. */
+ false, /* PC relative. */
0, /* Bitpos. */
complain_overflow_bitfield, /* Complain_on_overflow. */
reloc_nil, /* Special_function. */
"REFLONG", /* Name. */
- TRUE, /* Partial_inplace. */
+ true, /* Partial_inplace. */
0xffffffff, /* Source mask. */
0xffffffff, /* Dest mask. */
- FALSE), /* PC rel offset. */
+ false), /* PC rel offset. */
/* A 64 bit reference to a procedure, written as 32 bit value. */
HOWTO (ALPHA_R_CODEADDR, /* Type. */
0, /* Rightshift. */
4, /* Size (0 = byte, 1 = short, 2 = long). */
64, /* Bitsize. */
- FALSE, /* PC relative. */
+ false, /* PC relative. */
0, /* Bitpos. */
complain_overflow_signed,/* Complain_on_overflow. */
reloc_nil, /* Special_function. */
"CODEADDR", /* Name. */
- FALSE, /* Partial_inplace. */
+ false, /* Partial_inplace. */
0xffffffff, /* Source mask. */
0xffffffff, /* Dest mask. */
- FALSE), /* PC rel offset. */
+ false), /* PC rel offset. */
HOWTO (ALPHA_R_NOP, /* Type. */
0, /* Rightshift. */
@@ -5731,57 +5729,57 @@ static reloc_howto_type alpha_howto_table[] =
/* The following value must match that of ALPHA_R_BSR/ALPHA_R_BOH
because the calculations for the 3 relocations are the same.
See B.4.5.2 of the OpenVMS Linker Utility Manual. */
- TRUE, /* PC relative. */
+ true, /* PC relative. */
0, /* Bitpos. */
complain_overflow_dont,/* Complain_on_overflow. */
reloc_nil, /* Special_function. */
"NOP", /* Name. */
- FALSE, /* Partial_inplace. */
+ false, /* Partial_inplace. */
0xffffffff, /* Source mask. */
0xffffffff, /* Dest mask. */
- FALSE), /* PC rel offset. */
+ false), /* PC rel offset. */
HOWTO (ALPHA_R_BSR, /* Type. */
0, /* Rightshift. */
3, /* Size (0 = byte, 1 = short, 2 = long). */
0, /* Bitsize. */
- TRUE, /* PC relative. */
+ true, /* PC relative. */
0, /* Bitpos. */
complain_overflow_dont,/* Complain_on_overflow. */
reloc_nil, /* Special_function. */
"BSR", /* Name. */
- FALSE, /* Partial_inplace. */
+ false, /* Partial_inplace. */
0xffffffff, /* Source mask. */
0xffffffff, /* Dest mask. */
- FALSE), /* PC rel offset. */
+ false), /* PC rel offset. */
HOWTO (ALPHA_R_LDA, /* Type. */
0, /* Rightshift. */
3, /* Size (0 = byte, 1 = short, 2 = long). */
0, /* Bitsize. */
- FALSE, /* PC relative. */
+ false, /* PC relative. */
0, /* Bitpos. */
complain_overflow_dont,/* Complain_on_overflow. */
reloc_nil, /* Special_function. */
"LDA", /* Name. */
- FALSE, /* Partial_inplace. */
+ false, /* Partial_inplace. */
0xffffffff, /* Source mask. */
0xffffffff, /* Dest mask. */
- FALSE), /* PC rel offset. */
+ false), /* PC rel offset. */
HOWTO (ALPHA_R_BOH, /* Type. */
0, /* Rightshift. */
3, /* Size (0 = byte, 1 = short, 2 = long, 3 = nil). */
0, /* Bitsize. */
- TRUE, /* PC relative. */
+ true, /* PC relative. */
0, /* Bitpos. */
complain_overflow_dont,/* Complain_on_overflow. */
reloc_nil, /* Special_function. */
"BOH", /* Name. */
- FALSE, /* Partial_inplace. */
+ false, /* Partial_inplace. */
0xffffffff, /* Source mask. */
0xffffffff, /* Dest mask. */
- FALSE), /* PC rel offset. */
+ false), /* PC rel offset. */
};
/* Return a pointer to a howto structure which, when invoked, will perform
@@ -5889,7 +5887,7 @@ alpha_vms_get_synthetic_symtab (bfd *abfd,
l = strlen (name);
sname = bfd_alloc (abfd, l + 5);
if (sname == NULL)
- return FALSE;
+ return false;
memcpy (sname, name, l);
memcpy (sname + l, "..en", 5);
@@ -6634,8 +6632,8 @@ evax_bfd_print_etir (FILE *file, const char *name,
static void
evax_bfd_print_eobj (struct bfd *abfd, FILE *file)
{
- bfd_boolean is_first = TRUE;
- bfd_boolean has_records = FALSE;
+ bool is_first = true;
+ bool has_records = false;
while (1)
{
@@ -6649,7 +6647,7 @@ evax_bfd_print_eobj (struct bfd *abfd, FILE *file)
{
unsigned char buf[6];
- is_first = FALSE;
+ is_first = false;
/* Read 6 bytes. */
if (bfd_bread (buf, sizeof (buf), abfd) != sizeof (buf))
@@ -6662,13 +6660,13 @@ evax_bfd_print_eobj (struct bfd *abfd, FILE *file)
&& bfd_getl16 (buf + 2) == EOBJ__C_EMH)
{
/* The format is raw: record-size, type, record-size. */
- has_records = TRUE;
+ has_records = true;
pad_len = (rec_len + 1) & ~1U;
hdr_size = 4;
}
else if (rec_len == EOBJ__C_EMH)
{
- has_records = FALSE;
+ has_records = false;
pad_len = bfd_getl16 (buf + 2);
hdr_size = 6;
}
@@ -8309,7 +8307,7 @@ evax_bfd_print_image (bfd *abfd, FILE *file)
}
}
-static bfd_boolean
+static bool
vms_bfd_print_private_bfd_data (bfd *abfd, void *ptr)
{
FILE *file = (FILE *)ptr;
@@ -8319,17 +8317,17 @@ vms_bfd_print_private_bfd_data (bfd *abfd, void *ptr)
else
{
if (bfd_seek (abfd, 0, SEEK_SET))
- return FALSE;
+ return false;
evax_bfd_print_eobj (abfd, file);
}
- return TRUE;
+ return true;
}
/* Linking. */
/* Slurp ETIR/EDBG/ETBT VMS object records. */
-static bfd_boolean
+static bool
alpha_vms_read_sections_content (bfd *abfd, struct bfd_link_info *info)
{
asection *cur_section;
@@ -8338,7 +8336,7 @@ alpha_vms_read_sections_content (bfd *abfd, struct bfd_link_info *info)
file_ptr dst_offset;
if (bfd_seek (abfd, 0, SEEK_SET) != 0)
- return FALSE;
+ return false;
cur_section = NULL;
cur_offset = 0;
@@ -8363,13 +8361,13 @@ alpha_vms_read_sections_content (bfd *abfd, struct bfd_link_info *info)
while (1)
{
int type;
- bfd_boolean res;
+ bool res;
type = _bfd_vms_get_object_record (abfd);
if (type < 0)
{
vms_debug2 ((2, "next_record failed\n"));
- return FALSE;
+ return false;
}
switch (type)
{
@@ -8390,14 +8388,14 @@ alpha_vms_read_sections_content (bfd *abfd, struct bfd_link_info *info)
dst_offset = PRIV (image_offset);
break;
case EOBJ__C_EEOM:
- return TRUE;
+ return true;
default:
continue;
}
if (!res)
{
vms_debug2 ((2, "slurp eobj type %d failed\n", type));
- return FALSE;
+ return false;
}
}
}
@@ -8411,7 +8409,7 @@ alpha_vms_sizeof_headers (bfd *abfd ATTRIBUTE_UNUSED,
/* Add a linkage pair fixup at address SECT + OFFSET to SHLIB. */
-static bfd_boolean
+static bool
alpha_vms_add_fixup_lp (struct bfd_link_info *info, bfd *src, bfd *shlib)
{
struct alpha_vms_shlib_el *sl;
@@ -8421,18 +8419,18 @@ alpha_vms_add_fixup_lp (struct bfd_link_info *info, bfd *src, bfd *shlib)
sl = &VEC_EL (alpha_vms_link_hash (info)->shrlibs,
struct alpha_vms_shlib_el, PRIV2 (shlib, shr_index));
- sl->has_fixups = TRUE;
+ sl->has_fixups = true;
p = VEC_APPEND (sl->lp, bfd_vma);
if (p == NULL)
- return FALSE;
+ return false;
*p = sect->output_section->vma + sect->output_offset + offset;
sect->output_section->flags |= SEC_RELOC;
- return TRUE;
+ return true;
}
/* Add a code address fixup at address SECT + OFFSET to SHLIB. */
-static bfd_boolean
+static bool
alpha_vms_add_fixup_ca (struct bfd_link_info *info, bfd *src, bfd *shlib)
{
struct alpha_vms_shlib_el *sl;
@@ -8442,18 +8440,18 @@ alpha_vms_add_fixup_ca (struct bfd_link_info *info, bfd *src, bfd *shlib)
sl = &VEC_EL (alpha_vms_link_hash (info)->shrlibs,
struct alpha_vms_shlib_el, PRIV2 (shlib, shr_index));
- sl->has_fixups = TRUE;
+ sl->has_fixups = true;
p = VEC_APPEND (sl->ca, bfd_vma);
if (p == NULL)
- return FALSE;
+ return false;
*p = sect->output_section->vma + sect->output_offset + offset;
sect->output_section->flags |= SEC_RELOC;
- return TRUE;
+ return true;
}
/* Add a quad word relocation fixup at address SECT + OFFSET to SHLIB. */
-static bfd_boolean
+static bool
alpha_vms_add_fixup_qr (struct bfd_link_info *info, bfd *src,
bfd *shlib, bfd_vma vec)
{
@@ -8464,37 +8462,37 @@ alpha_vms_add_fixup_qr (struct bfd_link_info *info, bfd *src,
sl = &VEC_EL (alpha_vms_link_hash (info)->shrlibs,
struct alpha_vms_shlib_el, PRIV2 (shlib, shr_index));
- sl->has_fixups = TRUE;
+ sl->has_fixups = true;
r = VEC_APPEND (sl->qr, struct alpha_vms_vma_ref);
if (r == NULL)
- return FALSE;
+ return false;
r->vma = sect->output_section->vma + sect->output_offset + offset;
r->ref = vec;
sect->output_section->flags |= SEC_RELOC;
- return TRUE;
+ return true;
}
-static bfd_boolean
+static bool
alpha_vms_add_fixup_lr (struct bfd_link_info *info ATTRIBUTE_UNUSED,
unsigned int shr ATTRIBUTE_UNUSED,
bfd_vma vec ATTRIBUTE_UNUSED)
{
/* Not yet supported. */
- return FALSE;
+ return false;
}
/* Add relocation. FIXME: Not yet emitted. */
-static bfd_boolean
+static bool
alpha_vms_add_lw_reloc (struct bfd_link_info *info ATTRIBUTE_UNUSED)
{
- return FALSE;
+ return false;
}
-static bfd_boolean
+static bool
alpha_vms_add_qw_reloc (struct bfd_link_info *info ATTRIBUTE_UNUSED)
{
- return FALSE;
+ return false;
}
static struct bfd_hash_entry *
@@ -8571,7 +8569,7 @@ alpha_vms_bfd_link_hash_table_create (bfd *abfd)
return &ret->root;
}
-static bfd_boolean
+static bool
alpha_vms_link_add_object_symbols (bfd *abfd, struct bfd_link_info *info)
{
unsigned int i;
@@ -8584,14 +8582,14 @@ alpha_vms_link_add_object_symbols (bfd *abfd, struct bfd_link_info *info)
asymbol sym;
if (!alpha_vms_convert_symbol (abfd, e, &sym))
- return FALSE;
+ return false;
if ((e->flags & EGSY__V_DEF) && abfd->selective_search)
{
/* In selective_search mode, only add definition that are
required. */
h = (struct alpha_vms_link_hash_entry *)bfd_link_hash_lookup
- (info->hash, sym.name, FALSE, FALSE, FALSE);
+ (info->hash, sym.name, false, false, false);
if (h == NULL || h->root.type != bfd_link_hash_undefined)
continue;
}
@@ -8601,8 +8599,8 @@ alpha_vms_link_add_object_symbols (bfd *abfd, struct bfd_link_info *info)
h_root = (struct bfd_link_hash_entry *) h;
if (!_bfd_generic_link_add_one_symbol (info, abfd, sym.name, sym.flags,
sym.section, sym.value, NULL,
- FALSE, FALSE, &h_root))
- return FALSE;
+ false, false, &h_root))
+ return false;
h = (struct alpha_vms_link_hash_entry *) h_root;
if ((e->flags & EGSY__V_DEF)
@@ -8622,7 +8620,7 @@ alpha_vms_link_add_object_symbols (bfd *abfd, struct bfd_link_info *info)
shlib = VEC_APPEND (alpha_vms_link_hash (info)->shrlibs,
struct alpha_vms_shlib_el);
if (shlib == NULL)
- return FALSE;
+ return false;
shlib->abfd = abfd;
VEC_INIT (shlib->ca);
VEC_INIT (shlib->lp);
@@ -8630,10 +8628,10 @@ alpha_vms_link_add_object_symbols (bfd *abfd, struct bfd_link_info *info)
PRIV (shr_index) = VEC_COUNT (alpha_vms_link_hash (info)->shrlibs) - 1;
}
- return TRUE;
+ return true;
}
-static bfd_boolean
+static bool
alpha_vms_link_add_archive_symbols (bfd *abfd, struct bfd_link_info *info)
{
int pass;
@@ -8644,7 +8642,7 @@ alpha_vms_link_add_archive_symbols (bfd *abfd, struct bfd_link_info *info)
if (info->output_bfd->xvec != abfd->xvec)
{
bfd_set_error (bfd_error_wrong_format);
- return FALSE;
+ return false;
}
/* The archive_pass field in the archive itself is used to
@@ -8691,7 +8689,7 @@ alpha_vms_link_add_archive_symbols (bfd *abfd, struct bfd_link_info *info)
element = bfd_get_elt_at_index (abfd, symidx);
if (element == NULL)
- return FALSE;
+ return false;
if (element->archive_pass == -1 || element->archive_pass == pass)
{
@@ -8702,7 +8700,7 @@ alpha_vms_link_add_archive_symbols (bfd *abfd, struct bfd_link_info *info)
if (! bfd_check_format (element, bfd_object))
{
element->archive_pass = -1;
- return FALSE;
+ return false;
}
orig_element = element;
@@ -8712,7 +8710,7 @@ alpha_vms_link_add_archive_symbols (bfd *abfd, struct bfd_link_info *info)
if (element == NULL || !bfd_check_format (element, bfd_object))
{
orig_element->archive_pass = -1;
- return FALSE;
+ return false;
}
}
@@ -8723,15 +8721,15 @@ alpha_vms_link_add_archive_symbols (bfd *abfd, struct bfd_link_info *info)
->add_archive_element) (info, element, h->root.string, &element))
continue;
if (!alpha_vms_link_add_object_symbols (element, info))
- return FALSE;
+ return false;
orig_element->archive_pass = pass;
}
- return TRUE;
+ return true;
}
-static bfd_boolean
+static bool
alpha_vms_bfd_link_add_symbols (bfd *abfd, struct bfd_link_info *info)
{
switch (bfd_get_format (abfd))
@@ -8748,11 +8746,11 @@ alpha_vms_bfd_link_add_symbols (bfd *abfd, struct bfd_link_info *info)
break;
default:
bfd_set_error (bfd_error_wrong_format);
- return FALSE;
+ return false;
}
}
-static bfd_boolean
+static bool
alpha_vms_build_fixups (struct bfd_link_info *info)
{
struct alpha_vms_link_hash_table *t = alpha_vms_link_hash (info);
@@ -8810,7 +8808,7 @@ alpha_vms_build_fixups (struct bfd_link_info *info)
/* Finish now if there is no content. */
if (ca_sz + lp_sz + qr_sz == 0)
- return TRUE;
+ return true;
/* Add an eicp entry for the fixup itself. */
chgprt_num = 1;
@@ -8829,7 +8827,7 @@ alpha_vms_build_fixups (struct bfd_link_info *info)
sz = (sz + VMS_BLOCK_SIZE - 1) & ~(VMS_BLOCK_SIZE - 1);
content = bfd_zalloc (info->output_bfd, sz);
if (content == NULL)
- return FALSE;
+ return false;
sec = alpha_vms_link_hash (info)->fixup;
sec->contents = content;
@@ -9017,13 +9015,13 @@ alpha_vms_build_fixups (struct bfd_link_info *info)
off += sizeof (struct vms_eicp);
}
- return TRUE;
+ return true;
}
/* Called by bfd_hash_traverse to fill the symbol table.
Return FALSE in case of failure. */
-static bfd_boolean
+static bool
alpha_vms_link_output_symbol (struct bfd_hash_entry *bh, void *infov)
{
struct bfd_link_hash_entry *hc = (struct bfd_link_hash_entry *) bh;
@@ -9035,19 +9033,19 @@ alpha_vms_link_output_symbol (struct bfd_hash_entry *bh, void *infov)
{
hc = hc->u.i.link;
if (hc->type == bfd_link_hash_new)
- return TRUE;
+ return true;
}
h = (struct alpha_vms_link_hash_entry *) hc;
switch (h->root.type)
{
case bfd_link_hash_undefined:
- return TRUE;
+ return true;
case bfd_link_hash_new:
case bfd_link_hash_warning:
abort ();
case bfd_link_hash_undefweak:
- return TRUE;
+ return true;
case bfd_link_hash_defined:
case bfd_link_hash_defweak:
{
@@ -9055,23 +9053,23 @@ alpha_vms_link_output_symbol (struct bfd_hash_entry *bh, void *infov)
/* FIXME: this is certainly a symbol from a dynamic library. */
if (bfd_is_abs_section (sec))
- return TRUE;
+ return true;
if (sec->owner->flags & DYNAMIC)
- return TRUE;
+ return true;
}
break;
case bfd_link_hash_common:
break;
case bfd_link_hash_indirect:
- return TRUE;
+ return true;
}
/* Do not write not kept symbols. */
if (info->strip == strip_some
&& bfd_hash_lookup (info->keep_hash, h->root.root.string,
- FALSE, FALSE) != NULL)
- return TRUE;
+ false, false) != NULL)
+ return true;
if (h->sym == NULL)
{
@@ -9099,12 +9097,12 @@ alpha_vms_link_output_symbol (struct bfd_hash_entry *bh, void *infov)
sym = h->sym;
if (!add_symbol_entry (info->output_bfd, sym))
- return FALSE;
+ return false;
- return TRUE;
+ return true;
}
-static bfd_boolean
+static bool
alpha_vms_bfd_final_link (bfd *abfd, struct bfd_link_info *info)
{
asection *o;
@@ -9121,7 +9119,7 @@ alpha_vms_bfd_final_link (bfd *abfd, struct bfd_link_info *info)
/* FIXME: we do not yet support relocatable link. It is not obvious
how to do it for debug infos. */
(*info->callbacks->einfo)(_("%P: relocatable link is not supported\n"));
- return FALSE;
+ return false;
}
abfd->outsymbols = NULL;
@@ -9131,7 +9129,7 @@ alpha_vms_bfd_final_link (bfd *abfd, struct bfd_link_info *info)
for (o = abfd->sections; o != NULL; o = o->next)
for (p = o->map_head.link_order; p != NULL; p = p->next)
if (p->type == bfd_indirect_link_order)
- p->u.indirect.section->linker_mark = TRUE;
+ p->u.indirect.section->linker_mark = true;
#if 0
/* Handle all the link order information for the sections. */
@@ -9218,7 +9216,7 @@ alpha_vms_bfd_final_link (bfd *abfd, struct bfd_link_info *info)
i = 0;
PRIV (transfer_address[i++]) = 0xffffffff00000340ULL; /* SYS$IMGACT */
- h = bfd_link_hash_lookup (info->hash, "LIB$INITIALIZE", FALSE, FALSE, TRUE);
+ h = bfd_link_hash_lookup (info->hash, "LIB$INITIALIZE", false, false, true);
if (h != NULL && h->type == bfd_link_hash_defined)
PRIV (transfer_address[i++]) =
alpha_vms_get_sym_value (h->u.def.section, h->u.def.value);
@@ -9237,7 +9235,7 @@ alpha_vms_bfd_final_link (bfd *abfd, struct bfd_link_info *info)
{
o->contents = bfd_alloc (abfd, o->size);
if (o->contents == NULL)
- return FALSE;
+ return false;
}
if (o->flags & SEC_LOAD)
{
@@ -9256,7 +9254,7 @@ alpha_vms_bfd_final_link (bfd *abfd, struct bfd_link_info *info)
(info->output_bfd, "$FIXUP$",
SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_LINKER_CREATED);
if (fixupsec == NULL)
- return FALSE;
+ return false;
last_addr = (last_addr + 0xffff) & ~0xffff;
fixupsec->vma = last_addr;
@@ -9275,7 +9273,7 @@ alpha_vms_bfd_final_link (bfd *abfd, struct bfd_link_info *info)
(info->output_bfd, "$DMT$",
SEC_DEBUGGING | SEC_HAS_CONTENTS | SEC_LINKER_CREATED);
if (dmt == NULL)
- return FALSE;
+ return false;
}
else
dmt = NULL;
@@ -9290,7 +9288,7 @@ alpha_vms_bfd_final_link (bfd *abfd, struct bfd_link_info *info)
}
if (!alpha_vms_read_sections_content (sub, info))
- return FALSE;
+ return false;
}
/* Handle all the link order information for the sections.
@@ -9304,13 +9302,13 @@ alpha_vms_bfd_final_link (bfd *abfd, struct bfd_link_info *info)
case bfd_section_reloc_link_order:
case bfd_symbol_reloc_link_order:
abort ();
- return FALSE;
+ return false;
case bfd_indirect_link_order:
/* Already done. */
break;
default:
if (! _bfd_default_link_order (abfd, info, o, p))
- return FALSE;
+ return false;
break;
}
}
@@ -9318,7 +9316,7 @@ alpha_vms_bfd_final_link (bfd *abfd, struct bfd_link_info *info)
/* Compute fixups. */
if (!alpha_vms_build_fixups (info))
- return FALSE;
+ return false;
/* Compute the DMT. */
if (dmt != NULL)
@@ -9384,7 +9382,7 @@ alpha_vms_bfd_final_link (bfd *abfd, struct bfd_link_info *info)
{
contents = bfd_zalloc (info->output_bfd, off);
if (contents == NULL)
- return FALSE;
+ return false;
dmt->contents = contents;
dmt->size = off;
}
@@ -9395,14 +9393,14 @@ alpha_vms_bfd_final_link (bfd *abfd, struct bfd_link_info *info)
}
}
- return TRUE;
+ return true;
}
/* Read the contents of a section.
buf points to a buffer of buf_size bytes to be filled with
section data (starting at offset into section) */
-static bfd_boolean
+static bool
alpha_vms_get_section_contents (bfd *abfd, asection *section,
void *buf, file_ptr offset,
bfd_size_type count)
@@ -9419,7 +9417,7 @@ alpha_vms_get_section_contents (bfd *abfd, asection *section,
|| offset + count > section->size)
{
bfd_set_error (bfd_error_invalid_operation);
- return FALSE;
+ return false;
}
/* If the section is already in memory, just copy it. */
@@ -9427,10 +9425,10 @@ alpha_vms_get_section_contents (bfd *abfd, asection *section,
{
BFD_ASSERT (section->contents != NULL);
memcpy (buf, section->contents + offset, count);
- return TRUE;
+ return true;
}
if (section->size == 0)
- return TRUE;
+ return true;
/* Alloc in memory and read ETIRs. */
for (sec = abfd->sections; sec; sec = sec->next)
@@ -9441,22 +9439,22 @@ alpha_vms_get_section_contents (bfd *abfd, asection *section,
{
sec->contents = bfd_alloc (abfd, sec->size);
if (sec->contents == NULL)
- return FALSE;
+ return false;
}
}
if (!alpha_vms_read_sections_content (abfd, NULL))
- return FALSE;
+ return false;
for (sec = abfd->sections; sec; sec = sec->next)
if (sec->contents)
sec->flags |= SEC_IN_MEMORY;
memcpy (buf, section->contents + offset, count);
- return TRUE;
+ return true;
}
/* Set the format of a file being written. */
-static bfd_boolean
+static bool
alpha_vms_mkobject (bfd * abfd)
{
const bfd_arch_info_type *arch;
@@ -9464,22 +9462,22 @@ alpha_vms_mkobject (bfd * abfd)
vms_debug2 ((1, "alpha_vms_mkobject (%p)\n", abfd));
if (!vms_initialize (abfd))
- return FALSE;
+ return false;
PRIV (recwr.buf) = bfd_alloc (abfd, MAX_OUTREC_SIZE);
if (PRIV (recwr.buf) == NULL)
- return FALSE;
+ return false;
arch = bfd_scan_arch ("alpha");
if (arch == 0)
{
bfd_set_error (bfd_error_wrong_format);
- return FALSE;
+ return false;
}
abfd->arch_info = arch;
- return TRUE;
+ return true;
}
@@ -9487,13 +9485,13 @@ alpha_vms_mkobject (bfd * abfd)
/* Called when the BFD is being closed to do any necessary cleanup. */
-static bfd_boolean
+static bool
vms_close_and_cleanup (bfd * abfd)
{
vms_debug2 ((1, "vms_close_and_cleanup (%p)\n", abfd));
if (abfd == NULL || abfd->tdata.any == NULL)
- return TRUE;
+ return true;
if (abfd->format == bfd_object)
{
@@ -9505,9 +9503,9 @@ vms_close_and_cleanup (bfd * abfd)
/* Last step on VMS is to convert the file to variable record length
format. */
if (!bfd_cache_close (abfd))
- return FALSE;
+ return false;
if (!_bfd_vms_convert_to_var_unix_filename (abfd->filename))
- return FALSE;
+ return false;
}
#endif
}
@@ -9517,7 +9515,7 @@ vms_close_and_cleanup (bfd * abfd)
/* Called when a new section is created. */
-static bfd_boolean
+static bool
vms_new_section_hook (bfd * abfd, asection *section)
{
size_t amt;
@@ -9526,14 +9524,14 @@ vms_new_section_hook (bfd * abfd, asection *section)
abfd, section->index, section->name));
if (!bfd_set_section_alignment (section, 0))
- return FALSE;
+ return false;
vms_debug2 ((7, "%u: %s\n", section->index, section->name));
amt = sizeof (struct vms_section_data_struct);
section->used_by_bfd = bfd_zalloc (abfd, amt);
if (section->used_by_bfd == NULL)
- return FALSE;
+ return false;
/* Create the section symbol. */
return _bfd_generic_new_section_hook (abfd, section);
@@ -9632,7 +9630,7 @@ vms_get_symbol_info (bfd * abfd ATTRIBUTE_UNUSED,
/* Return TRUE if the given symbol sym in the BFD abfd is
a compiler generated local label, else return FALSE. */
-static bfd_boolean
+static bool
vms_bfd_is_local_label_name (bfd * abfd ATTRIBUTE_UNUSED,
const char *name)
{
@@ -9650,7 +9648,7 @@ vms_bfd_is_local_label_name (bfd * abfd ATTRIBUTE_UNUSED,
SEC_HAS_CONTENTS attribute, so nothing can be written to it.
o and some more too */
-static bfd_boolean
+static bool
_bfd_vms_set_section_contents (bfd * abfd,
asection *section,
const void * location,
@@ -9661,25 +9659,25 @@ _bfd_vms_set_section_contents (bfd * abfd,
{
section->contents = bfd_alloc (abfd, section->size);
if (section->contents == NULL)
- return FALSE;
+ return false;
memcpy (section->contents + offset, location, (size_t) count);
}
- return TRUE;
+ return true;
}
/* Set the architecture and machine type in BFD abfd to arch and mach.
Find the correct pointer to a structure and insert it into the arch_info
pointer. */
-static bfd_boolean
+static bool
alpha_vms_set_arch_mach (bfd *abfd,
enum bfd_architecture arch, unsigned long mach)
{
if (arch != bfd_arch_alpha
&& arch != bfd_arch_unknown)
- return FALSE;
+ return false;
return bfd_default_set_arch_mach (abfd, arch, mach);
}