/* vms-tir.c -- BFD back-end for VAX (openVMS/VAX) and
EVAX (openVMS/Alpha) files.
- Copyright 1996, 1997, 1998 Free Software Foundation, Inc.
+ Copyright 1996, 1997, 1998, 1999 Free Software Foundation, Inc.
TIR record handling functions
ETIR record handling functions
int offset;
offset = PRIV(image_ptr) - PRIV(image_section)->contents;
- if ((offset + size) > PRIV(image_section)->_raw_size)
+ if ((bfd_size_type) (offset + size) > PRIV(image_section)->_raw_size)
{
PRIV(image_section)->contents = bfd_realloc (PRIV(image_section)->contents, offset + size);
if (PRIV(image_section)->contents == 0)
bfd *abfd;
unsigned char *ptr;
int size;
- int offset;
+ int offset ATTRIBUTE_UNUSED;
{
#if VMS_DEBUG
_bfd_vms_debug (8, "image_dump from (%p, %d) to (%p)\n", ptr, size, PRIV(image_ptr));
case ETIR_S_C_STA_PQ:
{
uquad dummy;
- int psect;
+ unsigned int psect;
psect = bfd_getl32 (ptr);
if (psect >= PRIV(section_count))
etir_opr (abfd, cmd, ptr)
bfd *abfd;
int cmd;
- unsigned char *ptr;
+ unsigned char *ptr ATTRIBUTE_UNUSED;
{
long op1, op2;
etir_stc (abfd, cmd, ptr)
bfd *abfd;
int cmd;
- unsigned char *ptr;
+ unsigned char *ptr ATTRIBUTE_UNUSED;
{
#if VMS_DEBUG
static asection *
new_section (abfd, idx)
- bfd *abfd;
+ bfd *abfd ATTRIBUTE_UNUSED;
int idx;
{
asection *section;
static int
alloc_section (abfd, idx)
bfd *abfd;
- int idx;
+ unsigned int idx;
{
- asection *section;
-
#if VMS_DEBUG
_bfd_vms_debug (4, "alloc_section %d\n", idx);
#endif
*/
{
unsigned long dummy;
- int psect;
+ unsigned int psect;
if (cmd == TIR_S_C_STA_PB)
psect = *ptr++;
*/
{
unsigned long dummy;
- int psect;
+ unsigned int psect;
if (cmd == TIR_S_C_STA_PW)
psect = *ptr++;
*/
{
unsigned long dummy;
- int psect;
+ unsigned int psect;
if (cmd == TIR_S_C_STA_PL)
psect = *ptr++;
*/
{
unsigned long dummy;
- int psect;
+ unsigned int psect;
#if VMS_DEBUG
_bfd_vms_debug (5, "tir_ctl %d\n", *ptr);
int
_bfd_vms_slurp_dbg (abfd, objtype)
bfd *abfd;
- int objtype;
+ int objtype ATTRIBUTE_UNUSED;
{
#if VMS_DEBUG
_bfd_vms_debug (2, "DBG/EDBG\n");
int
_bfd_vms_slurp_tbt (abfd, objtype)
- bfd *abfd;
- int objtype;
+ bfd *abfd ATTRIBUTE_UNUSED;
+ int objtype ATTRIBUTE_UNUSED;
{
#if VMS_DEBUG
_bfd_vms_debug (2, "TBT/ETBT\n");
int
_bfd_vms_slurp_lnk (abfd, objtype)
- bfd *abfd;
- int objtype;
+ bfd *abfd ATTRIBUTE_UNUSED;
+ int objtype ATTRIBUTE_UNUSED;
{
#if VMS_DEBUG
_bfd_vms_debug (2, "LNK\n");
int
_bfd_vms_write_tir (abfd, objtype)
bfd *abfd;
- int objtype;
+ int objtype ATTRIBUTE_UNUSED;
{
asection *section;
vms_section *sptr;
for (;;)
{
bfd_size_type addr = (*rptr)->address;
- int len = bfd_get_reloc_size ((*rptr)->howto);
+ bfd_size_type len = bfd_get_reloc_size ((*rptr)->howto);
if (sptr->offset < addr) /* sptr starts before reloc */
{
- int before = addr - sptr->offset;
+ bfd_size_type before = addr - sptr->offset;
if (sptr->size <= before) /* complete before */
{
sto_imm (abfd, sptr, vaddr, section->index);
int
_bfd_vms_write_tbt (abfd, objtype)
- bfd *abfd;
- int objtype;
+ bfd *abfd ATTRIBUTE_UNUSED;
+ int objtype ATTRIBUTE_UNUSED;
{
#if VMS_DEBUG
_bfd_vms_debug (2, "vms_write_tbt (%p, %d)\n", abfd, objtype);
int
_bfd_vms_write_dbg (abfd, objtype)
- bfd *abfd;
- int objtype;
+ bfd *abfd ATTRIBUTE_UNUSED;
+ int objtype ATTRIBUTE_UNUSED;
{
#if VMS_DEBUG
_bfd_vms_debug (2, "vms_write_dbg (%p, objtype)\n", abfd, objtype);