aboutsummaryrefslogtreecommitdiff
path: root/bfd/vms-tir.c
diff options
context:
space:
mode:
authorAlan Modra <amodra@gmail.com>2002-11-30 08:39:46 +0000
committerAlan Modra <amodra@gmail.com>2002-11-30 08:39:46 +0000
commitb34976b65aea8f33690229600bbf4527ec3118e1 (patch)
tree6411348664ef81ca2aa2e3ff325116e6e6502edf /bfd/vms-tir.c
parent583d52d728c60410c0d39bae68ee536a7b9e7a6c (diff)
downloadgdb-b34976b65aea8f33690229600bbf4527ec3118e1.zip
gdb-b34976b65aea8f33690229600bbf4527ec3118e1.tar.gz
gdb-b34976b65aea8f33690229600bbf4527ec3118e1.tar.bz2
s/boolean/bfd_boolean/ s/true/TRUE/ s/false/FALSE/. Simplify
comparisons of bfd_boolean vars with TRUE/FALSE. Formatting.
Diffstat (limited to 'bfd/vms-tir.c')
-rw-r--r--bfd/vms-tir.c300
1 files changed, 162 insertions, 138 deletions
diff --git a/bfd/vms-tir.c b/bfd/vms-tir.c
index 8e9eef4..bd748ca 100644
--- a/bfd/vms-tir.c
+++ b/bfd/vms-tir.c
@@ -41,27 +41,48 @@
#include "vms.h"
-static void image_set_ptr PARAMS ((bfd *abfd, int psect, uquad offset));
-static void image_inc_ptr PARAMS ((bfd *abfd, uquad offset));
-static void image_dump PARAMS ((bfd *abfd, unsigned char *ptr, int size, int offset));
-static void image_write_b PARAMS ((bfd *abfd, unsigned int value));
-static void image_write_w PARAMS ((bfd *abfd, unsigned int value));
-static void image_write_l PARAMS ((bfd *abfd, unsigned long value));
-static void image_write_q PARAMS ((bfd *abfd, uquad value));
-static int check_section PARAMS ((bfd *, int));
-static boolean etir_sta PARAMS ((bfd *, int, unsigned char *));
-static boolean etir_sto PARAMS ((bfd *, int, unsigned char *));
-static boolean etir_opr PARAMS ((bfd *, int, unsigned char *));
-static boolean etir_ctl PARAMS ((bfd *, int, unsigned char *));
-static boolean etir_stc PARAMS ((bfd *, int, unsigned char *));
-static asection *new_section PARAMS ((bfd *, int));
-static int alloc_section PARAMS ((bfd *, unsigned int));
-static int etir_cmd PARAMS ((bfd *, int, unsigned char *));
-static int analyze_tir PARAMS ((bfd *, unsigned char *, unsigned int));
-static int analyze_etir PARAMS ((bfd *, unsigned char *, unsigned int));
-static unsigned char * tir_opr PARAMS ((bfd *, unsigned char *));
-static const char * tir_cmd_name PARAMS ((int));
-static const char * cmd_name PARAMS ((int));
+static void image_set_ptr
+ PARAMS ((bfd *abfd, int psect, uquad offset));
+static void image_inc_ptr
+ PARAMS ((bfd *abfd, uquad offset));
+static void image_dump
+ PARAMS ((bfd *abfd, unsigned char *ptr, int size, int offset));
+static void image_write_b
+ PARAMS ((bfd *abfd, unsigned int value));
+static void image_write_w
+ PARAMS ((bfd *abfd, unsigned int value));
+static void image_write_l
+ PARAMS ((bfd *abfd, unsigned long value));
+static void image_write_q
+ PARAMS ((bfd *abfd, uquad value));
+static int check_section
+ PARAMS ((bfd *, int));
+static bfd_boolean etir_sta
+ PARAMS ((bfd *, int, unsigned char *));
+static bfd_boolean etir_sto
+ PARAMS ((bfd *, int, unsigned char *));
+static bfd_boolean etir_opr
+ PARAMS ((bfd *, int, unsigned char *));
+static bfd_boolean etir_ctl
+ PARAMS ((bfd *, int, unsigned char *));
+static bfd_boolean etir_stc
+ PARAMS ((bfd *, int, unsigned char *));
+static asection *new_section
+ PARAMS ((bfd *, int));
+static int alloc_section
+ PARAMS ((bfd *, unsigned int));
+static int etir_cmd
+ PARAMS ((bfd *, int, unsigned char *));
+static int analyze_tir
+ PARAMS ((bfd *, unsigned char *, unsigned int));
+static int analyze_etir
+ PARAMS ((bfd *, unsigned char *, unsigned int));
+static unsigned char * tir_opr
+ PARAMS ((bfd *, unsigned char *));
+static const char * tir_cmd_name
+ PARAMS ((int));
+static const char * cmd_name
+ PARAMS ((int));
static int
@@ -282,7 +303,7 @@ cmd_name (cmd)
see table B-8 of the openVMS linker manual. */
-static boolean
+static bfd_boolean
etir_sta (abfd, cmd, ptr)
bfd *abfd;
int cmd;
@@ -310,7 +331,7 @@ etir_sta (abfd, cmd, ptr)
name = _bfd_vms_save_counted_string (ptr);
entry = (vms_symbol_entry *)
- bfd_hash_lookup (PRIV (vms_symbol_table), name, false, false);
+ bfd_hash_lookup (PRIV (vms_symbol_table), name, FALSE, FALSE);
if (entry == (vms_symbol_entry *) NULL)
{
#if VMS_DEBUG
@@ -362,7 +383,7 @@ etir_sta (abfd, cmd, ptr)
(*_bfd_error_handler) (_("bad section index in %s"),
cmd_name (cmd));
bfd_set_error (bfd_error_bad_value);
- return false;
+ return FALSE;
}
dummy = bfd_getl64 (ptr+4);
_bfd_vms_push (abfd, dummy, (int) psect);
@@ -373,18 +394,18 @@ etir_sta (abfd, cmd, ptr)
case ETIR_S_C_STA_MOD:
case ETIR_S_C_STA_CKARG:
(*_bfd_error_handler) (_("unsupported STA cmd %s"), cmd_name (cmd));
- return false;
+ return FALSE;
break;
default:
(*_bfd_error_handler) (_("reserved STA cmd %d"), cmd);
- return false;
+ return FALSE;
break;
}
#if VMS_DEBUG
_bfd_vms_debug (5, "etir_sta true\n");
#endif
- return true;
+ return TRUE;
}
/*
@@ -397,7 +418,7 @@ etir_sta (abfd, cmd, ptr)
see table B-9 of the openVMS linker manual. */
-static boolean
+static bfd_boolean
etir_sto (abfd, cmd, ptr)
bfd *abfd;
int cmd;
@@ -485,12 +506,12 @@ etir_sto (abfd, cmd, ptr)
name = _bfd_vms_save_counted_string (ptr);
entry = (vms_symbol_entry *) bfd_hash_lookup (PRIV (vms_symbol_table),
- name, false, false);
+ name, FALSE, FALSE);
if (entry == (vms_symbol_entry *) NULL)
{
(*_bfd_error_handler) (_("%s: no symbol \"%s\""),
cmd_name (cmd), name);
- return false;
+ return FALSE;
}
else
/* FIXME, reloc. */
@@ -508,12 +529,12 @@ etir_sto (abfd, cmd, ptr)
name = _bfd_vms_save_counted_string (ptr);
entry = (vms_symbol_entry *) bfd_hash_lookup (PRIV (vms_symbol_table),
- name, false, false);
+ name, FALSE, FALSE);
if (entry == (vms_symbol_entry *) NULL)
{
(*_bfd_error_handler) (_("%s: no symbol \"%s\""),
cmd_name (cmd), name);
- return false;
+ return FALSE;
}
else
image_write_q (abfd, (uquad) (entry->symbol->value)); /* FIXME, reloc */
@@ -561,7 +582,7 @@ etir_sto (abfd, cmd, ptr)
name = _bfd_vms_save_counted_string (ptr);
entry = (vms_symbol_entry *) bfd_hash_lookup (PRIV (vms_symbol_table),
- name, false, false);
+ name, FALSE, FALSE);
if (entry == (vms_symbol_entry *) NULL)
{
#if VMS_DEBUG
@@ -591,7 +612,7 @@ etir_sto (abfd, cmd, ptr)
break;
}
- return true;
+ return TRUE;
}
/* Stack operator commands
@@ -601,7 +622,7 @@ etir_sto (abfd, cmd, ptr)
see table B-10 of the openVMS linker manual. */
-static boolean
+static bfd_boolean
etir_opr (abfd, cmd, ptr)
bfd *abfd;
int cmd;
@@ -709,14 +730,14 @@ etir_opr (abfd, cmd, ptr)
break;
}
- return true;
+ return TRUE;
}
/* Control commands.
See table B-11 of the openVMS linker manual. */
-static boolean
+static bfd_boolean
etir_ctl (abfd, cmd, ptr)
bfd *abfd;
int cmd;
@@ -776,14 +797,14 @@ etir_ctl (abfd, cmd, ptr)
(*_bfd_error_handler) (_("reserved CTL cmd %d"), cmd);
break;
}
- return true;
+ return TRUE;
}
/* store conditional commands
See table B-12 and B-13 of the openVMS linker manual. */
-static boolean
+static bfd_boolean
etir_stc (abfd, cmd, ptr)
bfd *abfd;
int cmd;
@@ -805,9 +826,9 @@ etir_stc (abfd, cmd, ptr)
/* 201 Store-conditional Linkage Pair with Procedure Signature
arg: lw linkage index
- cs procedure name
- by signature length
- da signature. */
+ cs procedure name
+ by signature length
+ da signature. */
case ETIR_S_C_STC_LP_PSB:
image_inc_ptr (abfd, (uquad) 16); /* skip entry,procval */
@@ -815,7 +836,7 @@ etir_stc (abfd, cmd, ptr)
/* 202 Store-conditional Address at global address
arg: lw linkage index
- cs global name */
+ cs global name. */
case ETIR_S_C_STC_GBL:
(*_bfd_error_handler) (_("%s: not supported"), cmd_name (cmd));
@@ -823,7 +844,7 @@ etir_stc (abfd, cmd, ptr)
/* 203 Store-conditional Code Address at global address
arg: lw linkage index
- cs procedure name */
+ cs procedure name. */
case ETIR_S_C_STC_GCA:
(*_bfd_error_handler) (_("%s: not supported"), cmd_name (cmd));
@@ -831,8 +852,8 @@ etir_stc (abfd, cmd, ptr)
/* 204 Store-conditional Address at psect + offset
arg: lw linkage index
- lw psect index
- qw offset */
+ lw psect index
+ qw offset. */
case ETIR_S_C_STC_PS:
(*_bfd_error_handler) (_("%s: not supported"), cmd_name (cmd));
@@ -899,7 +920,7 @@ etir_stc (abfd, cmd, ptr)
#endif
break;
}
- return true;
+ return TRUE;
}
static asection *
@@ -970,12 +991,12 @@ alloc_section (abfd, idx)
}
/* tir_sta
-
+
vax stack commands
-
+
Handle sta_xxx commands in tir section
ptr points to data area in record
-
+
See table 7-3 of the VAX/VMS linker manual. */
static unsigned char *
@@ -992,9 +1013,9 @@ tir_sta (bfd *abfd, unsigned char *ptr)
/* stack */
case TIR_S_C_STA_GBL:
/* stack global
- arg: cs symbol name
-
- stack 32 bit value of symbol (high bits set to 0). */
+ arg: cs symbol name
+
+ stack 32 bit value of symbol (high bits set to 0). */
{
char *name;
vms_symbol_entry *entry;
@@ -1012,26 +1033,26 @@ tir_sta (bfd *abfd, unsigned char *ptr)
case TIR_S_C_STA_SB:
/* stack signed byte
- arg: by value
-
- stack byte value, sign extend to 32 bit. */
+ arg: by value
+
+ stack byte value, sign extend to 32 bit. */
_bfd_vms_push (abfd, (uquad) *ptr++, -1);
break;
case TIR_S_C_STA_SW:
/* stack signed short word
- arg: sh value
-
- stack 16 bit value, sign extend to 32 bit. */
+ arg: sh value
+
+ stack 16 bit value, sign extend to 32 bit. */
_bfd_vms_push (abfd, (uquad) bfd_getl16 (ptr), -1);
ptr += 2;
break;
case TIR_S_C_STA_LW:
/* stack signed longword
- arg: lw value
-
- stack 32 bit value. */
+ arg: lw value
+
+ stack 32 bit value. */
_bfd_vms_push (abfd, (uquad) bfd_getl32 (ptr), -1);
ptr += 4;
break;
@@ -1039,9 +1060,9 @@ tir_sta (bfd *abfd, unsigned char *ptr)
case TIR_S_C_STA_PB:
case TIR_S_C_STA_WPB:
/* stack psect base plus byte offset (word index)
- arg: by section index
- (sh section index)
- by signed byte offset. */
+ arg: by section index
+ (sh section index)
+ by signed byte offset. */
{
unsigned long dummy;
unsigned int psect;
@@ -1066,9 +1087,9 @@ tir_sta (bfd *abfd, unsigned char *ptr)
case TIR_S_C_STA_PW:
case TIR_S_C_STA_WPW:
/* stack psect base plus word offset (word index)
- arg: by section index
- (sh section index)
- sh signed short offset. */
+ arg: by section index
+ (sh section index)
+ sh signed short offset. */
{
unsigned long dummy;
unsigned int psect;
@@ -1093,9 +1114,9 @@ tir_sta (bfd *abfd, unsigned char *ptr)
case TIR_S_C_STA_PL:
case TIR_S_C_STA_WPL:
/* stack psect base plus long offset (word index)
- arg: by section index
- (sh section index)
- lw signed longword offset. */
+ arg: by section index
+ (sh section index)
+ lw signed longword offset. */
{
unsigned long dummy;
unsigned int psect;
@@ -1119,41 +1140,41 @@ tir_sta (bfd *abfd, unsigned char *ptr)
case TIR_S_C_STA_UB:
/* stack unsigned byte
- arg: by value
-
- stack byte value. */
+ arg: by value
+
+ stack byte value. */
_bfd_vms_push (abfd, (uquad) *ptr++, -1);
break;
case TIR_S_C_STA_UW:
/* stack unsigned short word
- arg: sh value
-
- stack 16 bit value. */
+ arg: sh value
+
+ stack 16 bit value. */
_bfd_vms_push (abfd, (uquad) bfd_getl16 (ptr), -1);
ptr += 2;
break;
case TIR_S_C_STA_BFI:
/* stack byte from image
- arg: none. */
+ arg: none. */
/* FALLTHRU */
case TIR_S_C_STA_WFI:
/* stack byte from image
- arg: none. */
+ arg: none. */
/* FALLTHRU */
case TIR_S_C_STA_LFI:
/* stack byte from image
- arg: none. */
+ arg: none. */
(*_bfd_error_handler) (_("stack-from-image not implemented"));
return NULL;
case TIR_S_C_STA_EPM:
/* stack entry point mask
- arg: cs symbol name
-
- stack (unsigned) entry point mask of symbol
- err if symbol is no entry point. */
+ arg: cs symbol name
+
+ stack (unsigned) entry point mask of symbol
+ err if symbol is no entry point. */
{
char *name;
vms_symbol_entry *entry;
@@ -1171,20 +1192,20 @@ tir_sta (bfd *abfd, unsigned char *ptr)
case TIR_S_C_STA_CKARG:
/* compare procedure argument
- arg: cs symbol name
- by argument index
- da argument descriptor
-
- compare argument descriptor with symbol argument (ARG$V_PASSMECH)
- and stack TRUE (args match) or FALSE (args dont match) value. */
+ arg: cs symbol name
+ by argument index
+ da argument descriptor
+
+ compare argument descriptor with symbol argument (ARG$V_PASSMECH)
+ and stack TRUE (args match) or FALSE (args dont match) value. */
(*_bfd_error_handler) (_("PASSMECH not fully implemented"));
_bfd_vms_push (abfd, (uquad) 1, -1);
break;
case TIR_S_C_STA_LSY:
/* stack local symbol value
- arg: sh environment index
- cs symbol name. */
+ arg: sh environment index
+ cs symbol name. */
{
int envidx;
char *name;
@@ -1204,9 +1225,9 @@ tir_sta (bfd *abfd, unsigned char *ptr)
case TIR_S_C_STA_LIT:
/* stack literal
- arg: by literal index
-
- stack literal. */
+ arg: by literal index
+
+ stack literal. */
ptr++;
_bfd_vms_push (abfd, (uquad) 0, -1);
(*_bfd_error_handler) (_("stack-literal not fully implemented"));
@@ -1214,11 +1235,11 @@ tir_sta (bfd *abfd, unsigned char *ptr)
case TIR_S_C_STA_LEPM:
/* stack local symbol entry point mask
- arg: sh environment index
- cs symbol name
-
- stack (unsigned) entry point mask of symbol
- err if symbol is no entry point. */
+ arg: sh environment index
+ cs symbol name
+
+ stack (unsigned) entry point mask of symbol
+ err if symbol is no entry point. */
{
int envidx;
char *name;
@@ -1277,12 +1298,12 @@ tir_cmd_name (cmd)
}
/* tir_sto
-
+
vax store commands
-
+
handle sto_xxx commands in tir section
ptr points to data area in record
-
+
See table 7-4 of the VAX/VMS linker manual. */
static unsigned char *
@@ -1300,28 +1321,28 @@ tir_sto (bfd *abfd, unsigned char *ptr)
{
case TIR_S_C_STO_SB:
/* store signed byte: pop stack, write byte
- arg: none. */
+ arg: none. */
dummy = _bfd_vms_pop (abfd, &psect);
image_write_b (abfd, dummy & 0xff); /* FIXME: check top bits */
break;
case TIR_S_C_STO_SW:
/* store signed word: pop stack, write word
- arg: none. */
+ arg: none. */
dummy = _bfd_vms_pop (abfd, &psect);
image_write_w (abfd, dummy & 0xffff); /* FIXME: check top bits */
break;
case TIR_S_C_STO_LW:
/* store longword: pop stack, write longword
- arg: none. */
+ arg: none. */
dummy = _bfd_vms_pop (abfd, &psect);
image_write_l (abfd, dummy & 0xffffffff); /* FIXME: check top bits */
break;
case TIR_S_C_STO_BD:
/* store byte displaced: pop stack, sub lc+1, write byte
- arg: none. */
+ arg: none. */
dummy = _bfd_vms_pop (abfd, &psect);
dummy -= ((PRIV (sections)[psect])->vma + 1);
image_write_b (abfd, dummy & 0xff);/* FIXME: check top bits */
@@ -1329,7 +1350,7 @@ tir_sto (bfd *abfd, unsigned char *ptr)
case TIR_S_C_STO_WD:
/* store word displaced: pop stack, sub lc+2, write word
- arg: none. */
+ arg: none. */
dummy = _bfd_vms_pop (abfd, &psect);
dummy -= ((PRIV (sections)[psect])->vma + 2);
image_write_w (abfd, dummy & 0xffff);/* FIXME: check top bits */
@@ -1337,7 +1358,7 @@ tir_sto (bfd *abfd, unsigned char *ptr)
case TIR_S_C_STO_LD:
/* store long displaced: pop stack, sub lc+4, write long
- arg: none. */
+ arg: none. */
dummy = _bfd_vms_pop (abfd, &psect);
dummy -= ((PRIV (sections)[psect])->vma + 4);
image_write_l (abfd, dummy & 0xffffffff);/* FIXME: check top bits */
@@ -1345,14 +1366,14 @@ tir_sto (bfd *abfd, unsigned char *ptr)
case TIR_S_C_STO_LI:
/* store short literal: pop stack, write byte
- arg: none. */
+ arg: none. */
dummy = _bfd_vms_pop (abfd, &psect);
image_write_b (abfd, dummy & 0xff);/* FIXME: check top bits */
break;
case TIR_S_C_STO_PIDR:
/* store position independent data reference: pop stack, write longword
- arg: none.
+ arg: none.
FIXME: incomplete ! */
dummy = _bfd_vms_pop (abfd, &psect);
image_write_l (abfd, dummy & 0xffffffff);
@@ -1360,8 +1381,8 @@ tir_sto (bfd *abfd, unsigned char *ptr)
case TIR_S_C_STO_PICR:
/* store position independent code reference: pop stack, write longword
- arg: none.
- FIXME: incomplete ! */
+ arg: none.
+ FIXME: incomplete ! */
dummy = _bfd_vms_pop (abfd, &psect);
image_write_b (abfd, 0x9f);
image_write_l (abfd, dummy & 0xffffffff);
@@ -1369,8 +1390,8 @@ tir_sto (bfd *abfd, unsigned char *ptr)
case TIR_S_C_STO_RIVB:
/* store repeated immediate variable bytes
- 1-byte count n field followed by n bytes of data
- pop stack, write n bytes <stack> times. */
+ 1-byte count n field followed by n bytes of data
+ pop stack, write n bytes <stack> times. */
size = *ptr++;
dummy = (unsigned long) _bfd_vms_pop (abfd, NULL);
while (dummy-- > 0L)
@@ -1430,7 +1451,7 @@ tir_sto (bfd *abfd, unsigned char *ptr)
all 32 bit signed arithmetic
all word just like a stack calculator
arguments are popped from stack, results are pushed on stack
-
+
See table 7-5 of the VAX/VMS linker manual. */
static unsigned char *
@@ -1573,7 +1594,7 @@ tir_opr (abfd, ptr)
}
/* control commands
-
+
See table 7-6 of the VAX/VMS linker manual. */
static unsigned char *
@@ -1590,7 +1611,7 @@ tir_ctl (bfd *abfd, unsigned char *ptr)
{
case TIR_S_C_CTL_SETRB:
/* Set relocation base: pop stack, set image location counter
- arg: none. */
+ arg: none. */
dummy = _bfd_vms_pop (abfd, &psect);
if (psect >= PRIV (section_count))
alloc_section (abfd, psect);
@@ -1599,14 +1620,14 @@ tir_ctl (bfd *abfd, unsigned char *ptr)
case TIR_S_C_CTL_AUGRB:
/* Augment relocation base: increment image location counter by offset
- arg: lw offset value. */
+ arg: lw offset value. */
dummy = bfd_getl32 (ptr);
image_inc_ptr (abfd, (uquad) dummy);
break;
case TIR_S_C_CTL_DFLOC:
/* Define location: pop index, save location counter under index
- arg: none. */
+ arg: none. */
dummy = _bfd_vms_pop (abfd, NULL);
(*_bfd_error_handler) (_("%s: not fully implemented"),
tir_cmd_name (ptr[-1]));
@@ -1614,7 +1635,7 @@ tir_ctl (bfd *abfd, unsigned char *ptr)
case TIR_S_C_CTL_STLOC:
/* Set location: pop index, restore location counter from index
- arg: none. */
+ arg: none. */
dummy = _bfd_vms_pop (abfd, &psect);
(*_bfd_error_handler) (_("%s: not fully implemented"),
tir_cmd_name (ptr[-1]));
@@ -1622,7 +1643,7 @@ tir_ctl (bfd *abfd, unsigned char *ptr)
case TIR_S_C_CTL_STKDL:
/* Stack defined location: pop index, push location counter from index
- arg: none. */
+ arg: none. */
dummy = _bfd_vms_pop (abfd, &psect);
(*_bfd_error_handler) (_("%s: not fully implemented"),
tir_cmd_name (ptr[-1]));
@@ -1648,7 +1669,7 @@ tir_cmd (bfd *abfd, unsigned char *ptr)
}
tir_table[] =
{
- { 0, TIR_S_C_MAXSTACOD, tir_sta },
+ { 0, TIR_S_C_MAXSTACOD, tir_sta },
{ TIR_S_C_MINSTOCOD, TIR_S_C_MAXSTOCOD, tir_sto },
{ TIR_S_C_MINOPRCOD, TIR_S_C_MAXOPRCOD, tir_opr },
{ TIR_S_C_MINCTLCOD, TIR_S_C_MAXCTLCOD, tir_ctl },
@@ -1701,7 +1722,7 @@ etir_cmd (abfd, cmd, ptr)
{
int mincod;
int maxcod;
- boolean (*explain) PARAMS ((bfd *, int, unsigned char *));
+ bfd_boolean (*explain) PARAMS ((bfd *, int, unsigned char *));
}
etir_table[] =
{
@@ -1891,9 +1912,12 @@ _bfd_vms_slurp_lnk (abfd, objtype)
This is still under construction and therefore not documented. */
-static void start_etir_record PARAMS ((bfd *abfd, int index, uquad offset, boolean justoffset));
-static void sto_imm PARAMS ((bfd *abfd, vms_section *sptr, bfd_vma vaddr, int index));
-static void end_etir_record PARAMS ((bfd *abfd));
+static void start_etir_record
+ PARAMS ((bfd *abfd, int index, uquad offset, bfd_boolean justoffset));
+static void sto_imm
+ PARAMS ((bfd *abfd, vms_section *sptr, bfd_vma vaddr, int index));
+static void end_etir_record
+ PARAMS ((bfd *abfd));
static void
sto_imm (abfd, sptr, vaddr, index)
@@ -1921,7 +1945,7 @@ sto_imm (abfd, sptr, vaddr, index)
if (_bfd_vms_output_check (abfd, size) < 0)
{ /* doesn't fit, split ! */
end_etir_record (abfd);
- start_etir_record (abfd, index, vaddr, false);
+ start_etir_record (abfd, index, vaddr, FALSE);
size = _bfd_vms_output_check (abfd, 0); /* get max size */
if (size > ssize) /* more than what's left ? */
size = ssize;
@@ -1950,7 +1974,7 @@ start_etir_record (abfd, index, offset, justoffset)
bfd *abfd;
int index;
uquad offset;
- boolean justoffset;
+ bfd_boolean justoffset;
{
if (!justoffset)
{
@@ -2055,7 +2079,7 @@ _bfd_vms_write_tir (abfd, objtype)
vaddr = (bfd_vma) (sptr->offset);
start_etir_record (abfd, section->index, (uquad) sptr->offset,
- false);
+ FALSE);
while (sptr != NULL) /* one STA_PQ, CTL_SETRB per vms_section */
{
@@ -2111,7 +2135,7 @@ _bfd_vms_write_tir (abfd, objtype)
end_etir_record (abfd);
start_etir_record (abfd,
section->index,
- vaddr, false);
+ vaddr, FALSE);
}
_bfd_vms_output_begin (abfd,
ETIR_S_C_STO_GBL_LW,
@@ -2128,7 +2152,7 @@ _bfd_vms_write_tir (abfd, objtype)
end_etir_record (abfd);
start_etir_record (abfd,
section->index,
- vaddr, false);
+ vaddr, FALSE);
}
_bfd_vms_output_begin (abfd,
ETIR_S_C_STA_LW,
@@ -2148,7 +2172,7 @@ _bfd_vms_write_tir (abfd, objtype)
end_etir_record (abfd);
start_etir_record (abfd,
section->index,
- vaddr, false);
+ vaddr, FALSE);
}
_bfd_vms_output_begin (abfd,
ETIR_S_C_STA_PQ,
@@ -2178,7 +2202,7 @@ _bfd_vms_write_tir (abfd, objtype)
end_etir_record (abfd);
start_etir_record (abfd,
section->index,
- vaddr, false);
+ vaddr, FALSE);
}
_bfd_vms_output_begin (abfd,
ETIR_S_C_STO_GBL,
@@ -2195,7 +2219,7 @@ _bfd_vms_write_tir (abfd, objtype)
end_etir_record (abfd);
start_etir_record (abfd,
section->index,
- vaddr, false);
+ vaddr, FALSE);
}
_bfd_vms_output_begin (abfd,
ETIR_S_C_STA_QW,
@@ -2215,7 +2239,7 @@ _bfd_vms_write_tir (abfd, objtype)
end_etir_record (abfd);
start_etir_record (abfd,
section->index,
- vaddr, false);
+ vaddr, FALSE);
}
_bfd_vms_output_begin (abfd,
ETIR_S_C_STA_PQ,
@@ -2266,7 +2290,7 @@ _bfd_vms_write_tir (abfd, objtype)
{
end_etir_record (abfd);
start_etir_record (abfd, section->index,
- vaddr, false);
+ vaddr, FALSE);
}
_bfd_vms_output_begin (abfd,
ETIR_S_C_STC_LP_PSB,
@@ -2291,7 +2315,7 @@ _bfd_vms_write_tir (abfd, objtype)
end_etir_record (abfd);
start_etir_record (abfd,
section->index,
- vaddr, false);
+ vaddr, FALSE);
}
_bfd_vms_output_begin (abfd,
ETIR_S_C_STO_CA,