#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));
\f
static int
see table B-8 of the openVMS linker manual. */
-static boolean
+static bfd_boolean
etir_sta (abfd, cmd, ptr)
bfd *abfd;
int cmd;
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
(*_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);
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;
}
/*
see table B-9 of the openVMS linker manual. */
-static boolean
+static bfd_boolean
etir_sto (abfd, cmd, ptr)
bfd *abfd;
int cmd;
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. */
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 */
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
break;
}
- return true;
+ return TRUE;
}
/* Stack operator commands
see table B-10 of the openVMS linker manual. */
-static boolean
+static bfd_boolean
etir_opr (abfd, cmd, ptr)
bfd *abfd;
int cmd;
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;
(*_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;
/* 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 */
/* 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));
/* 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));
/* 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));
#endif
break;
}
- return true;
+ return TRUE;
}
static asection *
}
/* 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 *
/* 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;
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;
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;
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;
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;
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;
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;
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"));
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;
}
/* 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 *
{
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 */
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 */
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 */
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);
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);
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)
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 *
}
/* control commands
-
+
See table 7-6 of the VAX/VMS linker manual. */
static unsigned char *
{
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);
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]));
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]));
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]));
}
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 },
{
int mincod;
int maxcod;
- boolean (*explain) PARAMS ((bfd *, int, unsigned char *));
+ bfd_boolean (*explain) PARAMS ((bfd *, int, unsigned char *));
}
etir_table[] =
{
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)
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;
bfd *abfd;
int index;
uquad offset;
- boolean justoffset;
+ bfd_boolean justoffset;
{
if (!justoffset)
{
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 */
{
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,
end_etir_record (abfd);
start_etir_record (abfd,
section->index,
- vaddr, false);
+ vaddr, FALSE);
}
_bfd_vms_output_begin (abfd,
ETIR_S_C_STA_LW,
end_etir_record (abfd);
start_etir_record (abfd,
section->index,
- vaddr, false);
+ vaddr, FALSE);
}
_bfd_vms_output_begin (abfd,
ETIR_S_C_STA_PQ,
end_etir_record (abfd);
start_etir_record (abfd,
section->index,
- vaddr, false);
+ vaddr, FALSE);
}
_bfd_vms_output_begin (abfd,
ETIR_S_C_STO_GBL,
end_etir_record (abfd);
start_etir_record (abfd,
section->index,
- vaddr, false);
+ vaddr, FALSE);
}
_bfd_vms_output_begin (abfd,
ETIR_S_C_STA_QW,
end_etir_record (abfd);
start_etir_record (abfd,
section->index,
- vaddr, false);
+ vaddr, FALSE);
}
_bfd_vms_output_begin (abfd,
ETIR_S_C_STA_PQ,
{
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,
end_etir_record (abfd);
start_etir_record (abfd,
section->index,
- vaddr, false);
+ vaddr, FALSE);
}
_bfd_vms_output_begin (abfd,
ETIR_S_C_STO_CA,
projects / thirdparty / binutils-gdb.git / blobdiff