daily update

[binutils.git] / bfd / riscix.c

diff --git a/bfd/riscix.c b/bfd/riscix.c
index f9b5ae2cd89f6c32d1aff927382f4be730a239a3..6ca26f6116cb6739b344e29ddda72d7ee723086f 100644 (file)
--- a/bfd/riscix.c
+++ b/bfd/riscix.c
@@ -1,23 +1,25 @@
 /* BFD back-end for RISC iX (Acorn, arm) binaries.
 /* BFD back-end for RISC iX (Acorn, arm) binaries.

-   Copyright 1994, 1995, 1996, 1997, 1998, 2000, 2001, 2002, 2004
-   Free Software Foundation, Inc.
+   Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2004,
+   2005, 2007 Free Software Foundation, Inc.

    Contributed by Richard Earnshaw ([email protected])
 
    Contributed by Richard Earnshaw ([email protected])
 

-This file is part of BFD, the Binary File Descriptor library.
+   This file is part of BFD, the Binary File Descriptor library.

 
 

-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3 of the License, or
+   (at your option) any later version.

 
 

-This program is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-GNU General Public License for more details.
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
+   MA 02110-1301, USA.  */

 
 

-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */

 
 /* RISC iX overloads the MAGIC field to indicate more than just the usual
    [ZNO]MAGIC values.  Also included are squeezing information and
 
 /* RISC iX overloads the MAGIC field to indicate more than just the usual
    [ZNO]MAGIC values.  Also included are squeezing information and


@@ -32,29 +34,39 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 #define MF_IS_SL        04000
 
 /* Common combinations.  */
 #define MF_IS_SL        04000
 
 /* Common combinations.  */

-#define IMAGIC          (MF_IMPURE|ZMAGIC)      /* Demand load (impure text) */
-#define SPOMAGIC        (MF_USES_SL|OMAGIC)     /* OMAGIC with large header */
-                                        /* -- may contain a ref to a */
-                                        /* shared lib required by the */
-                                        /* object.  */
-#define SLOMAGIC        (MF_IS_SL|OMAGIC) /* A reference to a shared library */
-                                          /* The text portion of the object */
-                                          /* contains "overflow text" from */
-                                          /* the shared library to be linked */
-                                          /* in with an object */
-#define QMAGIC          (MF_SQUEEZED|ZMAGIC)    /* Sqeezed demand paged.  */
-                                          /* NOTE: This interpretation of */
-                                          /* QMAGIC seems to be at variance */
-                                          /* With that used on other */
-                                          /* architectures.  */
-#define SPZMAGIC        (MF_USES_SL|ZMAGIC)     /* program which uses sl */
-#define SPQMAGIC        (MF_USES_SL|QMAGIC)     /* sqeezed ditto */
-#define SLZMAGIC        (MF_IS_SL|ZMAGIC)       /* shared lib part of prog */
-#define SLPZMAGIC       (MF_USES_SL|SLZMAGIC)   /* sl which uses another */
+
+/* Demand load (impure text).  */
+#define IMAGIC          (MF_IMPURE | ZMAGIC)
+
+/* OMAGIC with large header.
+   May contain a ref to a shared lib required by the object.  */
+#define SPOMAGIC        (MF_USES_SL | OMAGIC)
+
+/* A reference to a shared library.
+   The text portion of the object contains "overflow text" from
+   the shared library to be linked in with an object.  */
+#define SLOMAGIC        (MF_IS_SL | OMAGIC) 
+
+/* Sqeezed demand paged.
+   NOTE: This interpretation of QMAGIC seems to be at variance
+   with that used on other architectures.  */
+#define QMAGIC          (MF_SQUEEZED | ZMAGIC)
+
+/* Program which uses sl.  */
+#define SPZMAGIC        (MF_USES_SL | ZMAGIC)
+
+/* Sqeezed ditto.  */
+#define SPQMAGIC        (MF_USES_SL | QMAGIC)
+
+/* Shared lib part of prog.  */
+#define SLZMAGIC        (MF_IS_SL | ZMAGIC)
+
+/* Sl which uses another.  */
+#define SLPZMAGIC       (MF_USES_SL | SLZMAGIC)

 
 #define N_SHARED_LIB(x) ((x).a_info & MF_USES_SL)
 
 
 #define N_SHARED_LIB(x) ((x).a_info & MF_USES_SL)
 

-/* Only a pure OMAGIC file has the minimal header */
+/* Only a pure OMAGIC file has the minimal header.  */

 #define N_TXTOFF(x)            \
  ((x).a_info == OMAGIC         \
   ? 32                         \
 #define N_TXTOFF(x)            \
  ((x).a_info == OMAGIC         \
   ? 32                         \


@@ -78,31 +90,32 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 
 #define N_STROFF(x) (N_SYMOFF (x) + (x).a_syms)
 
 
 #define N_STROFF(x) (N_SYMOFF (x) + (x).a_syms)
 

-#define TEXT_START_ADDR 32768
-#define TARGET_PAGE_SIZE 32768
-#define SEGMENT_SIZE TARGET_PAGE_SIZE
-#define DEFAULT_ARCH bfd_arch_arm
+#define TEXT_START_ADDR   32768
+#define TARGET_PAGE_SIZE  32768
+#define SEGMENT_SIZE      TARGET_PAGE_SIZE
+#define DEFAULT_ARCH      bfd_arch_arm

 
 /* Do not "beautify" the CONCAT* macro args.  Traditional C will not
    remove whitespace added here, and thus will fail to concatenate
    the tokens.  */
 #define MY(OP) CONCAT2 (riscix_,OP)
 #define TARGETNAME "a.out-riscix"
 
 /* Do not "beautify" the CONCAT* macro args.  Traditional C will not
    remove whitespace added here, and thus will fail to concatenate
    the tokens.  */
 #define MY(OP) CONCAT2 (riscix_,OP)
 #define TARGETNAME "a.out-riscix"

-#define N_BADMAG(x) ((((x).a_info & ~007200) != ZMAGIC) && \
-                     (((x).a_info & ~006000) != OMAGIC) && \
-                     ((x).a_info != NMAGIC))
+#define N_BADMAG(x) ((((x).a_info & ~007200) != ZMAGIC) \
+                  && (((x).a_info & ~006000) != OMAGIC) \
+                  && ((x).a_info != NMAGIC))

 #define N_MAGIC(x) ((x).a_info & ~07200)
 
 #define N_MAGIC(x) ((x).a_info & ~07200)
 

