Remove tahoe support

include/
	* opcode/tahoe.h: Delete.
bfd/
	* archures.c: Remove tahoe support.
	* config.bfd: Likewise.
	* configure.ac: Likewise.
	* hosts/tahoe.h: Delete.
	* bfd-in2.h: Regenerate.
	* configure: Regenerate.
opcodes/
	* configure.ac: Remove tahoe support.
	* configure: Regenerate.
binutils/
	* testsuite/binutils-all/objdump.exp: Remove tahoe support.
gprof/
	* Makefile.am: Remove tahoe support.
	* corefile.c: Likewise.
	* tahoe.c: Delete.
	* Makefile.in: Regenerate.
	* po/POTFILES.in: Regenerate.

6 files changed, 11 insertions, 351 deletions

diff --git a/gprof/ChangeLog b/gprof/ChangeLog
index da15c98..1476aaa 100644
--- a/gprof/ChangeLog
+++ b/gprof/ChangeLog
@@ -1,3 +1,11 @@
+2018-04-16  Alan Modra  <amodra@gmail.com>
+
+	* Makefile.am: Remove tahoe support.
+	* corefile.c: Likewise.
+	* tahoe.c: Delete.
+	* Makefile.in: Regenerate.
+	* po/POTFILES.in: Regenerate.
+
 2018-04-05  H.J. Lu  <hongjiu.lu@intel.com>
 
 	PR gas/22318
diff --git a/gprof/Makefile.am b/gprof/Makefile.am
index adb6405..84837ab 100644
--- a/gprof/Makefile.am
+++ b/gprof/Makefile.am
@@ -43,7 +43,7 @@ bin_PROGRAMS = gprof
 sources = basic_blocks.c call_graph.c cg_arcs.c cg_dfn.c \
 	cg_print.c corefile.c gmon_io.c gprof.c hertz.c hist.c source.c \
 	search_list.c symtab.c sym_ids.c utils.c \
-	i386.c alpha.c vax.c tahoe.c sparc.c mips.c aarch64.c
+	i386.c alpha.c vax.c sparc.c mips.c aarch64.c
 gprof_SOURCES = $(sources) flat_bl.c bsd_callg_bl.c fsf_callg_bl.c
 gprof_DEPENDENCIES = ../bfd/libbfd.la ../libiberty/libiberty.a $(LIBINTL_DEP)
 gprof_LDADD = ../bfd/libbfd.la ../libiberty/libiberty.a $(LIBINTL)
diff --git a/gprof/Makefile.in b/gprof/Makefile.in
index 30d6762..e1131d1 100644
--- a/gprof/Makefile.in
+++ b/gprof/Makefile.in
@@ -110,8 +110,7 @@ am__objects_1 = basic_blocks.$(OBJEXT) call_graph.$(OBJEXT) \
 	hertz.$(OBJEXT) hist.$(OBJEXT) source.$(OBJEXT) \
 	search_list.$(OBJEXT) symtab.$(OBJEXT) sym_ids.$(OBJEXT) \
 	utils.$(OBJEXT) i386.$(OBJEXT) alpha.$(OBJEXT) vax.$(OBJEXT) \
-	tahoe.$(OBJEXT) sparc.$(OBJEXT) mips.$(OBJEXT) \
-	aarch64.$(OBJEXT)
+	sparc.$(OBJEXT) mips.$(OBJEXT) aarch64.$(OBJEXT)
 am_gprof_OBJECTS = $(am__objects_1) flat_bl.$(OBJEXT) \
 	bsd_callg_bl.$(OBJEXT) fsf_callg_bl.$(OBJEXT)
 gprof_OBJECTS = $(am_gprof_OBJECTS)
@@ -341,7 +340,7 @@ AM_CPPFLAGS = -DDEBUG -I../bfd -I$(srcdir)/../include \
 sources = basic_blocks.c call_graph.c cg_arcs.c cg_dfn.c \
 	cg_print.c corefile.c gmon_io.c gprof.c hertz.c hist.c source.c \
 	search_list.c symtab.c sym_ids.c utils.c \
