%$#@ cvs bugs

1 files changed, 0 insertions, 962 deletions

diff --git a/bfd/hppa.c b/bfd/hppa.c
deleted file mode 100644
index eff6b66..0000000
--- a/bfd/hppa.c
+++ /dev/null
@@ -1,962 +0,0 @@
-/* bfd back-end for HP PA-RISC SOM objects.
-   Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
-
-   Contributed by the Center for Software Science at the
-   University of Utah (pa-gdb-bugs@cs.utah.edu).
-
-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 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., 675 Mass Ave, Cambridge, MA 02139, USA.  */
-
-#include "bfd.h"
-#include "sysdep.h"
-
-/* @@FIXME This is not a reasonable set of conditions to permit
-   cross-compilation, obviously.  It also isn't enough to support hppa-elf
-   targets either.  Can we eliminate the HPUX or BSD dependencies, or
-   at least get the conditionals more localized?  */
-#if defined (HOST_HPPAHPUX) || defined (HOST_HPPABSD)
-
-#include "libbfd.h"
-#include "libhppa.h"
-
-#include <stdio.h>
-#include <sys/types.h>
-#include <sys/param.h>
-#include <sys/dir.h>
-#include <signal.h>
-#include <machine/reg.h>
-#include <sys/user.h>		/* After a.out.h  */
-#include <sys/file.h>
-#include <errno.h>
-
-/* Magic not defined in standard HP-UX header files until 8.0 */
-
-#ifndef CPU_PA_RISC1_0
-#define CPU_PA_RISC1_0 0x20B
-#endif /* CPU_PA_RISC1_0 */
-
-#ifndef CPU_PA_RISC1_1
-#define CPU_PA_RISC1_1 0x210
-#endif /* CPU_PA_RISC1_1 */
-
-#ifndef _PA_RISC1_0_ID
-#define _PA_RISC1_0_ID CPU_PA_RISC1_0
-#endif /* _PA_RISC1_0_ID */
-
-#ifndef _PA_RISC1_1_ID
-#define _PA_RISC1_1_ID CPU_PA_RISC1_1
-#endif /* _PA_RISC1_1_ID */
-
-#ifndef _PA_RISC_MAXID
-#define _PA_RISC_MAXID	0x2FF
-#endif /* _PA_RISC_MAXID */
-
-#ifndef _PA_RISC_ID
-#define _PA_RISC_ID(__m_num)		\
-    (((__m_num) == _PA_RISC1_0_ID) ||	\
-     ((__m_num) >= _PA_RISC1_1_ID && (__m_num) <= _PA_RISC_MAXID))
-#endif /* _PA_RISC_ID */
-
-struct container
-  {
-    struct header f;
-    struct som_exec_auxhdr e;
-  };
-
-static bfd_target *
-hppa_object_setup (abfd, file_hdrp, aux_hdrp)
-     bfd *abfd;
-     struct header *file_hdrp;
-     struct som_exec_auxhdr *aux_hdrp;
-{
-  struct container *rawptr;
-  struct header *f;
-  struct hppa_data_struct *rawptr1;
-  asection *text, *data, *bss;
-
-  rawptr = (struct container *) bfd_zalloc (abfd, sizeof (struct container));
-  if (rawptr == NULL)
-    {
-      bfd_error = no_memory;
-      return 0;
-    }
-
-  rawptr1 = (struct hppa_data_struct *) bfd_zalloc (abfd, sizeof (struct hppa_data_struct));
-  if (rawptr1 == NULL)
-    {
-      bfd_error = no_memory;
-      return 0;
-    }
-
-  abfd->tdata.hppa_data = rawptr1;
-  obj_file_hdr (abfd) = &rawptr->f;
-  obj_aux_hdr (abfd) = &rawptr->e;
-  *obj_file_hdr (abfd) = *file_hdrp;
-  *obj_aux_hdr (abfd) = *aux_hdrp;
-
-  /* Set the file flags */
-  abfd->flags = NO_FLAGS;
-  if (file_hdrp->entry_offset)
-    abfd->flags |= HAS_RELOC;
-  if (file_hdrp->symbol_total)
-    abfd->flags |= HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS;
-
-  bfd_get_start_address (abfd) = aux_hdrp->exec_entry;
-
-  obj_pa_symbols (abfd) = (hppa_symbol_type *) NULL;
-  bfd_get_symcount (abfd) = file_hdrp->symbol_total;
-
-  bfd_default_set_arch_mach (abfd, bfd_arch_hppa, 0);
-
-  /* create the sections.  This is raunchy, but bfd_close wants to reclaim
-     them */
-
-  text = bfd_make_section (abfd, ".text");
-  data = bfd_make_section (abfd, ".data");
-  bss = bfd_make_section (abfd, ".bss");
-
-  text->_raw_size = aux_hdrp->exec_tsize;
-  data->_raw_size = aux_hdrp->exec_dsize;
-  bss->_raw_size = aux_hdrp->exec_bsize;
-
-  text->flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS);
-  data->flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS);
-  bss->flags = SEC_ALLOC;
-
-  /* The virtual memory addresses of the sections */
-  text->vma = aux_hdrp->exec_tmem;
-  data->vma = aux_hdrp->exec_dmem;
-  bss->vma = aux_hdrp->exec_bfill;
-
-  /* The file offsets of the sections */
-  text->filepos = aux_hdrp->exec_tfile;
-  data->filepos = aux_hdrp->exec_dfile;
-
-  /* The file offsets of the relocation info */
-  text->rel_filepos = 0;
-  data->rel_filepos = 0;
-
-  /* The file offsets of the string table and symbol table.  */
-  obj_sym_filepos (abfd) = file_hdrp->symbol_location;
-  bfd_get_symcount (abfd) = file_hdrp->symbol_total;
-  obj_str_filepos (abfd) = file_hdrp->symbol_strings_location;
-  obj_stringtab_size (abfd) = file_hdrp->symbol_strings_size;
-
-  return abfd->xvec;
-}
-
-/* Create a new BFD section for NAME.  If NAME already exists, then create a
-   new unique name, with NAME as the prefix.  This exists because SOM .o files
-   created by the native compiler can have a $CODE$ section for each
-   subroutine.
- */
-
-static asection *
-make_unique_section (abfd, name, num)
-     bfd *abfd;
-     CONST char *name;
-     int num;
-{
-  asection *sect;
-  char *newname;
-  char altname[100];
-
-  sect = bfd_make_section (abfd, name);
-  while (!sect)
-    {
-      sprintf (altname, "%s-%d", name, num++);
-      sect = bfd_make_section (abfd, altname);
-    }
-
-  newname = bfd_alloc (abfd, strlen (sect->name) + 1);
-  strcpy (newname, sect->name);
-
-  sect->name = newname;
-  return sect;
-}
-
-/* Convert all of the space and subspace info into BFD sections.  Each space
-   contains a number of subspaces, which in turn describe the mapping between
-   regions of the exec file, and the address space that the program runs in.
-   BFD sections which correspond to spaces will overlap the sections for the
-   associated subspaces.  */
-
-static int
-setup_sections (abfd, file_hdr)
-     bfd *abfd;
-     struct header *file_hdr;
-{
-  char *space_strings;
-  int space_index;
-
-  /* First, read in space names */
-
-  space_strings = alloca (file_hdr->space_strings_size);
-  if (!space_strings)
-    return 0;
-
-  if (bfd_seek (abfd, file_hdr->space_strings_location, SEEK_SET) < 0)
-    return 0;
-  if (bfd_read (space_strings, 1, file_hdr->space_strings_size, abfd)
-      != file_hdr->space_strings_size)
-    return 0;
-
-  /* Loop over all of the space dictionaries, building up sections */
-
-  for (space_index = 0; space_index < file_hdr->space_total; space_index++)
-    {
-      struct space_dictionary_record space;
-      struct subspace_dictionary_record subspace;
-      int subspace_index, tmp;
-      asection *space_asect;
-
-      /* Read the space dictionary element */
-      if (bfd_seek (abfd, file_hdr->space_location
-		    + space_index * sizeof space, SEEK_SET) < 0)
-	return 0;
-      if (bfd_read (&space, 1, sizeof space, abfd) != sizeof space)
-	return 0;
-
-      /* Setup the space name string */
-      space.name.n_name = space.name.n_strx + space_strings;
-
-      /* Make a section out of it */
-      space_asect = make_unique_section (abfd, space.name.n_name, space_index);
-      if (!space_asect)
-	return 0;
-
-      /* Now, read in the first subspace for this space */
-      if (bfd_seek (abfd, file_hdr->subspace_location
-		    + space.subspace_index * sizeof subspace,
-		    SEEK_SET) < 0)
-	return 0;
-      if (bfd_read (&subspace, 1, sizeof subspace, abfd) != sizeof subspace)
-	return 0;
-      /* Seek back to the start of the subspaces for loop below */
-      if (bfd_seek (abfd, file_hdr->subspace_location
-		    + space.subspace_index * sizeof subspace,
-		    SEEK_SET) < 0)
-	return 0;
-
-      /* Setup the section flags as appropriate (this is somewhat bogus, as
-	 there isn't a clear mapping between what's in the space record, and
-	 what BFD can describe here). */
-      if (space.is_loadable)
-	space_asect->flags |= SEC_ALLOC;
-      if (space.is_defined)
-	space_asect->flags |= SEC_LOAD;
-
-      /* Setup the start address and file loc from the first subspace record */
-      space_asect->vma = subspace.subspace_start;
-      space_asect->filepos = subspace.file_loc_init_value;
-      space_asect->alignment_power = subspace.alignment;
-
-      /* Loop over the rest of the subspaces, building up more sections */
-      for (subspace_index = 0; subspace_index < space.subspace_quantity;
-	   subspace_index++)
-	{
-	  asection *subspace_asect;
-
-	  /* Read in the next subspace */
-	  if (bfd_read (&subspace, 1, sizeof subspace, abfd)
-	      != sizeof subspace)
-	    return 0;
-
-	  /* Setup the subspace name string */
-	  subspace.name.n_name = subspace.name.n_strx + space_strings;
-
-	  /* Make a section out of this subspace */
-	  subspace_asect = make_unique_section (abfd, subspace.name.n_name,
-				     space.subspace_index + subspace_index);
-
-	  if (!subspace_asect)
-	    return 0;
-
-	  if (subspace.is_loadable)
-	    subspace_asect->flags |= SEC_ALLOC | SEC_LOAD;
-	  if (subspace.code_only)
-	    subspace_asect->flags |= SEC_CODE;
-
-	  subspace_asect->vma = subspace.subspace_start;
-	  subspace_asect->_cooked_size = subspace.subspace_length;
-	  subspace_asect->_raw_size = subspace.initialization_length;
-	  subspace_asect->alignment_power = subspace.alignment;
-	  subspace_asect->filepos = subspace.file_loc_init_value;
-
-	}
-      /* Setup the sizes for the space section based upon the info in the
-	 last subspace of the space. */
-      space_asect->_cooked_size = (subspace.subspace_start - space_asect->vma)
-	+ subspace.subspace_length;
-      space_asect->_raw_size = (subspace.file_loc_init_value
-				- space_asect->filepos)
-	+ subspace.initialization_length;
-    }
-}
-
-static bfd_target *
-hppa_object_p (abfd)
-     bfd *abfd;
-{
-  struct header file_hdr;
-  struct som_exec_auxhdr aux_hdr;
-
-  if (bfd_read ((PTR) & file_hdr, 1, FILE_HDR_SIZE, abfd) != FILE_HDR_SIZE)
-    return 0;
-
-  if (!_PA_RISC_ID (file_hdr.system_id))
-    {
-      bfd_error = wrong_format;
-      return 0;
-    }
-
-  switch (file_hdr.a_magic)
-    {
-    case RELOC_MAGIC:		/* I'm not really sure about all of these types... */
-    case EXEC_MAGIC:
-    case SHARE_MAGIC:
-    case DEMAND_MAGIC:
-#ifdef DL_MAGIC
-    case DL_MAGIC:
-#endif
-#ifdef SHL_MAGIC
-    case SHL_MAGIC:
-#endif
-      break;
-    default:
-      bfd_error = wrong_format;
-      return 0;
-    }
-
-  if (file_hdr.version_id != VERSION_ID
-      && file_hdr.version_id != NEW_VERSION_ID)
-    {
-      bfd_error = wrong_format;
-      return 0;
-    }
-
-  if (bfd_read ((PTR) & aux_hdr, 1, AUX_HDR_SIZE, abfd) != AUX_HDR_SIZE)
-    bfd_error = wrong_format;
-
-  if (!setup_sections (abfd, &file_hdr))
-    return 0;
-
-  return hppa_object_setup (abfd, &file_hdr, &aux_hdr);
-}
-
-static boolean
-hppa_mkobject (abfd)
-     bfd *abfd;
-{
-  fprintf (stderr, "hppa_mkobject unimplemented\n");
-  fflush (stderr);
-  abort ();
-  return (false);
-}
-
-boolean
-hppa_write_object_contents(abfd)
-     bfd *abfd;
-{
-  fprintf (stderr, "hppa_write_object_contents unimplemented\n");
-  fflush (stderr);
-  abort ();
-  return (false);
-}
-
-static unsigned int
-hppa_get_symtab_upper_bound (abfd)
-     bfd *abfd;
-{
-  fprintf (stderr, "hppa_get_symtab_upper_bound unimplemented\n");
-  fflush (stderr);
-  abort ();
-  return (0);
-}
-
-static unsigned int
-hppa_get_reloc_upper_bound (abfd, asect)
-     bfd *abfd;
-     sec_ptr asect;
-{
-  fprintf (stderr, "hppa_get_reloc_upper_bound unimplemented\n");
-  fflush (stderr);
-  abort ();
-  return (0);
-}
-
-static unsigned int
-hppa_canonicalize_reloc (abfd, section, relptr, symbols)
-     bfd *abfd;
-     sec_ptr section;
-     arelent **relptr;
-     asymbol **symbols;
-{
-  fprintf (stderr, "hppa_canonicalize_reloc unimplemented\n");
-  fflush (stderr);
-  abort ();
-}
-
-extern bfd_target hppa_vec;
-
-static unsigned int
-hppa_get_symtab (abfd, location)
-     bfd *abfd;
-     asymbol **location;
-{
-  fprintf (stderr, "hppa_get_symtab unimplemented\n");
-  fflush (stderr);
-  abort ();
-  return (0);
-}
-
-static asymbol *
-hppa_make_empty_symbol (abfd)
-     bfd *abfd;
-{
-  hppa_symbol_type *new =
-  (hppa_symbol_type *) bfd_zalloc (abfd, sizeof (hppa_symbol_type));
-  new->symbol.the_bfd = abfd;
-
-  return &new->symbol;
-}
-
-static void
-hppa_print_symbol (ignore_abfd, afile, symbol, how)
-     bfd *ignore_abfd;
-     PTR afile;
-     asymbol *symbol;
-     bfd_print_symbol_type how;
-{
-  fprintf (stderr, "hppa_print_symbol unimplemented\n");
-  fflush (stderr);
-  abort ();
-}
-
-static boolean
-hppa_new_section_hook (abfd, newsect)
-     bfd *abfd;
-     asection *newsect;
-{
-  newsect->alignment_power = 3;
-
-  /* We allow more than three sections internally */
-  return true;
-}
-
-static boolean
-hppa_set_section_contents (abfd, section, location, offset, count)
-     bfd *abfd;
-     sec_ptr section;
-     PTR location;
-     file_ptr offset;
-     bfd_size_type count;
-{
-  fprintf (stderr, "hppa_set_section_contents unimplimented\n");
-  fflush (stderr);
-  abort ();
-  return false;
-}
-
-static boolean
-hppa_set_arch_mach (abfd, arch, machine)
-     bfd *abfd;
-     enum bfd_architecture arch;
-     unsigned long machine;
-{
-  fprintf (stderr, "hppa_set_arch_mach unimplemented\n");
-  fflush (stderr);
-  /* Allow any architecture to be supported by the hppa backend */
-  return bfd_default_set_arch_mach (abfd, arch, machine);
-}
-
-static boolean
-hppa_find_nearest_line (abfd, section, symbols, offset, filename_ptr,
-			functionname_ptr, line_ptr)
-     bfd *abfd;
-     asection *section;
-     asymbol **symbols;
-     bfd_vma offset;
-     CONST char **filename_ptr;
-     CONST char **functionname_ptr;
-     unsigned int *line_ptr;
-{
-  fprintf (stderr, "hppa_find_nearest_line unimplemented\n");
-  fflush (stderr);
-  abort ();
-  return (false);
-}
-
-static int
-hppa_sizeof_headers (abfd, reloc)
-     bfd *abfd;
-     boolean reloc;
-{
-  fprintf (stderr, "hppa_sizeof_headers unimplemented\n");
-  fflush (stderr);
-  abort ();
-  return (0);
-}
-
-/* Miscellaneous Support Functions -- Control Structures and Functions
-   for the PA.  */
-
-unsigned int 
-assemble_3 (x)
-     unsigned int x;
-{
-  return (((x & 1) << 2) | ((x & 6) >> 1)) & 7;
-}
-
-void 
-dis_assemble_3 (x, r)
-     unsigned int x;
-     unsigned int *r;
-{
-  *r = (((x & 4) >> 2) | ((x & 3) << 1)) & 7;
-}
-
-unsigned int 
-assemble_12 (x, y)
-     unsigned int x, y;
-{
-  return (((y & 1) << 11) | ((x & 1) << 10) | ((x & 0x7fe) >> 1)) & 0xfff;
-}
-
-void 
-dis_assemble_12 (as12, x, y)
-     unsigned int as12;
-     unsigned int *x, *y;
-{
-  *y = (as12 & 0x800) >> 11;
-  *x = ((as12 & 0x3ff) << 1) | ((as12 & 0x400) >> 10);
-}
-
-unsigned long 
-assemble_17 (x, y, z)
-     unsigned int x, y, z;
-{
-  unsigned long temp;
-
-  temp = ((z & 1) << 16) |
-    ((x & 0x1f) << 11) |
-    ((y & 1) << 10) |
-    ((y & 0x7fe) >> 1);
-  return temp & 0x1ffff;
-}
-
-void 
-dis_assemble_17 (as17, x, y, z)
-     unsigned int as17;
-     unsigned int *x, *y, *z;
-{
-
-  *z = (as17 & 0x10000) >> 16;
-  *x = (as17 & 0x0f800) >> 11;
-  *y = (((as17 & 0x00400) >> 10) | ((as17 & 0x3ff) << 1)) & 0x7ff;
-}
-
-unsigned long 
-assemble_21 (x)
-     unsigned int x;
-{
-  unsigned long temp;
-
-  temp = ((x & 1) << 20) |
-    ((x & 0xffe) << 8) |
-    ((x & 0xc000) >> 7) |
-    ((x & 0x1f0000) >> 14) |
-    ((x & 0x003000) >> 12);
-  return temp & 0x1fffff;
-}
-
-void 
-dis_assemble_21 (as21, x)
-     unsigned int as21, *x;
-{
-  unsigned long temp;
-
-
-  temp = (as21 & 0x100000) >> 20;
-  temp |= (as21 & 0x0ffe00) >> 8;
-  temp |= (as21 & 0x000180) << 7;
-  temp |= (as21 & 0x00007c) << 14;
-  temp |= (as21 & 0x000003) << 12;
-  *x = temp;
-}
-
-#if 0
-unsigned long 
-sign_ext (x, len)
-     unsigned int x, len;
-{
-  unsigned int sign;
-  unsigned int result;
-  unsigned int len_ones;
-  int i;
-
-  i = 0;
-  len_ones = 0;
-  while (i < len)
-    {
-      len_ones = (len_ones << 1) | 1;
-      i++;
-    }
-
-  sign = (x >> (len - 1)) & 1;
-
-  if (sign)
-    result = (~0 ^ len_ones) | (len_ones & x);
-  else
-    result = len_ones & x;
-
-  return result;
-}
-
-#endif
-static unsigned long 
-sign_ext (x, len)
-     unsigned int x, len;
-{
-  return (x << (32 - len)) >> (32 - len);
-}
-
-static unsigned int 
-ones (n)
-     int n;
-{
-  unsigned int len_ones;
-  int i;
-
-  i = 0;
-  len_ones = 0;
-  while (i < n)
-    {
-      len_ones = (len_ones << 1) | 1;
-      i++;
-    }
-
-  return len_ones;
-}
-
-void 
-sign_unext (x, len, result)
-     unsigned int x, len;
-     unsigned int *result;
-{
-  unsigned int len_ones;
-
-  len_ones = ones (len);
-
-  *result = x & len_ones;
-}
-
-unsigned long 
-low_sign_ext (x, len)
-     unsigned int x, len;
-{
-  unsigned int temp1, temp2;
-  unsigned int len_ones;
-
-  len_ones = ones (len);
-
-  temp1 = (x & 1) << (len - 1);
-  temp2 = ((x & 0xfffffffe) & len_ones) >> 1;
-  return sign_ext ((temp1 | temp2), len);
-}
-
-void 
-low_sign_unext (x, len, result)
-     unsigned int x, len;
-     unsigned int *result;
-{
-  unsigned int temp;
-  unsigned int sign;
-  unsigned int rest;
-  unsigned int one_bit_at_len;
-  unsigned int len_ones;
-
-  len_ones = ones (len);
-  one_bit_at_len = 1 << (len - 1);
-
-  sign_unext (x, len, &temp);
-  sign = temp & one_bit_at_len;
-  sign >>= (len - 1);
-
-  rest = temp & (len_ones ^ one_bit_at_len);
-  rest <<= 1;
-
-  *result = rest | sign;
-}
-
-/* These work when 'y' is a power of two only. */
-
-static long
-round_down (x, y)
-     long x, y;
-{
-  return x & ~(y - 1);
-}
-
-static long
-round (x, y)
-     long x, y;
-{
-  return (x + y / 2) & ~(y - 1);
-}
-
-static long
-round_up (x, y)
-     long x, y;
-{
-  return x - (x | ~(y - 1));
-}
-
-/*	L(Symbol, Addend):	*/
-/*		round_down (Symbol + Addend, 2048)	*/
-
-static long
-L (Symbol, Addend)
-{
-  return (round_down (Symbol + Addend, 2048)) >> 11;
-}
-
-/*	R(Symbol, Addend):	*/
-/*		Symbol + Addend - round_down (Symbol + Addend, 2048)	*/
-
-static long
-R (Symbol, Addend)
-{
-  return Symbol + Addend - round_down (Symbol + Addend, 2048);
-}
-
-/*	LS(Symbol, Addend):	*/
-/*		round (Symbol + Addend, 2048)	*/
-
-static long
-LS (Symbol, Addend)
-{
-  return round (Symbol + Addend, 2048);
-}
-
-/*	RS(Symbol, Addend):	*/
-/*		Symbol + Addend - round (Symbol + Addend, 2048)	*/
-
-static long
-RS (Symbol, Addend)
-{
-  return Symbol + Addend - round (Symbol + Addend, 2048);
-}
-
-/*	LD(Symbol, Addend):	*/
-/*		round_up (Symbol + Addend, 2048)	*/
-
-static long
-LD (Symbol, Addend)
-{
-  return (round_up (Symbol + Addend, 2048)) >> 11;
-}
-
-/*	RD(Symbol, Addend):	*/
-/*		Symbol + Addend - round_up (Symbol + Addend, 2048)	*/
-
-static long
-RD (Symbol, Addend)
-{
-  return Symbol + Addend - round_up (Symbol + Addend, 2048);
-}
-
-/*	LR(Symbol, Addend):	*/
-/*		round_down (Symbol, 2048) + round (Addend, 8192)	*/
-
-static long
-LR (Symbol, Addend)
-{
-  return (round_down (Symbol, 2048) + round (Addend, 8192)) >> 11;
-}
-
-/*	RR(Symbol, Addend):	*/
-/*		Symbol - round_down (Symbol, 2048) +	*/
-/*			Addend - round (Addend, 8192)	*/
-
-static long
-RR (Symbol, Addend)
-{
-  return Symbol
-  - round_down (Symbol, 2048)
-  + Addend - round (Addend, 8192);
-}
-
-unsigned long
-hppa_field_adjust (value, constant_value, r_field)
-     unsigned long value;
-     unsigned long constant_value;
-     unsigned short r_field;
-{
-  unsigned long init_value = value;
-  value += constant_value;
-  switch (r_field)
-    {
-    case e_fsel:		/* F  : no change                      */
-      break;
-
-    case e_lssel:		/* LS : if (bit 21) then add 0x800
-		                    arithmetic shift right 11 bits */
-      if (value & 0x00000400)
-	value += 0x800;
-      value = (value & 0xfffff800) >> 11;
-      BFD_ASSERT (value == LS (init_value, constant_value));
-      break;
-
-    case e_rssel:		/* RS : Sign extend from bit 21        */
-      if (value & 0x00000400)
-	value |= 0xfffff800;
-      else
-	value &= 0x7ff;
-      BFD_ASSERT (value == RS (init_value, constant_value));
-      break;
-
-    case e_lsel:		/* L  : Arithmetic shift right 11 bits */
-      value = (value & 0xfffff800) >> 11;
-      BFD_ASSERT (value == L (init_value, constant_value));
-      break;
-
-    case e_rsel:		/* R  : Set bits 0-20 to zero          */
-      value = value & 0x7ff;
-      BFD_ASSERT (value == R (init_value, constant_value));
-      break;
-
-    case e_ldsel:		/* LD : Add 0x800, arithmetic shift
-		                    right 11 bits                  */
-      value += 0x800;
-      value = (value & 0xfffff800) >> 11;
-      BFD_ASSERT (value == LD (init_value, constant_value));
-      break;
-
-    case e_rdsel:		/* RD : Set bits 0-20 to one           */
-      value |= 0xfffff800;
-      BFD_ASSERT (value == RD (init_value, constant_value));
-      break;
-
-    case e_lrsel:		/* LR : L with "rounded" constant      */
-      value = value + ((constant_value + 0x1000) & 0xffffe000);
-      value = (value & 0xfffff800) >> 11;
-      BFD_ASSERT (value == LR (init_value, constant_value));
-      break;
-
-    case e_rrsel:		/* RR : R with "rounded" constant      */
-      value = value + ((constant_value + 0x1000) & 0xffffe000);
-      value = (value & 0x7ff) + constant_value - ((constant_value + 0x1000) & 0xffffe000);
-      BFD_ASSERT (value == RR (init_value, constant_value));
-      break;
-
-    default:
-      fprintf (stderr, "Unrecognized field_selector 0x%02x\n", r_field);
-      break;
-    }
-  return value;
-
-}
-
-/* Return information about SOM symbol SYMBOL in RET.  */
-
-static void
-hppa_get_symbol_info (ignore_abfd, symbol, ret)
-     bfd *ignore_abfd;		/* Ignored.  */
-     asymbol *symbol;
-     symbol_info *ret;
-{
-  bfd_symbol_info (symbol, ret);
-}
-
-/* End of miscellaneous support functions. */
-
-#define hppa_bfd_debug_info_start        bfd_void
-#define hppa_bfd_debug_info_end          bfd_void
-#define hppa_bfd_debug_info_accumulate   (PROTO(void,(*),(bfd*, struct sec *))) bfd_void
-
-#define hppa_openr_next_archived_file    bfd_generic_openr_next_archived_file
-#define hppa_generic_stat_arch_elt       bfd_generic_stat_arch_elt
-#define hppa_slurp_armap                  bfd_false
-#define hppa_slurp_extended_name_table    _bfd_slurp_extended_name_table
-#define hppa_truncate_arname              (void (*)())bfd_nullvoidptr
-#define hppa_write_armap                  0
-
-#define hppa_get_lineno                   (struct lineno_cache_entry *(*)())bfd_nullvoidptr
-#define	hppa_close_and_cleanup	           bfd_generic_close_and_cleanup
-#define hppa_get_section_contents          bfd_generic_get_section_contents
-
-#define hppa_bfd_get_relocated_section_contents \
- bfd_generic_get_relocated_section_contents
-#define hppa_bfd_relax_section bfd_generic_relax_section
-#define hppa_bfd_seclet_link bfd_generic_seclet_link
-#define hppa_bfd_reloc_type_lookup \
-  ((CONST struct reloc_howto_struct *(*) PARAMS ((bfd *, bfd_reloc_code_real_type))) bfd_nullvoidptr)
-#define hppa_bfd_make_debug_symbol \
-  ((asymbol *(*) PARAMS ((bfd *, void *, unsigned long))) bfd_nullvoidptr)
-
-/* Core file support is in the hpux-core backend.  */
-#define hppa_core_file_failing_command	_bfd_dummy_core_file_failing_command
-#define hppa_core_file_failing_signal	_bfd_dummy_core_file_failing_signal
-#define hppa_core_file_matches_executable_p	_bfd_dummy_core_file_matches_executable_p
-
-bfd_target hppa_vec =
-{
-  "hppa",			/* name */
-  bfd_target_hppa_flavour,
-  true,				/* target byte order */
-  true,				/* target headers byte order */
-  (HAS_RELOC | EXEC_P |		/* object flags */
-   HAS_LINENO | HAS_DEBUG |
-   HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED),
-  (SEC_CODE | SEC_DATA | SEC_ROM | SEC_HAS_CONTENTS
-   | SEC_ALLOC | SEC_LOAD | SEC_RELOC),	/* section flags */
-
-/* leading_symbol_char: is the first char of a user symbol
-      predictable, and if so what is it */
-  0,
-  ' ',				/* ar_pad_char */
-  16,				/* ar_max_namelen */
-  3,				/* minimum alignment */
-  _do_getb64, _do_getb_signed_64, _do_putb64,
-  _do_getb32, _do_getb_signed_32, _do_putb32,
-  _do_getb16, _do_getb_signed_16, _do_putb16,	/* data */
-  _do_getb64, _do_getb_signed_64, _do_putb64,
-  _do_getb32, _do_getb_signed_32, _do_putb32,
-  _do_getb16, _do_getb_signed_16, _do_putb16,	/* hdrs */
-  {_bfd_dummy_target,
-   hppa_object_p,		/* bfd_check_format */
-   bfd_generic_archive_p,
-   _bfd_dummy_target
-  },
-  {
-    bfd_false,
-    hppa_mkobject,
-    _bfd_generic_mkarchive,
-    bfd_false
-  },
-  {
-    bfd_false,
-    hppa_write_object_contents,
-    _bfd_write_archive_contents,
-    bfd_false,
-  },
-#undef hppa
-  JUMP_TABLE (hppa),
-  (PTR) 0
-};
-
-#endif /* HOST_HPPAHPUX || HOST_HPPABSD */