-#include "bfd.h"

 #include "sysdep.h"
 #include "sysdep.h"

+#include "bfd.h"

 #include "libbfd.h"
 
 #define WRITE_HEADERS(abfd, execp)                                         \
   {                                                                        \
 #include "libbfd.h"
 
 #define WRITE_HEADERS(abfd, execp)                                         \
   {                                                                        \

-    bfd_size_type text_size; /* dummy vars */                              \
+    bfd_size_type text_size; /* Dummy vars.  */                                    \

     file_ptr text_end;                                                     \
     file_ptr text_end;                                                     \

-    if (adata(abfd).magic == undecided_magic)                              \
-      NAME(aout,adjust_sizes_and_vmas) (abfd, &text_size, &text_end);      \
+                                                                           \
+    if (adata (abfd).magic == undecided_magic)                             \
+      NAME (aout, adjust_sizes_and_vmas) (abfd, & text_size, & text_end);   \

                                                                            \
     execp->a_syms = bfd_get_symcount (abfd) * EXTERNAL_NLIST_SIZE;         \
     execp->a_entry = bfd_get_start_address (abfd);                         \
                                                                            \
     execp->a_syms = bfd_get_symcount (abfd) * EXTERNAL_NLIST_SIZE;         \
     execp->a_entry = bfd_get_start_address (abfd);                         \


@@ -111,31 +124,32 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
                       obj_reloc_entry_size (abfd));                        \
     execp->a_drsize = ((obj_datasec (abfd)->reloc_count) *                 \
                       obj_reloc_entry_size (abfd));                        \
                       obj_reloc_entry_size (abfd));                        \
     execp->a_drsize = ((obj_datasec (abfd)->reloc_count) *                 \
                       obj_reloc_entry_size (abfd));                        \

-    NAME(aout,swap_exec_header_out) (abfd, execp, &exec_bytes);                    \
+    NAME (aout, swap_exec_header_out) (abfd, execp, & exec_bytes);         \

                                                                            \
     if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0                       \
                                                                            \
     if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0                       \

-       || bfd_bwrite ((PTR) &exec_bytes, (bfd_size_type) EXEC_BYTES_SIZE,   \
+       || bfd_bwrite ((void *) & exec_bytes, (bfd_size_type) EXEC_BYTES_SIZE,  \

                      abfd) != EXEC_BYTES_SIZE)                             \
       return FALSE;                                                        \
                      abfd) != EXEC_BYTES_SIZE)                             \
       return FALSE;                                                        \

-    /* Now write out reloc info, followed by syms and strings */           \
+    /* Now write out reloc info, followed by syms and strings.  */         \

                                                                            \
                                                                            \

-    if (bfd_get_outsymbols (abfd) != (asymbol **) NULL                     \
+    if (bfd_get_outsymbols (abfd) != NULL                                  \

        && bfd_get_symcount (abfd) != 0)                                    \
       {                                                                            \
        && bfd_get_symcount (abfd) != 0)                                    \
       {                                                                            \

-       if (bfd_seek (abfd, (file_ptr) (N_SYMOFF(*execp)), SEEK_SET) != 0)  \
+       if (bfd_seek (abfd, (file_ptr) (N_SYMOFF (* execp)), SEEK_SET) != 0)\

          return FALSE;                                                     \
                                                                            \
          return FALSE;                                                     \
                                                                            \

-       if (! NAME(aout,write_syms) (abfd)) return FALSE;                   \
+       if (! NAME (aout, write_syms) (abfd))                               \
+          return FALSE;                                                            \

                                                                            \
                                                                            \

-       if (bfd_seek (abfd, (file_ptr) (N_TRELOFF(*execp)), SEEK_SET) != 0) \
+       if (bfd_seek (abfd, (file_ptr) (N_TRELOFF (* execp)), SEEK_SET) != 0)\

          return FALSE;                                                     \
                                                                            \
        if (! riscix_squirt_out_relocs (abfd, obj_textsec (abfd)))          \
          return FALSE;                                                     \
          return FALSE;                                                     \
                                                                            \
        if (! riscix_squirt_out_relocs (abfd, obj_textsec (abfd)))          \
          return FALSE;                                                     \

-       if (bfd_seek (abfd, (file_ptr) (N_DRELOFF(*execp)), SEEK_SET) != 0) \
+       if (bfd_seek (abfd, (file_ptr) (N_DRELOFF (* execp)), SEEK_SET) != 0)\

          return FALSE;                                                     \
                                                                            \
          return FALSE;                                                     \
                                                                            \

-       if (!NAME(aout,squirt_out_relocs) (abfd, obj_datasec (abfd)))       \
+       if (!NAME (aout, squirt_out_relocs) (abfd, obj_datasec (abfd)))     \

          return FALSE;                                                     \
       }                                                                            \
   }
          return FALSE;                                                     \
       }                                                                            \
   }