-	i386.c alpha.c vax.c tahoe.c sparc.c mips.c aarch64.c
+	i386.c alpha.c vax.c sparc.c mips.c aarch64.c
 
 gprof_SOURCES = $(sources) flat_bl.c bsd_callg_bl.c fsf_callg_bl.c
 gprof_DEPENDENCIES = ../bfd/libbfd.la ../libiberty/libiberty.a $(LIBINTL_DEP)
@@ -505,7 +504,6 @@ distclean-compile:
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/sparc.Po@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/sym_ids.Po@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/symtab.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tahoe.Po@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/utils.Po@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vax.Po@am__quote@
 
diff --git a/gprof/corefile.c b/gprof/corefile.c
index 8d52a31..a179668 100644
--- a/gprof/corefile.c
+++ b/gprof/corefile.c
@@ -51,7 +51,6 @@ static bfd_boolean get_src_info
 extern void i386_find_call  (Sym *, bfd_vma, bfd_vma);
 extern void alpha_find_call (Sym *, bfd_vma, bfd_vma);
 extern void vax_find_call   (Sym *, bfd_vma, bfd_vma);
-extern void tahoe_find_call (Sym *, bfd_vma, bfd_vma);
 extern void sparc_find_call (Sym *, bfd_vma, bfd_vma);
 extern void mips_find_call  (Sym *, bfd_vma, bfd_vma);
 extern void aarch64_find_call (Sym *, bfd_vma, bfd_vma);
