Removed files that are no longer used by the rewritten linker.

11 files changed, 0 insertions, 1332 deletions

diff --git a/ld/.Sanitize b/ld/.Sanitize
index 6c47375..a210094 100644
--- a/ld/.Sanitize
+++ b/ld/.Sanitize
@@ -56,15 +56,11 @@ ldctor.c
 ldctor.h
 ldemul.c
 ldemul.h
-lderror.c
-lderror.h
 ldexp.c
 ldexp.h
 ldfile.c
 ldfile.h
 ldgram.y
-ldindr.c
-ldindr.h
 ldint.texinfo
 ldlang.c
 ldlang.h
@@ -74,19 +70,13 @@ ldmain.c
 ldmain.h
 ldmisc.c
 ldmisc.h
-ldsym.c
-ldsym.h
 ldver.c
 ldver.h
-ldwarn.c
-ldwarn.h
 ldwrite.c
 ldwrite.h
 lexsup.c
 mri.c
 mri.h
-relax.c
-relax.h
 scripttempl
 
 Things-to-lose:
diff --git a/ld/lderror.c b/ld/lderror.c
deleted file mode 100644
index d8231cd..0000000
--- a/ld/lderror.c
+++ /dev/null
@@ -1,102 +0,0 @@
-/* Copyright (C) 1991, 1993 Free Software Foundation, Inc.
-   Written by Steve Chamberlain steve@cygnus.com
-
-This file is part of GLD, the Gnu Linker.
-
-GLD 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, or (at your option)
-any later version.
-
-GLD 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 GLD; see the file COPYING.  If not, write to
-the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
-
-#include <bfd.h>
-#include "sysdep.h"
-#include "../bfd/seclet.h"
-#include "ld.h"
-#include "ldmisc.h"
-#include "lderror.h"
-
-#define MAX_ERRORS_IN_A_ROW 5
-
-extern bfd_error_vector_type bfd_error_vector;
-
-static void ld_undefined_symbol PARAMS ((const arelent *,
-					 const bfd_seclet_type *));
-static void ld_reloc_truncated PARAMS ((const arelent *,
-					bfd_seclet_type *));
-
-/* BFD has failed to link something, give a better error message */
-
-static void
-ld_undefined_symbol (relent, seclet)
-     CONST arelent *relent;
-     CONST bfd_seclet_type *seclet;
-{
-  asymbol *s = *(relent->sym_ptr_ptr);
-  static asymbol *error_symbol;
-  static unsigned int error_count;
-  if (seclet != (bfd_seclet_type *)NULL)
-  {
-    
-    asection *section = seclet->u.indirect.section;
-    bfd *abfd = section->owner;
-
-
-    /* We remember the symbol, and never print more than
-       a reasonable number of them in a row */
-    if (s == error_symbol) {
-	error_count++;
-      }
-    else {
-	error_count = 0;
-	error_symbol = s;
-      }
-    if (error_count < MAX_ERRORS_IN_A_ROW) {
-	einfo("%X%C: undefined reference to `%T'\n",
-	      abfd,section, seclet->u.indirect.symbols,
-	      relent->address, s);
-	config.make_executable = false;
-
-      }
-    else if (error_count == MAX_ERRORS_IN_A_ROW) {
-	einfo("%C: more undefined references to `%T' follow\n",
-	      abfd, section,
-	      seclet->u.indirect.symbols, 
-	      relent->address, s);
-      }		    
-    else {
-	/* Don't print any more */
-      }
-  }
-  else 
-  {
-    einfo("%Xundefined reference to %s\n", (*(relent->sym_ptr_ptr))->name);
-  }
-}
-
-static void
-ld_reloc_truncated (relent, seclet)
-     CONST arelent *relent;
-     bfd_seclet_type *seclet;
-{
-  asection *section = seclet->u.indirect.section;
-  bfd *abfd = section->owner;
-  
-  einfo("%X%C: relocation truncated to fit %R\n",
-	abfd, section, seclet->u.indirect.symbols, relent->address, relent);
-}
-
-void
-init_bfd_error_vector ()
-{
-  bfd_error_vector.undefined_symbol = ld_undefined_symbol;  
-  bfd_error_vector.reloc_value_truncated = ld_reloc_truncated;
-}
diff --git a/ld/lderror.h b/ld/lderror.h
deleted file mode 100644
index 7209a49..0000000
--- a/ld/lderror.h
+++ /dev/null
@@ -1 +0,0 @@
-void init_bfd_error_vector PARAMS ((void));
diff --git a/ld/ldindr.c b/ld/ldindr.c
deleted file mode 100644
index a47a5d8..0000000
--- a/ld/ldindr.c
+++ /dev/null
@@ -1,124 +0,0 @@
-/* ldindr.c
-   Handle indirect symbols.
-
-   Copyright (C) 1991 Free Software Foundation, Inc.
-   Written by Steve Chamberlain steve@cygnus.com
-
-   This file is part of GLD, the Gnu Linker.
-
-   GLD 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, or (at your option)
-   any later version.
-
-   GLD 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 GLD; see the file COPYING.  If not, write to
-   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
-
-*/
-
-/*
-   An indirect symbol is where a global symbol in one file say's that
-   all refs like it should be turned into refs of the symbol pointed
-   at by the value of the indirect symbol.
-
-   BFD supplies symbols to be indirected with the BFD_INDIRECT bit
-   set. Whenever the linker gets one of these, it calls add_indirect
-   with the symbol. We look up the symbol which this one dereferneces,
-   and stop if they are the same. If they are not the same, copy all
-   the information from the current to the dereffed symbol. Set the
-   indirect bit in the flag. From now on the ldsym_get stuff will
-   perform the indirection for us, at no charge.
-*/
-
-
-
-#include "bfd.h"
-#include "sysdep.h"
-#include "ld.h"
-#include "ldsym.h"
-#include "ldmain.h"
-#include "ldmisc.h"
-#include "ldindr.h"
-
-static asymbol **move_it PARAMS ((asymbol **, asymbol **));
-
-static asymbol **
-move_it (a_list, b_list)
-     asymbol **a_list;
-     asymbol **b_list;
-{
-  asymbol **head = a_list;
-  asymbol **cursor = head;
-
-  if (a_list == 0) return b_list;
-  if (b_list == 0) return a_list;
-
-  while (1) {
-    asymbol *ptr = cursor[0];
-    asymbol **next = (asymbol **)(ptr->udata);
-    if (next == 0) {
-      ptr->udata = (PTR) b_list;
-      return head;
-    }
-    cursor = next;
-  }
-}
-
-#if 0
-void 
-copy_over (ldsym, bfdsym)
-     ldsym_type *ldsym;
-     asymbol **bfdsym;
-{
-  while (list && *list)
-    {
-      refize(enter_global_ref(list, name));
-      list = (asymbol **)((*list)->udata);
-    }
-}
-#endif
-
-/* This call allows us to change the symbol table so that all future
-   refs to the symbol are patched to know the alias - but we still
-   have to fix all the old ones */
-void 
-add_indirect (ptr)
-     asymbol **ptr;
-{
-  ldsym_type *lgs = ldsym_get((*ptr)->name);
-  ldsym_type *new = ldsym_get(((asymbol *)((*ptr)->value))->name);
-
-  /* If the mapping has already been done, stop now */
-  if (lgs == new) return;
-
-  lgs->flags |= SYM_INDIRECT;
-
-  if (lgs->sdefs_chain && lgs->sdefs_chain[0]) 
-  {
-    einfo("indirect symbol already has definition %s\n",   lgs->sdefs_chain[0]);
-  }
-  new->scoms_chain = move_it(new->scoms_chain, lgs->scoms_chain);
-  lgs->scoms_chain = 0;
-  new->srefs_chain = move_it(new->srefs_chain, lgs->srefs_chain);
-  lgs->srefs_chain = 0;
-  new->sdefs_chain = move_it(new->sdefs_chain, lgs->sdefs_chain);
-  lgs->sdefs_chain = 0;
-
-  /* If the result has any commons they should be turned into refs */
-
-  if (new->sdefs_chain && new->scoms_chain) 
-  {
-    refize(new, new->scoms_chain);
-  }    
-  lgs->sdefs_chain = (asymbol **)new;
-  lgs->srefs_chain = ptr;
-}
-
-
-
diff --git a/ld/ldindr.h b/ld/ldindr.h
deleted file mode 100644
index 3d71d4d..0000000
--- a/ld/ldindr.h
+++ /dev/null
@@ -1,2 +0,0 @@
-void do_indirect PARAMS ((ldsym_type *));
-void add_indirect PARAMS ((asymbol **));
diff --git a/ld/ldsym.c b/ld/ldsym.c
deleted file mode 100644
index 6de790d..0000000
--- a/ld/ldsym.c
+++ /dev/null
@@ -1,673 +0,0 @@
-/* All symbol handling for the linker
-   Copyright (C) 1991 Free Software Foundation, Inc.
-   Written by Steve Chamberlain steve@cygnus.com
-
-This file is part of GLD, the Gnu Linker.
-
-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.  */
-
-/*
-   We keep a hash table of global symbols. Each entry in a hash table
-   is called an ldsym_type. Each has three chains; a pointer to a
-   chain of definitions for the symbol (hopefully one long), a pointer
-   to a chain of references to the symbol, and a pointer to a chain of
-   common symbols. Each pointer points into the canonical symbol table
-   provided by bfd, each one of which points to an asymbol. During
-   linkage, the linker uses the udata field to point to the next entry
-   in a canonical table....
-
-
-   ld_sym
-			|          |
-   +----------+		+----------+
-   | defs     |      a canonical symbol table
-   +----------+         +----------+
-   | refs     | ----->  | one entry|  -----> asymbol
-   +----------+		+----------+	   |   	     |
-   | coms     |		|          |	   +---------+
-   +----------+		+----------+	   | udata   |-----> another canonical
-					   +---------+		symbol
-
-
-
-   It is very simple to make all the symbol pointers point to the same
-   definition - just run down the chain and make the asymbols pointers
-   within the canonical table point to the asymbol attacthed to the
-   definition of the symbol.
-
-*/
-
-#include "bfd.h"
-#include "sysdep.h"
-
-#include "ld.h"
-#include "ldsym.h"
-#include "ldmisc.h"
-#include "ldexp.h"
-#include "ldlang.h"
-#include "mri.h"
-#include "ldmain.h"
-
-/* Head and tail of global symbol table chronological list */
-
-ldsym_type *symbol_head = (ldsym_type *) NULL;
-ldsym_type **symbol_tail_ptr = &symbol_head;
-CONST char *keepsyms_file;
-int kept_syms;
-
-struct obstack global_sym_obstack;
-#define obstack_chunk_alloc ldmalloc
-#define obstack_chunk_free  free
-
-/*
-  incremented for each symbol in the ldsym_type table
-  no matter what flavour it is
-*/
-unsigned int global_symbol_count;
-
-/* LOCALS */
-#define	TABSIZE	1009
-static ldsym_type *global_symbol_hash_table[TABSIZE];
-
-#ifndef __GNUC__
-#define __inline
-#endif
-
-static __inline int hash_string PARAMS ((const char *key));
-static __inline ldsym_type *search PARAMS ((const char *key, int hashval));
-static asymbol **process_keepsyms PARAMS ((asymbol **table, int size));
-static void print_file_stuff PARAMS ((lang_input_statement_type * f));
-static asymbol **write_file_locals PARAMS ((asymbol **output_buffer));
-static asymbol **write_file_globals PARAMS ((asymbol **symbol_table));
-
-/* Compute the hash code for symbol name KEY.  */
-static __inline int
-hash_string (key)
-     CONST char *key;
-{
-  register CONST char *cp;
-  register int k;
-  register int l = 0;
-  cp = key;
-  k = 0;
-  while (*cp && l < symbol_truncate)
-    {
-      k = (((k << 1) + (k >> 14)) ^ (*cp++)) & 0x3fff;
-      l++;
-    }
-  return k;
-}
-
-static __inline ldsym_type *
-search (key, hashval)
-     CONST char *key;
-     int hashval;
-{
-  ldsym_type *bp;
-  for (bp = global_symbol_hash_table[hashval]; bp; bp = bp->link)
-    if (!strncmp (key, bp->name, symbol_truncate))
-      {
-	if (bp->flags & SYM_INDIRECT)
-	  {
-	    /* Use the symbol we're aliased to instead */
-	    return (ldsym_type *) (bp->sdefs_chain);
-	  }
-	return bp;
-      }
-  return 0;
-}
-
-
-/* Get the symbol table entry for the global symbol named KEY.
-   Create one if there is none.  */
-ldsym_type *
-ldsym_get (key)
-     CONST char *key;
-{
-  register int hashval;
-  register ldsym_type *bp;
-
-  /* Determine the proper bucket.  */
-
-  hashval = hash_string (key) % TABSIZE;
-
-  /* Search the bucket.  */
-  bp = search (key, hashval);
-  if (bp)
-    {
-      return bp;
-    }
-
-  /* Nothing was found; create a new symbol table entry.  */
-
-  bp = (ldsym_type *) obstack_alloc (&global_sym_obstack, (bfd_size_type) (sizeof (ldsym_type)));
-  bp->srefs_chain = (asymbol **) NULL;
-  bp->sdefs_chain = (asymbol **) NULL;
-  bp->scoms_chain = (asymbol **) NULL;
-  bp->name = obstack_copy (&global_sym_obstack, key, strlen (key) + 1);
-  bp->flags = 0;
-  /* Add the entry to the bucket.  */
-
-  bp->link = global_symbol_hash_table[hashval];
-  global_symbol_hash_table[hashval] = bp;
-
-  /* Keep the chronological list up to date too */
-  *symbol_tail_ptr = bp;
-  symbol_tail_ptr = &bp->next;
-  bp->next = 0;
-  global_symbol_count++;
-
-  return bp;
-}
-
-/* Like `ldsym_get' but return 0 if the symbol is not already known.  */
-
-ldsym_type *
-ldsym_get_soft (key)
-     CONST char *key;
-{
-  register int hashval;
-  /* Determine which bucket.  */
-
-  hashval = hash_string (key) % TABSIZE;
-
-  /* Search the bucket.  */
-  return search (key, hashval);
-}
-
-static asymbol **
-process_keepsyms (table, size)
-     asymbol **table;
-     int size;
-{
-  struct obstack obstack;
-  char *start_of_obstack;
-  FILE *ks_file = 0;
-  asymbol **out = table;
-  asymbol **end = table + size;
-  asymbol **sym;
-
-  if (!keepsyms_file || size == 0)
-    return end;
-  obstack_init (&obstack);
-  obstack_alloc (&obstack, 1);
-  obstack_finish (&obstack);
-  start_of_obstack = obstack_alloc (&obstack, 1);
-  ks_file = fopen (keepsyms_file, "r");
-  if (!ks_file)
-    {
-      info_msg ("%X%P: cannot open keep-symbols file `%s'\n", keepsyms_file);
-      goto egress;
-    }
-  errno = 0;
-
-#define KEEP(S) \
-  do { asymbol **p = (S), *tmp = *out; *out = *p; *p = tmp; out++; } while (0)
-
-  while (!feof (ks_file) && !ferror (ks_file))
-    {
-      int c;
-      char *ptr;
-      int found = 0;
-
-      obstack_free (&obstack, start_of_obstack);
-      do
-	{
-	  c = getc (ks_file);
-	  if (c == '\n')
-	    c = 0;
-	  obstack_1grow (&obstack, c);
-	}
-      while (c > 0);
-      if (c == EOF)
-	{
-	  if (!feof (ks_file))
-	    /* error occurred */
-	    {
-	      info_msg ("%X%P: error reading keep-symbols file `%s': %E\n",
-		    keepsyms_file);
-	      out = end;
-	      goto egress;
-	    }
-	  if (obstack_next_free (&obstack) != obstack_base (&obstack) + 1)
-	    /* eof in middle of symbol */
-	    {
-	      info_msg ("%X%P: eof reached mid-line while reading keep-symbols file `%s'\n",
-		    keepsyms_file);
-	      out = end;
-	      goto egress;
-	    }
-	  /* All okay -- no incomplete lines, EOF reached.  */
-	  break;
-	}
-      ptr = obstack_next_free (&obstack) - 2;
-      /* discard trailing trash */
-      while (*ptr == ' '
-	     || *ptr == '\t')
-	*ptr-- = 0;
-      ptr = obstack_base (&obstack);
-      for (sym = out; sym < end; sym++)
-	if (!strncmp ((*sym)->name, ptr, symbol_truncate))
-	  {
-	    KEEP (sym);
-	    found = 1;
-	  }
-      if (!found)
-	info_msg ("%P: symbol `%s' (requested to be kept) not found\n", ptr);
-    }
-  /* It'd be slightly faster to move this pass above the previous one,
-     but that'd mean any symbols preserved in this pass would generate
-     warnings if they were also listed in the keepsyms file.  */
-  for (sym = out; sym < end; sym++)
-    {
-      asymbol *s = *sym;
-      if (s->section == &bfd_und_section
-	  || bfd_is_com_section (s->section)
-	  || s->flags & BSF_KEEP_G)
-	KEEP (sym);
-    }
-egress:
-  obstack_free (&obstack, start_of_obstack);
-  if (ks_file)
-    fclose (ks_file);
-  return out;
-}
-
-#if 0
-
-/* This function is not used.  */
-
-static void
-list_file_locals (entry)
-     lang_input_statement_type *entry;
-{
-  asymbol **q;
-  fprintf (config.map_file, "\nLocal symbols of ");
-  minfo ("%I", entry);
-  fprintf (config.map_file, ":\n\n");
-  if (entry->asymbols)
-    {
-      for (q = entry->asymbols; *q; q++)
-	{
-	  asymbol *p = *q;
-	  /* If this is a definition,
-	   update it if necessary by this file's start address.  */
-	  if (p->flags & BSF_LOCAL)
-	    info_msg ("  %V %s\n", p->value, p->name);
-	}
-    }
-}
-
-#endif
-
-static void
-print_file_stuff (f)
-     lang_input_statement_type * f;
-{
-  fprintf (config.map_file, "  %s\n", f->filename);
-  if (f->just_syms_flag)
-    {
-      fprintf (config.map_file, " symbols only\n");
-    }
-  else
-    {
-      asection *s;
-      if (true)
-	{
-	  for (s = f->the_bfd->sections;
-	       s != (asection *) NULL;
-	       s = s->next)
-	    {
-	      print_address (s->output_offset);
-	      if (s->reloc_done)
-		{
-		  fprintf (config.map_file, " %08x 2**%2ud %s\n",
-			   (unsigned) bfd_get_section_size_after_reloc (s),
-			   s->alignment_power, s->name);
-		}
-
-	      else
-		{
-		  fprintf (config.map_file, " %08x 2**%2ud %s\n",
-			   (unsigned) bfd_get_section_size_before_reloc (s),
-			   s->alignment_power, s->name);
-		}
-	    }
-	}
-      else
-	{
-	  for (s = f->the_bfd->sections;
-	       s != (asection *) NULL;
-	       s = s->next)
-	    {
-	      fprintf (config.map_file, "%s ", s->name);
-	      print_address (s->output_offset);
-	      fprintf (config.map_file, "(%x)", (unsigned) bfd_get_section_size_after_reloc (s));
-	    }
-	  fprintf (config.map_file, "hex \n");
-	}
-    }
-  fprintf (config.map_file, "\n");
-}
-
-void
-ldsym_print_symbol_table ()
-{
-  fprintf (config.map_file, "**FILES**\n\n");
-
-  lang_for_each_file (print_file_stuff);
-
-  fprintf (config.map_file, "**GLOBAL SYMBOLS**\n\n");
-  fprintf (config.map_file, "offset    section    offset   symbol\n");
-  {
-    register ldsym_type *sp;
-
-    for (sp = symbol_head; sp; sp = sp->next)
-      {
-	if (sp->flags & SYM_INDIRECT)
-	  {
-	    fprintf (config.map_file, "indirect %s to %s\n",
-		     sp->name, (((ldsym_type *) (sp->sdefs_chain))->name));
-	  }
-	else
-	  {
-	    if (sp->sdefs_chain)
-	      {
-		asymbol *defsym = *(sp->sdefs_chain);
-		asection *defsec = bfd_get_section (defsym);
-		print_address (defsym->value);
-		if (defsec)
-		  {
-		    fprintf (config.map_file, "  %-10s",
-			     bfd_section_name (output_bfd,
-					       defsec));
-		    print_space ();
-		    print_address (defsym->value + defsec->vma);
-
-		  }
-		else
-		  {
-		    fprintf (config.map_file, "         .......");
-		  }
-
-	      }
-
-
-	    if (sp->scoms_chain)
-	      {
-		fprintf (config.map_file, "common               ");
-		print_address ((*(sp->scoms_chain))->value);
-		fprintf (config.map_file, " %s ", sp->name);
-	      }
-	    else if (sp->sdefs_chain)
-	      {
-		fprintf (config.map_file, " %s ", sp->name);
-	      }
-	    else
-	      {
-		fprintf (config.map_file, "undefined                     ");
-		fprintf (config.map_file, "%s ", sp->name);
-
-	      }
-	  }
-	print_nl ();
-
-      }
-  }
-}
-
-static asymbol **
-write_file_locals (output_buffer)
-     asymbol **output_buffer;
-{
-  LANG_FOR_EACH_INPUT_STATEMENT (entry)
-  {
-    /* Run trough the symbols and work out what to do with them */
-    unsigned int i;
-
-    /* Add one for the filename symbol if needed */
-    if (create_object_symbols
-	!= (lang_output_section_statement_type *) NULL)
-      {
-	asection *s;
-	for (s = entry->the_bfd->sections;
-	     s != (asection *) NULL;
-	     s = s->next)
-	  {
-	    if (s->output_section == create_object_symbols->bfd_section)
-	      {
-		/* Add symbol to this section */
-		asymbol *newsym =
-		(asymbol *) bfd_make_empty_symbol (entry->the_bfd);
-		newsym->name = entry->local_sym_name;
-		/* The symbol belongs to the output file's text section */
-
-		/* The value is the start of this section in the output file*/
-		newsym->value = 0;
-		/* FIXME: Usurping BSF_KEEP_G flag, since it's defined as
-		   "used by the linker" and I can't find any other code that
-		   uses it.  Should be a cleaner way of doing this (like an
-		   "application flags" field in the symbol structure?).  */
-		newsym->flags = BSF_LOCAL | BSF_KEEP_G | BSF_FILE;
-		newsym->section = s;
-		*output_buffer++ = newsym;
-		break;
-	      }
-	  }
-      }
-    for (i = 0; i < entry->symbol_count; i++)
-      {
-	asymbol *p = entry->asymbols[i];
-	/* FIXME, temporary hack, since not all of ld knows about the new abs section convention */
-
-	if (p->section == 0)
-	  p->section = &bfd_abs_section;
-	if ((p->flags & BSF_GLOBAL)
-	    || (p->flags & BSF_WEAK))
-	  {
-	    /* If this symbol is marked as occurring now, rather than
-	       at the end, output it now.  This is used for COFF C_EXT
-	       FCN symbols.  FIXME: There must be a better way.  */
-	    if (bfd_asymbol_bfd (p) == entry->the_bfd
-		&& (p->flags & BSF_NOT_AT_END))
-	      {
-		*(output_buffer++) = p;
-		p->flags |= BSF_KEEP;
-	      }
-	  }
-	else
-	  {
-	    if (p->section == &bfd_ind_section)
-	      {
-		/* Dont think about indirect symbols */
-	      }
-	    else if (p->flags & BSF_DEBUGGING)
-	      {
-		/* Only keep the debugger symbols if no stripping required */
-		if (strip_symbols == STRIP_NONE)
-		  {
-		    *output_buffer++ = p;
-		  }
-	      }
-	    else if (p->section == &bfd_und_section
-		     || bfd_is_com_section (p->section))
-	      {
-		/* These must be global.  */
-	      }
-	    else if (p->flags & BSF_LOCAL)
-	      {
-		if (discard_locals == DISCARD_ALL)
-		  {
-		  }
-		else if (discard_locals == DISCARD_L &&
-			!strncmp (lprefix, p->name, lprefix_len))
-		  {
-		  }
-		else if (p->flags == BSF_WARNING)
-		  {
-		  }
-		else
-		  {
-		    *output_buffer++ = p;
-		  }
-	      }
-	    else if (p->flags & BSF_CONSTRUCTOR)
-	      {
-		if (strip_symbols != STRIP_ALL)
-		  {
-		    *output_buffer++ = p;
-		  }
-	      }
-	    else
-	      {
-		FAIL ();
-	      }
-	  }
-      }
-
-
-  }
-  return output_buffer;
-}
-
-
-static asymbol **
-write_file_globals (symbol_table)
-     asymbol **symbol_table;
-{
-  FOR_EACH_LDSYM (sp)
-  {
-    if (sp->flags & SYM_INDIRECT)
-      {
-	asymbol *bufp = (*(sp->srefs_chain));
-	ldsym_type *aliased_to = (ldsym_type *) (sp->sdefs_chain);
-	if (aliased_to->sdefs_chain)
-	  {
-	    asymbol *p = aliased_to->sdefs_chain[0];
-	    bufp->value = p->value;
-	    bufp->section = p->section;
-	    bufp->flags = p->flags;
-	  }
-	else
-	  {
-	    bufp->value = 0;
-	    bufp->flags = 0;
-	    bufp->section = &bfd_und_section;
-	  }
-	*symbol_table++ = bufp;
-      }
-    else if ((sp->flags & SYM_INDIRECT) == 0 && sp->sdefs_chain != (asymbol **) NULL)
-      {
-	asymbol *bufp = (*(sp->sdefs_chain));
-
-	if ((bufp->flags & BSF_KEEP) == 0)
-	  {
-	    ASSERT (bufp != (asymbol *) NULL);
-
-	    bufp->name = sp->name;
-
-	    if (sp->scoms_chain != (asymbol **) NULL)
-
-	      {
-		/*
-		 defined as common but not allocated, this happens
-		 only with -r and not -d, write out a common
-		 definition
-		 */
-		bufp = *(sp->scoms_chain);
-	      }
-	    *symbol_table++ = bufp;
-	  }
-      }
-    else if (sp->scoms_chain != (asymbol **) NULL)
-      {
-	/* This symbol is a common - just output */
-	asymbol *bufp = (*(sp->scoms_chain));
-	*symbol_table++ = bufp;
-      }
-    else if (sp->srefs_chain != (asymbol **) NULL)
-      {
-	/* This symbol is undefined but has a reference */
-	asymbol *bufp = (*(sp->srefs_chain));
-	*symbol_table++ = bufp;
-      }
-    else
-      {
-	/*
-	   This symbol has neither defs nor refs, it must have come
-	   from the command line, since noone has used it it has no
-	   data attatched, so we'll ignore it
-	   */
-      }
-  }
-  return symbol_table;
-}
-
-void
-ldsym_write ()
-{
-  if (keepsyms_file != 0
-      && strip_symbols != STRIP_SOME)
-    {
-      info_msg ("%P: `-retain-symbols-file' overrides `-s' and `-S'\n");
-      strip_symbols = STRIP_SOME;
-    }
-  if (strip_symbols != STRIP_ALL)
-    {
-      /* We know the maximum size of the symbol table -
-       it's the size of all the global symbols ever seen +
-       the size of all the symbols from all the files +
-       the number of files (for the per file symbols)
-       +1 (for the null at the end)
-       */
-      asymbol **symbol_table =
-	((asymbol **)
-	 ldmalloc ((bfd_size_type) ((global_symbol_count
-				     + total_files_seen
-				     + total_symbols_seen
-				     + 1)
-				    * sizeof (asymbol *))));
-      asymbol **tablep = write_file_locals (symbol_table);
-
-      tablep = write_file_globals (tablep);
-      tablep = process_keepsyms (symbol_table, tablep - symbol_table);
-
-      *tablep = (asymbol *) NULL;
-      bfd_set_symtab (output_bfd, symbol_table, (unsigned) (tablep - symbol_table));
-    }
-}
-
-/*
-return true if the supplied symbol name is not in the
-linker symbol table
-*/
-boolean
-ldsym_undefined (sym)
-     CONST char *sym;
-{
-  ldsym_type *from_table = ldsym_get_soft (sym);
-  if (from_table != (ldsym_type *) NULL)
-    {
-      if (from_table->sdefs_chain != (asymbol **) NULL)
-	return false;
-    }
-  return true;
-}
-
-void
-ldsym_init ()
-{
-  obstack_begin (&global_sym_obstack, 20000);
-}
diff --git a/ld/ldsym.h b/ld/ldsym.h
deleted file mode 100644
index 2efb392..0000000
--- a/ld/ldsym.h
+++ /dev/null
@@ -1,79 +0,0 @@
-/* ldsym.h -
-   Copyright (C) 1991 Free Software Foundation, Inc.
-
-   This file is part of GLD, the Gnu Linker.
-
-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.  */
-
-typedef struct user_symbol_struct
-{
-  /* Point to next symbol in this hash chain */
-  struct user_symbol_struct *link;
-
-  /* Name of this symbol.  */
-  CONST char *name;			
-
-  /* Pointer to next symbol in order of symbol creation */
-  struct user_symbol_struct *next; 
-
-  /* Chain of asymbols we see from input files 
-     note that we point to the entry in the canonical table of 
-     the pointer to the asymbol, *not* the asymbol. This means
-     that we can run back and fix all refs to point to the
-     defs nearly for free.
-     */
-  asymbol **srefs_chain;
-  asymbol **sdefs_chain;
-
-  /* only ever point to the largest ever common definition -
-   * all the rest are turned into refs 
-   * scoms and sdefs are never != NULL at same time
-   */
-  asymbol **scoms_chain;
-
-  
-
-
-
-  /* If this symbol is a constructor */
-#define SYM_CONSTRUCTOR 1
-  /* If this symbol is a warning symbol */
-#define SYM_WARNING 2
-  /* IF this is an alias for another symbol */
-#define SYM_INDIRECT 4
-  /* If this symbol explicitly should be kept, despite discarding
-     most others.  */
-#define SYM_KEEP 8
-  /* If its got -y set */
-#define SYM_Y 16
-  int flags;
-} ldsym_type;
-
-extern ldsym_type *symbol_head;
-
-extern CONST char *keepsyms_file;
-extern int kept_syms;
-
-ldsym_type *ldsym_get PARAMS ((CONST char *));
-ldsym_type *ldsym_get_soft PARAMS ((CONST char *));
-void ldsym_print_symbol_table PARAMS ((void));
-void ldsym_write PARAMS ((void));
-boolean ldsym_undefined PARAMS ((CONST char *));
-
-#define FOR_EACH_LDSYM(x)						\
-	ldsym_type *x;							\
-	for (x = symbol_head; x != (ldsym_type *)NULL; x = x->next) 	
-
-void ldsym_init PARAMS ((void));
diff --git a/ld/ldwarn.c b/ld/ldwarn.c
deleted file mode 100644
index c531069..0000000
--- a/ld/ldwarn.c
+++ /dev/null
@@ -1,93 +0,0 @@
-/*
-   Copyright (C) 1991 Free Software Foundation, Inc.
-   Written by Steve Chamberlain of Cygnus Support.
-
-This file is part of GLD, the GNU linker.
-
-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"
-#include "ldsym.h"
-#include "ldwarn.h"
-#include "ldmisc.h"
-
-/* we keep all the warning symbols in a list, if we ever get a
-   warning, we'll search it the hard way. This won't be to bad since
-   warnings are infrequent, and never that many (true or false ?).
-
-*/
-
-typedef struct warning_list_struct {
-  struct warning_list_struct *next;
-  asymbol *sym;
-} warning_list_type;
-
-
-static warning_list_type *warning_list;
-
-
-
-/* This is a warning symbol, add the error text to a list we keep, and mark
-   the symbol referenced as requiring a warning */
-
-
-void 
-add_warning (sym)
-     asymbol *sym;
-{
-  CONST    char *name = ((asymbol *)(sym->value))->name;
-  warning_list_type *new;
-
-  ldsym_type *lookup = ldsym_get(name);
-
-  lookup->flags |= SYM_WARNING;
-
-  new = (warning_list_type *)ldmalloc(sizeof(warning_list_type));
-  new->next = warning_list;
-  new->sym  = sym;
-  warning_list = new;
-}
-
-/* run through the list we kept, and find the warning associated with
-   this symbol */
-CONST char *
-fetch_warning (sym)
-     asymbol *sym;
-{
-  warning_list_type *ptr = warning_list;
-  while (ptr != (warning_list_type *)NULL) {
-    if (strcmp(((asymbol*)(ptr->sym->value))->name, sym->name) == 0) {
-      return ptr->sym->name;
-    }
-    ptr = ptr->next;
-  }
-  return "This is a warning without a message !";
-}
-
-
-void 
-produce_warnings (lgs, it)
-     ldsym_type *lgs;
-     asymbol *it;
-{
-  asymbol **ptr;
-  ptr  = lgs->srefs_chain;
-  while (ptr != (asymbol **)NULL) {
-    asymbol *ref = *ptr;
-    info_msg ("%B: %s\n", bfd_asymbol_bfd(ref), fetch_warning(it));
-    ptr = (asymbol **)(ref->udata);
-  }
-}
diff --git a/ld/ldwarn.h b/ld/ldwarn.h
deleted file mode 100644
index b841ca5..0000000
--- a/ld/ldwarn.h
+++ /dev/null
@@ -1,23 +0,0 @@
-/* Warning support for the GNU Linker.
-   Copyright 1991, 1992 Free Software Foundation, Inc.
-   Written by Steve Chamberlain of Cygnus Support.
-
-This file is part of GLD, the GNU linker.
-
-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.  */
-
-void add_warning PARAMS ((asymbol *));
-CONST char *fetch_warning PARAMS ((asymbol *));
-void produce_warnings PARAMS ((ldsym_type *, asymbol *));
diff --git a/ld/relax.c b/ld/relax.c
deleted file mode 100644
index c8f67af..0000000
--- a/ld/relax.c
+++ /dev/null
@@ -1,205 +0,0 @@
-/* Copyright (C) 1992, 1993 Free Software Foundation, Inc.
-
-This file is part of GLD, the Gnu Linker.
-
-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.  */
-
-/*
-
-new age linking
-
-
-Tie together all the interseting blocks
-
-*/
-
-
-#include "bfd.h"
-#include "../bfd/seclet.h"
-#include "coff/internal.h"
-#include "sysdep.h"
-
-#include "ld.h"
-#include "ldexp.h"
-#include "ldlang.h"
-#include "ldwrite.h"
-#include "ldmisc.h"
-#include "ldsym.h"
-#include "ldgram.h"
-#include "relax.h"
-
-static void build_it PARAMS ((lang_statement_union_type *));
-
-static void
-build_it (statement)
-     lang_statement_union_type * statement;
-{
-  switch (statement->header.type)
-    {
-#if 0
-      {
-
-	bfd_byte play_area[SHORT_SIZE];
-	unsigned int i;
-	bfd_putshort (output_bfd, statement->fill_statement.fill, play_area);
-	/* Write out all entire shorts */
-	for (i = 0;
-	     i < statement->fill_statement.size - SHORT_SIZE + 1;
-	     i += SHORT_SIZE)
-	  {
-	    bfd_set_section_contents (output_bfd,
-				      statement->fill_statement.output_section,
-				      play_area,
-				      statement->data_statement.output_offset + i,
-				      SHORT_SIZE);
-
-	  }
-
-	/* Now write any remaining byte */
-	if (i < statement->fill_statement.size)
-	  {
-	    bfd_set_section_contents (output_bfd,
-				      statement->fill_statement.output_section,
-				      play_area,
-				      statement->data_statement.output_offset + i,
-				      1);
-
-	  }
-
-	abort ();
-      }
-      break;
-#endif
-    case lang_data_statement_enum:
-      {
-	bfd_vma value = statement->data_statement.value;
-	bfd_byte play_area[LONG_SIZE];
-	unsigned int size = 0;
-	asection *output_section = statement->data_statement.output_section;
-	switch (statement->data_statement.type)
-	  {
-	  case LONG:
-	    bfd_put_32 (output_section->owner, value, play_area);
-	    size = LONG_SIZE;
-	    break;
-	  case SHORT:
-	    bfd_put_16 (output_section->owner, value, play_area);
-	    size = SHORT_SIZE;
-	    break;
-	  case BYTE:
-	    bfd_put_8 (output_section->owner, value, play_area);
-	    size = BYTE_SIZE;
-	    break;
-	  }
-
-	bfd_set_section_contents (output_section->owner,
-				  statement->data_statement.output_section,
-				  play_area,
-				  ((file_ptr)
-				   statement->data_statement.output_vma),
-				  size);
-      }
-
-      break;
-    case lang_input_section_enum:
-      {
-	/* Create a new seclet in the output section with this
-	   attached */
-	if (statement->input_section.ifile->just_syms_flag == false)
-	  {
-	    asection *i = statement->input_section.section;
-
-	    asection *output_section = i->output_section;
-
-	    bfd_seclet_type *seclet = bfd_new_seclet (output_section->owner, output_section);
-
-	    if (i->flags & SEC_NEVER_LOAD)
-	      {
-		/* We've got a never load section inside one which is going
-		   to be output, we'll change it into a fill seclet */
-		seclet->type = bfd_fill_seclet;
-		seclet->u.fill.value = 0;
-	      }
-	    else
-	      {
-		seclet->type = bfd_indirect_seclet;
-		seclet->u.indirect.section = i;
-		seclet->u.indirect.symbols
-		  = statement->input_section.ifile->asymbols;
-	      }
-	    seclet->size = i->_cooked_size;
-	    seclet->offset = i->output_offset;
-	    seclet->next = 0;
-	  }
-
-      }
-      break;
-    case lang_padding_statement_enum:
-      /* Make a new seclet with the right filler */
-      {
-	/* Create a new seclet in the output section with this
-	   attached */
-
-	bfd_seclet_type *seclet =
-	  bfd_new_seclet (statement->padding_statement.output_section->owner,
-			  statement->padding_statement.output_section);
-
-	seclet->type = bfd_fill_seclet;
-	seclet->size = statement->padding_statement.size;
-	seclet->offset = statement->padding_statement.output_offset;
-	seclet->u.fill.value = statement->padding_statement.fill;
-	seclet->next = 0;
-      }
-      break;
-
-    default:
-      /* All the other ones fall through */
-      ;
-    }
-}
-
-void
-write_relax (output_bfd, data, relocateable)
-     bfd * output_bfd;
-     PTR data;
-     boolean relocateable;
-{
-  /* Tie up all the statements to generate an output bfd structure which
-     bfd can mull over */
-  lang_for_each_statement (build_it);
-
-  if (bfd_seclet_link (output_bfd, data, relocateable) == false)
-    einfo ("%F%P: %B: %E\n", output_bfd);
-}
-
-/* See if we can change the size of this section by shrinking the
-   relocations in it. If this happens, then we'll have to renumber the
-   symbols in it, and shift around the data too.
- */
-boolean
-relax_section (this_ptr)
-     lang_statement_union_type ** this_ptr;
-{
-  lang_input_section_type *is = &((*this_ptr)->input_section);
-  asection *i = is->section;
-  if (!(i->owner->flags & BFD_IS_RELAXABLE))
-    {
-      if (i->owner != script_file->the_bfd)
-	einfo ("%B: not assembled with -linkrelax\n", i->owner);
-    }
-
-  return bfd_relax_section (i->owner, i, is->ifile->asymbols);
-
-}
diff --git a/ld/relax.h b/ld/relax.h
deleted file mode 100644
index de729d8..0000000
--- a/ld/relax.h
+++ /dev/null
@@ -1,20 +0,0 @@
-/* Copyright (C) 1992, 1993 Free Software Foundation, Inc.
-
-This file is part of GLD, the Gnu Linker.
-
-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.  */
-
-void write_relax PARAMS ((bfd *, PTR data, boolean relocateable));
-boolean relax_section PARAMS ((lang_statement_union_type **this_ptr));