@@ -144,81 +158,55 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 #include "aout/aout64.h"
 
 static bfd_reloc_status_type
 #include "aout/aout64.h"
 
 static bfd_reloc_status_type

-riscix_fix_pcrel_26_done PARAMS ((bfd *, arelent *, asymbol *, PTR,
-                                 asection *, bfd *, char **));
-
-static bfd_reloc_status_type
-riscix_fix_pcrel_26 PARAMS ((bfd *, arelent *, asymbol *, PTR,
-                            asection *, bfd *, char **));
-static const bfd_target *
-MY (object_p) PARAMS ((bfd *));
-
-reloc_howto_type *
-riscix_reloc_type_lookup PARAMS ((bfd *, bfd_reloc_code_real_type));
-
-void
-riscix_swap_std_reloc_out PARAMS ((bfd *, arelent *, struct reloc_std_external *));
-
-bfd_boolean
-riscix_squirt_out_relocs PARAMS ((bfd *, asection *));
-
-long
-MY (canonicalize_reloc) PARAMS ((bfd *, sec_ptr, arelent **, asymbol **));
-
-const bfd_target *
-riscix_some_aout_object_p PARAMS ((bfd *, struct internal_exec *, const bfd_target *(*) (bfd *)));
+riscix_fix_pcrel_26_done (bfd *abfd ATTRIBUTE_UNUSED,
+                         arelent *reloc_entry ATTRIBUTE_UNUSED,
+                         asymbol *symbol ATTRIBUTE_UNUSED,
+                         void * data ATTRIBUTE_UNUSED,
+                         asection *input_section ATTRIBUTE_UNUSED,
+                         bfd *output_bfd ATTRIBUTE_UNUSED,
+                         char **error_message ATTRIBUTE_UNUSED)
+{
+  /* This is dead simple at present.  */
+  return bfd_reloc_ok;
+}

 
 

+static bfd_reloc_status_type riscix_fix_pcrel_26 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
+static const bfd_target *riscix_callback (bfd *);

 
 

-static reloc_howto_type riscix_std_reloc_howto[] = {
-  /* type              rs size bsz  pcrel bitpos ovrf                     sf name     part_inpl readmask  setmask    pcdone */
-  HOWTO( 0,              0,  0,   8,  FALSE, 0, complain_overflow_bitfield,0,"8",        TRUE, 0x000000ff,0x000000ff, FALSE),
+static reloc_howto_type riscix_std_reloc_howto[] =
+{
+  /* Type              rs size bsz  pcrel bitpos ovrf                     sf name     part_inpl readmask  setmask    pcdone */
+  HOWTO( 0,              0,  0,   8,  FALSE, 0, complain_overflow_bitfield,0,"8",         TRUE, 0x000000ff,0x000000ff, FALSE),

   HOWTO( 1,              0,  1,   16, FALSE, 0, complain_overflow_bitfield,0,"16",        TRUE, 0x0000ffff,0x0000ffff, FALSE),
   HOWTO( 2,              0,  2,   32, FALSE, 0, complain_overflow_bitfield,0,"32",        TRUE, 0xffffffff,0xffffffff, FALSE),
   HOWTO( 1,              0,  1,   16, FALSE, 0, complain_overflow_bitfield,0,"16",        TRUE, 0x0000ffff,0x0000ffff, FALSE),
   HOWTO( 2,              0,  2,   32, FALSE, 0, complain_overflow_bitfield,0,"32",        TRUE, 0xffffffff,0xffffffff, FALSE),

-  HOWTO( 3,              2,  3,   26, TRUE, 0, complain_overflow_signed,  riscix_fix_pcrel_26 , "ARM26",      TRUE, 0x00ffffff,0x00ffffff, FALSE),
+  HOWTO( 3,              2,  3,   26, TRUE,  0, complain_overflow_signed,  riscix_fix_pcrel_26 , "ARM26",      TRUE, 0x00ffffff,0x00ffffff, FALSE),

   HOWTO( 4,              0,  0,   8,  TRUE,  0, complain_overflow_signed,  0,"DISP8",     TRUE, 0x000000ff,0x000000ff, TRUE),
   HOWTO( 5,              0,  1,   16, TRUE,  0, complain_overflow_signed,  0,"DISP16",    TRUE, 0x0000ffff,0x0000ffff, TRUE),
   HOWTO( 6,              0,  2,   32, TRUE,  0, complain_overflow_signed,  0,"DISP32",    TRUE, 0xffffffff,0xffffffff, TRUE),
   HOWTO( 7,              2,  3,   26, FALSE, 0, complain_overflow_signed,  riscix_fix_pcrel_26_done, "ARM26D",TRUE,0x00ffffff,0x00ffffff, FALSE),
   EMPTY_HOWTO (-1),
   HOWTO( 4,              0,  0,   8,  TRUE,  0, complain_overflow_signed,  0,"DISP8",     TRUE, 0x000000ff,0x000000ff, TRUE),
   HOWTO( 5,              0,  1,   16, TRUE,  0, complain_overflow_signed,  0,"DISP16",    TRUE, 0x0000ffff,0x0000ffff, TRUE),
   HOWTO( 6,              0,  2,   32, TRUE,  0, complain_overflow_signed,  0,"DISP32",    TRUE, 0xffffffff,0xffffffff, TRUE),
   HOWTO( 7,              2,  3,   26, FALSE, 0, complain_overflow_signed,  riscix_fix_pcrel_26_done, "ARM26D",TRUE,0x00ffffff,0x00ffffff, FALSE),
   EMPTY_HOWTO (-1),

-  HOWTO( 9,              0, -1,   16, FALSE, 0, complain_overflow_bitfield,0,"NEG16",        TRUE, 0x0000ffff,0x0000ffff, FALSE),
-  HOWTO( 10,              0, -2,   32, FALSE, 0, complain_overflow_bitfield,0,"NEG32",        TRUE, 0xffffffff,0xffffffff, FALSE)
+  HOWTO( 9,              0, -1,   16, FALSE, 0, complain_overflow_bitfield,0,"NEG16",     TRUE, 0x0000ffff,0x0000ffff, FALSE),
+  HOWTO( 10,              0, -2,  32, FALSE, 0, complain_overflow_bitfield,0,"NEG32",     TRUE, 0xffffffff,0xffffffff, FALSE)

 };
 
 #define RISCIX_TABLE_SIZE \
   (sizeof (riscix_std_reloc_howto) / sizeof (reloc_howto_type))
 
 static bfd_reloc_status_type
 };
 
 #define RISCIX_TABLE_SIZE \
   (sizeof (riscix_std_reloc_howto) / sizeof (reloc_howto_type))
 
 static bfd_reloc_status_type