@@ -250,7 +249,6 @@ core_init (const char * aout_name)
   switch (bfd_get_arch (core_bfd))
     {
     case bfd_arch_vax:
-    case bfd_arch_tahoe:
       offset_to_code = 2;
       break;
 
@@ -319,10 +317,6 @@ find_call (Sym *parent, bfd_vma p_lowpc, bfd_vma p_highpc)
       sparc_find_call (parent, p_lowpc, p_highpc);
       break;
 
-    case bfd_arch_tahoe:
-      tahoe_find_call (parent, p_lowpc, p_highpc);
-      break;
-
     case bfd_arch_mips:
       mips_find_call (parent, p_lowpc, p_highpc);
       break;
diff --git a/gprof/po/POTFILES.in b/gprof/po/POTFILES.in
index 47727af..f2c6f01 100644
--- a/gprof/po/POTFILES.in
+++ b/gprof/po/POTFILES.in
@@ -33,7 +33,6 @@ sym_ids.c
 sym_ids.h
 symtab.c
 symtab.h
-tahoe.c
 utils.c
 utils.h
 vax.c
diff --git a/gprof/tahoe.c b/gprof/tahoe.c
deleted file mode 100644
index 93d2997..0000000
--- a/gprof/tahoe.c
+++ /dev/null
@@ -1,339 +0,0 @@
-/*
- * Copyright (c) 1983, 1993, 2001
- *      The Regents of the University of California.  All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- * 1. Redistributions of source code must retain the above copyright
- *    notice, this list of conditions and the following disclaimer.
- * 2. Redistributions in binary form must reproduce the above copyright
- *    notice, this list of conditions and the following disclaimer in the
- *    documentation and/or other materials provided with the distribution.
- * 3. Neither the name of the University nor the names of its contributors
- *    may be used to endorse or promote products derived from this software
- *    without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
- * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
- * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
- * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
- * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
- * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
- * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
- * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
- * SUCH DAMAGE.
- */
-#include "gprof.h"
-#include "search_list.h"
-#include "source.h"
-#include "symtab.h"
-#include "cg_arcs.h"
-#include "corefile.h"
-#include "hist.h"
-
-    /*
-     *        opcode of the `callf' instruction
-     */
-#define	CALLF	0xfe
-
-    /*
-     *        register for pc relative addressing
-     */
-#define	PC	0xf
-
-enum tahoe_opermodes
-  {
-    literal, indexed, reg, regdef, autodec, autoinc, autoincdef,
-    bytedisp, bytedispdef, worddisp, worddispdef, longdisp, longdispdef,
-    immediate, absolute, byterel, bytereldef, wordrel, wordreldef,
-    longrel, longreldef
-  };
-typedef enum tahoe_opermodes tahoe_operandenum;
-
-/*
- * A symbol to be the child of indirect callf:
- */
-static Sym indirectchild;
-
-static tahoe_operandenum tahoe_operandmode (unsigned char *);
-static char *tahoe_operandname (tahoe_operandenum);
-static long tahoe_operandlength (unsigned char *);
-static bfd_signed_vma tahoe_offset (unsigned char *);
-void tahoe_find_call (Sym *, bfd_vma, bfd_vma);
-
-static tahoe_operandenum
-tahoe_operandmode (unsigned char *modep)
-{
-  long usesreg = *modep & 0xf;
-
-  switch ((*modep >> 4) & 0xf)
-    {
-    case 0:
-    case 1:
-    case 2:
-    case 3:
-      return literal;
-    case 4:
-      return indexed;
-    case 5:
-      return reg;
-    case 6:
-      return regdef;
-    case 7:
-      return autodec;
-    case 8:
-      return usesreg != 0xe ? autoinc : immediate;
-    case 9:
-      return usesreg != PC ? autoincdef : absolute;
-    case 10:
-      return usesreg != PC ? bytedisp : byterel;
-    case 11:
-      return usesreg != PC ? bytedispdef : bytereldef;
-    case 12:
-      return usesreg != PC ? worddisp : wordrel;
-    case 13:
-      return usesreg != PC ? worddispdef : wordreldef;
-    case 14:
-      return usesreg != PC ? longdisp : longrel;
-    case 15:
-      return usesreg != PC ? longdispdef : longreldef;
-    }
-  /* NOTREACHED */
-  abort ();
-}
-
-static char *
-tahoe_operandname (tahoe_operandenum mode)
-{
-
-  switch (mode)
-    {
-    case literal:
-      return "literal";
-    case indexed:
-      return "indexed";
-    case reg:
-      return "register";
-    case regdef:
-      return "register deferred";
-    case autodec:
-      return "autodecrement";
-    case autoinc:
-      return "autoincrement";
-    case autoincdef:
-      return "autoincrement deferred";
-    case bytedisp:
-      return "byte displacement";
-    case bytedispdef:
-      return "byte displacement deferred";
-    case byterel:
-      return "byte relative";
-    case bytereldef:
-      return "byte relative deferred";
-    case worddisp:
-      return "word displacement";
-    case worddispdef:
-      return "word displacement deferred";
-    case wordrel:
-      return "word relative";
-    case wordreldef:
-      return "word relative deferred";
-    case immediate:
-      return "immediate";
-    case absolute:
-      return "absolute";
-    case longdisp:
-      return "long displacement";
-    case longdispdef:
-      return "long displacement deferred";
-    case longrel:
-      return "long relative";
-    case longreldef:
-      return "long relative deferred";
-    }
-  /* NOTREACHED */
-  abort ();
-}
-
-static long
-tahoe_operandlength (unsigned char *modep
-)
-{
-
-  switch (tahoe_operandmode (modep))
-    {
-    case literal:
-    case reg:
-    case regdef:
-    case autodec:
-    case autoinc:
-    case autoincdef:
-      return 1;
-    case bytedisp:
-    case bytedispdef:
-    case byterel:
-    case bytereldef:
-      return 2;
-    case worddisp:
-    case worddispdef:
-    case wordrel:
-    case wordreldef:
-      return 3;
-    case immediate:
-    case absolute:
-    case longdisp:
-    case longdispdef:
-    case longrel:
-    case longreldef:
-      return 5;
-    case indexed:
-      return 1 + tahoe_operandlength (modep + 1);
-    }
-  /* NOTREACHED */
-  abort ();
-}
-
-static bfd_signed_vma
-tahoe_offset (unsigned char *modep)
-{
-  tahoe_operandenum mode = tahoe_operandmode (modep);
-
-  ++modep;				/* skip over the mode */
-  switch (mode)
-    {
-    default:
-      fprintf (stderr, "[reladdr] not relative address\n");
-      return 0;
-    case byterel:
-      return 1 + bfd_get_signed_8 (core_bfd, modep);
-    case wordrel:
-      return 2 + bfd_get_signed_16 (core_bfd, modep);
-    case longrel:
-      return 4 + bfd_get_signed_32 (core_bfd, modep);
-    }
-}
-
-void
-tahoe_find_call (Sym *parent, bfd_vma p_lowpc, bfd_vma p_highpc)
-{
-  unsigned char *instructp;
-  long length;
-  Sym *child;
-  tahoe_operandenum mode;
-  tahoe_operandenum firstmode;
-  bfd_vma pc, destpc;
-  static bfd_boolean inited = FALSE;
-
-  if (!inited)
-    {
-      inited = TRUE;
-      sym_init (&indirectchild);
-      indirectchild.cg.prop.fract = 1.0;
-      indirectchild.cg.cyc.head = &indirectchild;
-    }
-
-  DBG (CALLDEBUG, printf ("[findcall] %s: 0x%lx to 0x%lx\n",
-			  parent->name, (unsigned long) p_lowpc,
-			  (unsigned long) p_highpc));
-  for (pc = p_lowpc; pc < p_highpc; pc += length)
-    {
-      length = 1;
-      instructp = ((unsigned char *) core_text_space
-		   + pc - core_text_sect->vma);
-      if ((*instructp & 0xff) == CALLF)
-	{
-	  /*
-	   *    maybe a callf, better check it out.
-	   *      skip the count of the number of arguments.
-	   */
-	  DBG (CALLDEBUG, printf ("[findcall]\t0x%lx:callf",
-				  (unsigned long) pc));
-	  firstmode = tahoe_operandmode (instructp + length);
-	  switch (firstmode)
-	    {
-	    case literal:
-	    case immediate:
-	      break;
-	    default:
-	      goto botched;
-	    }
-	  length += tahoe_operandlength (instructp + length);
-	  mode = tahoe_operandmode (instructp + length);
-	  DBG (CALLDEBUG,
-	       printf ("\tfirst operand is %s", tahoe_operandname (firstmode));
-	       printf ("\tsecond operand is %s\n", tahoe_operandname (mode));
-	    );
-	  switch (mode)
-	    {
-	    case regdef:
-	    case bytedispdef:
-	    case worddispdef:
-	    case longdispdef:
-	    case bytereldef:
-	    case wordreldef:
-	    case longreldef:
-	      /*
-	       *    indirect call: call through pointer
-	       *      either  *d(r)   as a parameter or local
-	       *              (r)     as a return value
-	       *              *f      as a global pointer
-	       *      [are there others that we miss?,
-	       *       e.g. arrays of pointers to functions???]
-	       */
-	      arc_add (parent, &indirectchild, (unsigned long) 0);
-	      length += tahoe_operandlength (instructp + length);
-	      continue;
-	    case byterel:
-	    case wordrel:
-	    case longrel:
-	      /*
-	       *    regular pc relative addressing
-	       *      check that this is the address of
-	       *      a function.
-	       */
-	      destpc = pc + tahoe_offset (instructp + length);
-	      if (hist_check_address (destpc))
-		{
-		  child = sym_lookup (&symtab, destpc);
-                  if (child)
-		    {
-		      DBG (CALLDEBUG,
-		           printf ("[findcall]\tdestpc 0x%lx",
-			           (unsigned long) destpc);
-		           printf (" child->name %s", child->name);
-		           printf (" child->addr 0x%lx\n",
-			           (unsigned long) child->addr);
-		        );
-		      if (child->addr == destpc)
-		        {
-		          /*
-		           *    a hit
-		           */
-		          arc_add (parent, child, (unsigned long) 0);
-		          length += tahoe_operandlength (instructp + length);
-		          continue;
-		        }
-		    }
-		  goto botched;
-		}
-	      /*
-	       *    else:
-	       *      it looked like a callf,
-	       *      but it wasn't to anywhere.
-	       */
-	      goto botched;
-	    default:
-	    botched:
-	      /*
-	       *    something funny going on.
-	       */
-	      DBG (CALLDEBUG, printf ("[findcall]\tbut it's a botch\n"));
-	      length = 1;
-	      continue;
-	    }
-	}
-    }
-}