-riscix_fix_pcrel_26_done (abfd, reloc_entry, symbol, data, input_section,
-                         output_bfd, error_message)
-     bfd *abfd ATTRIBUTE_UNUSED;
-     arelent *reloc_entry ATTRIBUTE_UNUSED;
-     asymbol *symbol ATTRIBUTE_UNUSED;
-     PTR data ATTRIBUTE_UNUSED;
-     asection *input_section ATTRIBUTE_UNUSED;
-     bfd *output_bfd ATTRIBUTE_UNUSED;
-     char **error_message ATTRIBUTE_UNUSED;
-{
-  /* This is dead simple at present.  */
-  return bfd_reloc_ok;
-}
-
-static bfd_reloc_status_type
-riscix_fix_pcrel_26 (abfd, reloc_entry, symbol, data, input_section,
-                    output_bfd, error_message)
-     bfd *abfd;
-     arelent *reloc_entry;
-     asymbol *symbol;
-     PTR data;
-     asection *input_section;
-     bfd *output_bfd;
-     char **error_message ATTRIBUTE_UNUSED;
+riscix_fix_pcrel_26 (bfd *abfd,
+                    arelent *reloc_entry,
+                    asymbol *symbol,
+                    void * data,
+                    asection *input_section,
+                    bfd *output_bfd,
+                    char **error_message ATTRIBUTE_UNUSED)

 {
   bfd_vma relocation;
   bfd_size_type addr = reloc_entry->address;
   long target = bfd_get_32 (abfd, (bfd_byte *) data + addr);
   bfd_reloc_status_type flag = bfd_reloc_ok;
 
 {
   bfd_vma relocation;
   bfd_size_type addr = reloc_entry->address;
   long target = bfd_get_32 (abfd, (bfd_byte *) data + addr);
   bfd_reloc_status_type flag = bfd_reloc_ok;
 

-  /* If this is an undefined symbol, return error */
+  /* If this is an undefined symbol, return error.  */

   if (symbol->section == &bfd_und_section
       && (symbol->flags & BSF_WEAK) == 0)
     return output_bfd ? bfd_reloc_continue : bfd_reloc_undefined;
   if (symbol->section == &bfd_und_section
       && (symbol->flags & BSF_WEAK) == 0)
     return output_bfd ? bfd_reloc_continue : bfd_reloc_undefined;


@@ -226,11 +214,11 @@ riscix_fix_pcrel_26 (abfd, reloc_entry, symbol, data, input_section,
   /* If the sections are different, and we are doing a partial relocation,
      just ignore it for now.  */
   if (symbol->section->name != input_section->name
   /* If the sections are different, and we are doing a partial relocation,
      just ignore it for now.  */
   if (symbol->section->name != input_section->name

-      && output_bfd != (bfd *)NULL)
+      && output_bfd != NULL)

     return bfd_reloc_continue;
 
   relocation = (target & 0x00ffffff) << 2;
     return bfd_reloc_continue;
 
   relocation = (target & 0x00ffffff) << 2;

-  relocation = (relocation ^ 0x02000000) - 0x02000000; /* Sign extend */
+  relocation = (relocation ^ 0x02000000) - 0x02000000; /* Sign extend.  */

   relocation += symbol->value;
   relocation += symbol->section->output_section->vma;
   relocation += symbol->section->output_offset;
   relocation += symbol->value;
   relocation += symbol->section->output_section->vma;
   relocation += symbol->section->output_offset;


@@ -241,7 +229,7 @@ riscix_fix_pcrel_26 (abfd, reloc_entry, symbol, data, input_section,
   if (relocation & 3)
     return bfd_reloc_overflow;
 
   if (relocation & 3)
     return bfd_reloc_overflow;
 

-  /* Check for overflow */
+  /* Check for overflow.  */

   if (relocation & 0x02000000)
     {
       if ((relocation & ~ (bfd_vma) 0x03ffffff) != ~ (bfd_vma) 0x03ffffff)
   if (relocation & 0x02000000)
     {
       if ((relocation & ~ (bfd_vma) 0x03ffffff) != ~ (bfd_vma) 0x03ffffff)


@@ -261,10 +249,8 @@ riscix_fix_pcrel_26 (abfd, reloc_entry, symbol, data, input_section,
   return flag;
 }
 
   return flag;
 }
 

-reloc_howto_type *
-riscix_reloc_type_lookup (abfd, code)
-     bfd *abfd;
-     bfd_reloc_code_real_type code;
+static reloc_howto_type *
+riscix_reloc_type_lookup (bfd *abfd, bfd_reloc_code_real_type code)

 {
 #define ASTD(i,j)       case i: return &riscix_std_reloc_howto[j]
   if (code == BFD_RELOC_CTOR)
 {
 #define ASTD(i,j)       case i: return &riscix_std_reloc_howto[j]
   if (code == BFD_RELOC_CTOR)


@@ -273,7 +259,8 @@ riscix_reloc_type_lookup (abfd, code)
       case 32:
         code = BFD_RELOC_32;
         break;
       case 32:
         code = BFD_RELOC_32;
         break;

-      default: return (reloc_howto_type *) NULL;
+      default:
+       return NULL;

       }
 
   switch (code)
       }
 
   switch (code)


@@ -284,26 +271,41 @@ riscix_reloc_type_lookup (abfd, code)
       ASTD (BFD_RELOC_8_PCREL, 4);
       ASTD (BFD_RELOC_16_PCREL, 5);
       ASTD (BFD_RELOC_32_PCREL, 6);
       ASTD (BFD_RELOC_8_PCREL, 4);
       ASTD (BFD_RELOC_16_PCREL, 5);
       ASTD (BFD_RELOC_32_PCREL, 6);

-    default: return (reloc_howto_type *) NULL;
+    default:
+      return NULL;

     }
 }
 
     }
 }
 

-#define MY_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
-#define MY_bfd_link_add_symbols _bfd_generic_link_add_symbols
-#define MY_final_link_callback should_not_be_used
-#define MY_bfd_final_link _bfd_generic_final_link
+static reloc_howto_type *
+riscix_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
+                         const char *r_name)
+{
+  unsigned int i;
+
+  for (i = 0;
+       i < sizeof (riscix_std_reloc_howto) / sizeof (riscix_std_reloc_howto[0]);
+       i++)
+    if (riscix_std_reloc_howto[i].name != NULL
+       && strcasecmp (riscix_std_reloc_howto[i].name, r_name) == 0)
+      return &riscix_std_reloc_howto[i];
+
+  return NULL;
+}

 
 

-#define MY_bfd_reloc_type_lookup riscix_reloc_type_lookup
-#define MY_canonicalize_reloc riscix_canonicalize_reloc
-#define MY_object_p riscix_object_p
+#define MY_bfd_link_hash_table_create  _bfd_generic_link_hash_table_create
+#define MY_bfd_link_add_symbols        _bfd_generic_link_add_symbols
+#define MY_final_link_callback         should_not_be_used
+#define MY_bfd_final_link              _bfd_generic_final_link

 
 

-static const bfd_target *riscix_callback PARAMS ((bfd *));
+#define MY_bfd_reloc_type_lookup       riscix_reloc_type_lookup
+#define MY_bfd_reloc_name_lookup riscix_reloc_name_lookup
+#define MY_canonicalize_reloc          riscix_canonicalize_reloc
+#define MY_object_p                    riscix_object_p

 
 

-void
-riscix_swap_std_reloc_out (abfd, g, natptr)
-     bfd *abfd;
-     arelent *g;
-     struct reloc_std_external *natptr;
+static void
+riscix_swap_std_reloc_out (bfd *abfd,
+                          arelent *g,
+                          struct reloc_std_external *natptr)

 {
   int r_index;
   asymbol *sym = *(g->sym_ptr_ptr);
 {
   int r_index;
   asymbol *sym = *(g->sym_ptr_ptr);


@@ -315,63 +317,55 @@ riscix_swap_std_reloc_out (abfd, g, natptr)
 
   PUT_WORD(abfd, g->address, natptr->r_address);
 
 
   PUT_WORD(abfd, g->address, natptr->r_address);
 

-  r_length = g->howto->size ;   /* Size as a power of two */
+  r_length = g->howto->size ;   /* Size as a power of two.  */

   if (r_length < 0)
     {
       r_length = -r_length;
       r_neg = 1;
     }
 
   if (r_length < 0)
     {
       r_length = -r_length;
       r_neg = 1;
     }
 

-  r_pcrel  = (int) g->howto->pc_relative; /* Relative to PC? */
+  r_pcrel  = (int) g->howto->pc_relative; /* Relative to PC?  */

 
   /* For RISC iX, in pc-relative relocs the r_pcrel bit means that the
 
   /* For RISC iX, in pc-relative relocs the r_pcrel bit means that the

-     relocation has been done already (Only for the 26-bit one I think)???!!!
-     */
-
+     relocation has been done already (Only for the 26-bit one I think)?  */

   if (r_length == 3)
     r_pcrel = r_pcrel ? 0 : 1;
 
   if (r_length == 3)
     r_pcrel = r_pcrel ? 0 : 1;
 

-#if 0
-  /* For a standard reloc, the addend is in the object file.  */
-  r_addend = g->addend + (*(g->sym_ptr_ptr))->section->output_section->vma;
-#endif
-
-  /* name was clobbered by aout_write_syms to be symbol index */
+  /* Name was clobbered by aout_write_syms to be symbol index.  */

 
   /* If this relocation is relative to a symbol then set the
      r_index to the symbols index, and the r_extern bit.
 
      Absolute symbols can come in in two ways, either as an offset
      from the abs section, or as a symbol which has an abs value.
 
   /* If this relocation is relative to a symbol then set the
      r_index to the symbols index, and the r_extern bit.
 
      Absolute symbols can come in in two ways, either as an offset
      from the abs section, or as a symbol which has an abs value.

-     check for that here
-     */
+     check for that here.  */

 
   if (bfd_is_com_section (output_section)
 
   if (bfd_is_com_section (output_section)

-      || output_section == &bfd_abs_section
-      || output_section == &bfd_und_section)
+      || output_section == & bfd_abs_section
+      || output_section == & bfd_und_section)

     {
       if (bfd_abs_section.symbol == sym)
        {
          /* Whoops, looked like an abs symbol, but is really an offset
     {
       if (bfd_abs_section.symbol == sym)
        {
          /* Whoops, looked like an abs symbol, but is really an offset

-            from the abs section */
+            from the abs section.  */

          r_index = 0;
          r_extern = 0;
        }
       else
        {
          r_index = 0;
          r_extern = 0;
        }
       else
        {

-         /* Fill in symbol */
+         /* Fill in symbol.  */

          r_extern = 1;
          r_index = (*g->sym_ptr_ptr)->udata.i;
        }
     }
   else
     {
          r_extern = 1;
          r_index = (*g->sym_ptr_ptr)->udata.i;
        }
     }
   else
     {

-      /* Just an ordinary section */
+      /* Just an ordinary section.  */

       r_extern = 0;
       r_index  = output_section->target_index;
     }
 
       r_extern = 0;
       r_index  = output_section->target_index;
     }
 

-  /* now the fun stuff */
+  /* Now the fun stuff.  */

   if (bfd_header_big_endian (abfd))
     {
       natptr->r_index[0] = r_index >> 16;
   if (bfd_header_big_endian (abfd))
     {
       natptr->r_index[0] = r_index >> 16;


@@ -396,15 +390,12 @@ riscix_swap_std_reloc_out (abfd, g, natptr)
     }
 }
 
     }
 }
 

-bfd_boolean
-riscix_squirt_out_relocs (abfd, section)
-     bfd *abfd;
-     asection *section;
+static bfd_boolean
+riscix_squirt_out_relocs (bfd *abfd, asection *section)

 {
   arelent **generic;
   unsigned char *native, *natptr;
   size_t each_size;
 {
   arelent **generic;
   unsigned char *native, *natptr;
   size_t each_size;

-

   unsigned int count = section->reloc_count;
   bfd_size_type natsize;
 
   unsigned int count = section->reloc_count;
   bfd_size_type natsize;
 


@@ -414,7 +405,7 @@ riscix_squirt_out_relocs (abfd, section)
   each_size = obj_reloc_entry_size (abfd);
   natsize = each_size;
   natsize *= count;
   each_size = obj_reloc_entry_size (abfd);
   natsize = each_size;
   natsize *= count;

-  native = (unsigned char *) bfd_zalloc (abfd, natsize);
+  native = bfd_zalloc (abfd, natsize);

   if (!native)
     return FALSE;
 
   if (!native)
     return FALSE;
 


@@ -426,7 +417,7 @@ riscix_squirt_out_relocs (abfd, section)
     riscix_swap_std_reloc_out (abfd, *generic,
                               (struct reloc_std_external *) natptr);
 
     riscix_swap_std_reloc_out (abfd, *generic,
                               (struct reloc_std_external *) natptr);
 

-  if (bfd_bwrite ((PTR) native, natsize, abfd) != natsize)
+  if (bfd_bwrite ((void *) native, natsize, abfd) != natsize)

     {
       bfd_release (abfd, native);
       return FALSE;
     {
       bfd_release (abfd, native);
       return FALSE;


@@ -436,44 +427,46 @@ riscix_squirt_out_relocs (abfd, section)
   return TRUE;
 }
 
   return TRUE;
 }
 

-/*
- * This is just like the standard aoutx.h version but we need to do our
- * own mapping of external reloc type values to howto entries.
- */
-long
-MY(canonicalize_reloc) (abfd, section, relptr, symbols)
-      bfd *abfd;
-      sec_ptr section;
-      arelent **relptr;
-      asymbol **symbols;
+/* This is just like the standard aoutx.h version but we need to do our
+   own mapping of external reloc type values to howto entries.  */
+
+static long
+MY (canonicalize_reloc) (bfd *abfd,
+                        sec_ptr section,
+                        arelent **relptr,
+                        asymbol **symbols)

 {
   arelent *tblptr = section->relocation;
   unsigned int count, c;
 {
   arelent *tblptr = section->relocation;
   unsigned int count, c;

-  extern reloc_howto_type NAME(aout,std_howto_table)[];
+  extern reloc_howto_type NAME (aout, std_howto_table)[];

 
   /* If we have already read in the relocation table, return the values.  */
 
   /* If we have already read in the relocation table, return the values.  */

-  if (section->flags & SEC_CONSTRUCTOR) {
-    arelent_chain *chain = section->constructor_chain;
+  if (section->flags & SEC_CONSTRUCTOR)
+    {
+      arelent_chain *chain = section->constructor_chain;

 
 

-    for (count = 0; count < section->reloc_count; count++) {
-      *relptr++ = &chain->relent;
-      chain = chain->next;
+      for (count = 0; count < section->reloc_count; count++)
+       {
+         *relptr++ = &chain->relent;
+         chain = chain->next;
+       }
+      *relptr = 0;
+      return section->reloc_count;

     }
     }

-    *relptr = 0;
-    return section->reloc_count;
-  }
-  if (tblptr && section->reloc_count) {
-    for (count = 0; count++ < section->reloc_count;)
-      *relptr++ = tblptr++;
-    *relptr = 0;
-    return section->reloc_count;
-  }

 
 

-  if (!NAME(aout,slurp_reloc_table) (abfd, section, symbols))
+  if (tblptr && section->reloc_count)
+    {
+      for (count = 0; count++ < section->reloc_count;)
+       *relptr++ = tblptr++;
+      *relptr = 0;
+      return section->reloc_count;
+    }
+
+  if (!NAME (aout, slurp_reloc_table) (abfd, section, symbols))

     return -1;
   tblptr = section->relocation;
 
     return -1;
   tblptr = section->relocation;
 

-  /* fix up howto entries */
+  /* Fix up howto entries.  */

   for (count = 0; count++ < section->reloc_count;)
     {
       c = tblptr->howto - NAME(aout,std_howto_table);
   for (count = 0; count++ < section->reloc_count;)
     {
       c = tblptr->howto - NAME(aout,std_howto_table);


@@ -489,20 +482,19 @@ MY(canonicalize_reloc) (abfd, section, relptr, symbols)
 /* This is the same as NAME(aout,some_aout_object_p), but has different
    expansions of the macro definitions.  */
 
 /* This is the same as NAME(aout,some_aout_object_p), but has different
    expansions of the macro definitions.  */
 

-const bfd_target *
-riscix_some_aout_object_p (abfd, execp, callback_to_real_object_p)
-     bfd *abfd;
-     struct internal_exec *execp;
-     const bfd_target *(*callback_to_real_object_p) PARAMS ((bfd *));
+static const bfd_target *
+riscix_some_aout_object_p (bfd *abfd,
+                          struct internal_exec *execp,
+                          const bfd_target *(*callback_to_real_object_p) (bfd *))

 {
   struct aout_data_struct *rawptr, *oldrawptr;
   const bfd_target *result;
   bfd_size_type amt = sizeof (struct aout_data_struct);
 
 {
   struct aout_data_struct *rawptr, *oldrawptr;
   const bfd_target *result;
   bfd_size_type amt = sizeof (struct aout_data_struct);
 

-  rawptr = (struct aout_data_struct  *) bfd_zalloc (abfd, amt);
+  rawptr = bfd_zalloc (abfd, amt);

 
   if (rawptr == NULL)
 
   if (rawptr == NULL)

-    return 0;
+    return NULL;

 
   oldrawptr = abfd->tdata.aout_data;
   abfd->tdata.aout_data = rawptr;
 
   oldrawptr = abfd->tdata.aout_data;
   abfd->tdata.aout_data = rawptr;


@@ -515,28 +507,29 @@ riscix_some_aout_object_p (abfd, execp, callback_to_real_object_p)
     *abfd->tdata.aout_data = *oldrawptr;
 
   abfd->tdata.aout_data->a.hdr = &rawptr->e;
     *abfd->tdata.aout_data = *oldrawptr;
 
   abfd->tdata.aout_data->a.hdr = &rawptr->e;

-  *(abfd->tdata.aout_data->a.hdr) = *execp;     /* Copy in the internal_exec
-                                                  struct */
+  /* Copy in the internal_exec struct.  */
+  *(abfd->tdata.aout_data->a.hdr) = *execp;

   execp = abfd->tdata.aout_data->a.hdr;
 
   execp = abfd->tdata.aout_data->a.hdr;
 

-  /* Set the file flags */
+  /* Set the file flags.  */

   abfd->flags = BFD_NO_FLAGS;
   if (execp->a_drsize || execp->a_trsize)
     abfd->flags |= HAS_RELOC;
   abfd->flags = BFD_NO_FLAGS;
   if (execp->a_drsize || execp->a_trsize)
     abfd->flags |= HAS_RELOC;

-  /* Setting of EXEC_P has been deferred to the bottom of this function */
+  /* Setting of EXEC_P has been deferred to the bottom of this function.  */

   if (execp->a_syms)
     abfd->flags |= HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS;
   if (N_DYNAMIC(*execp))
     abfd->flags |= DYNAMIC;
 
   if (execp->a_syms)
     abfd->flags |= HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS;
   if (N_DYNAMIC(*execp))
     abfd->flags |= DYNAMIC;
 

-  if ((execp->a_info & MF_SQUEEZED) != 0) /* Squeezed files aren't supported
-                                            (yet)! */
+ /* Squeezed files aren't supported (yet)!  */
+  if ((execp->a_info & MF_SQUEEZED) != 0)

     {
       bfd_set_error (bfd_error_wrong_format);
       return NULL;
     }
     {
       bfd_set_error (bfd_error_wrong_format);
       return NULL;
     }

-  else if ((execp->a_info & MF_IS_SL) != 0)    /* Nor are shared libraries */
+  else if ((execp->a_info & MF_IS_SL) != 0)

     {
     {

+      /* Nor are shared libraries.  */

       bfd_set_error (bfd_error_wrong_format);
       return NULL;
     }
       bfd_set_error (bfd_error_wrong_format);
       return NULL;
     }


@@ -553,15 +546,13 @@ riscix_some_aout_object_p (abfd, execp, callback_to_real_object_p)
   else if (N_MAGIC (*execp) == OMAGIC)
     adata (abfd).magic = o_magic;
   else
   else if (N_MAGIC (*execp) == OMAGIC)
     adata (abfd).magic = o_magic;
   else

-    {
-      /* Should have been checked with N_BADMAG before this routine
-         was called.  */
-      abort ();
-    }
+    /* Should have been checked with N_BADMAG before this routine
+       was called.  */
+    abort ();

 
   bfd_get_start_address (abfd) = execp->a_entry;
 
 
   bfd_get_start_address (abfd) = execp->a_entry;
 

-  obj_aout_symbols (abfd) = (aout_symbol_type *)NULL;
+  obj_aout_symbols (abfd) = NULL;

   bfd_get_symcount (abfd) = execp->a_syms / sizeof (struct external_nlist);
 
   /* The default relocation entry size is that of traditional V7 Unix.  */
   bfd_get_symcount (abfd) = execp->a_syms / sizeof (struct external_nlist);
 
   /* The default relocation entry size is that of traditional V7 Unix.  */


@@ -574,7 +565,7 @@ riscix_some_aout_object_p (abfd, execp, callback_to_real_object_p)
   obj_aout_external_strings (abfd) = NULL;
   obj_aout_sym_hashes (abfd) = NULL;
 
   obj_aout_external_strings (abfd) = NULL;
   obj_aout_sym_hashes (abfd) = NULL;
 

-  if (! NAME(aout,make_sections) (abfd))
+  if (! NAME (aout, make_sections) (abfd))

     return NULL;
 
   obj_datasec (abfd)->size = execp->a_data;
     return NULL;
 
   obj_datasec (abfd)->size = execp->a_data;


@@ -594,15 +585,15 @@ riscix_some_aout_object_p (abfd, execp, callback_to_real_object_p)
 
 #if defined(MACH) || defined(STAT_FOR_EXEC)
   /* The original heuristic doesn't work in some important cases. The
 
 #if defined(MACH) || defined(STAT_FOR_EXEC)
   /* The original heuristic doesn't work in some important cases. The

-   * a.out file has no information about the text start address. For
-   * files (like kernels) linked to non-standard addresses (ld -Ttext
-   * nnn) the entry point may not be between the default text start
-   * (obj_textsec(abfd)->vma) and (obj_textsec(abfd)->vma) + text size
-   * This is not just a mach issue. Many kernels are loaded at non
-   * standard addresses.
-   */
+     a.out file has no information about the text start address. For
+     files (like kernels) linked to non-standard addresses (ld -Ttext
+     nnn) the entry point may not be between the default text start
+     (obj_textsec(abfd)->vma) and (obj_textsec(abfd)->vma) + text size
+     This is not just a mach issue. Many kernels are loaded at non
+     standard addresses.  */

   {
     struct stat stat_buf;
   {
     struct stat stat_buf;

+

     if (abfd->iostream != NULL
        && (abfd->flags & BFD_IN_MEMORY) == 0
         && (fstat(fileno((FILE *) (abfd->iostream)), &stat_buf) == 0)
     if (abfd->iostream != NULL
        && (abfd->flags & BFD_IN_MEMORY) == 0
         && (fstat(fileno((FILE *) (abfd->iostream)), &stat_buf) == 0)


@@ -622,10 +613,7 @@ riscix_some_aout_object_p (abfd, execp, callback_to_real_object_p)
       (execp->a_entry < obj_textsec(abfd)->vma + obj_textsec(abfd)->size))
     abfd->flags |= EXEC_P;
 #endif /* MACH */
       (execp->a_entry < obj_textsec(abfd)->vma + obj_textsec(abfd)->size))
     abfd->flags |= EXEC_P;
 #endif /* MACH */

-  if (result)
-    {
-    }
-  else
+  if (result == NULL)

     {
       free (rawptr);
       abfd->tdata.aout_data = oldrawptr;
     {
       free (rawptr);
       abfd->tdata.aout_data = oldrawptr;


@@ -634,31 +622,33 @@ riscix_some_aout_object_p (abfd, execp, callback_to_real_object_p)
 }
 
 static const bfd_target *
 }
 
 static const bfd_target *

-MY(object_p) (abfd)
-     bfd *abfd;
+MY (object_p) (bfd *abfd)

 {
 {

-  struct external_exec exec_bytes;      /* Raw exec header from file */
-  struct internal_exec exec;            /* Cleaned-up exec header */
+  struct external_exec exec_bytes;      /* Raw exec header from file.  */
+  struct internal_exec exec;            /* Cleaned-up exec header.  */

   const bfd_target *target;
 
   const bfd_target *target;
 

-  if (bfd_bread ((PTR) &exec_bytes, (bfd_size_type) EXEC_BYTES_SIZE, abfd)
+  if (bfd_bread ((void *) &exec_bytes, (bfd_size_type) EXEC_BYTES_SIZE, abfd)

       != EXEC_BYTES_SIZE)
     {
       if (bfd_get_error () != bfd_error_system_call)
        bfd_set_error (bfd_error_wrong_format);
       != EXEC_BYTES_SIZE)
     {
       if (bfd_get_error () != bfd_error_system_call)
        bfd_set_error (bfd_error_wrong_format);

-      return 0;
+      return NULL;

     }
 
   exec.a_info = H_GET_32 (abfd, exec_bytes.e_info);
 
     }
 
   exec.a_info = H_GET_32 (abfd, exec_bytes.e_info);
 

-  if (N_BADMAG (exec)) return 0;
+  if (N_BADMAG (exec))
+    return NULL;
+

 #ifdef MACHTYPE_OK
 #ifdef MACHTYPE_OK

-  if (!(MACHTYPE_OK (N_MACHTYPE (exec)))) return 0;
+  if (!(MACHTYPE_OK (N_MACHTYPE (exec))))
+    return NULL;

 #endif
 
 #endif
 

-  NAME(aout,swap_exec_header_in) (abfd, &exec_bytes, &exec);
+  NAME (aout, swap_exec_header_in) (abfd, & exec_bytes, & exec);

 
 

-  target = riscix_some_aout_object_p (abfd, &exec, MY(callback));
+  target = riscix_some_aout_object_p (abfd, & exec, MY (callback));

 
   return target;
 }
 
   return target;
 }