Commit baf6de2e authored by Stan Shebs's avatar Stan Shebs
Browse files

Declare Gould configuration obsolete:

	* configure.host, configure.tgt: Comment out Gould configs.
	* Makefile.in: Comment out Gould-related actions.
	* gould-xdep.c, gould-tdep.c, config/gould/*: Comment out.
	* NEWS: Mention obsolete status.
And the first one bites the dust...
parent 9ebb9ec8
Wed Feb 10 13:17:21 1999 Stan Shebs <shebs@andros.cygnus.com>
Declare Gould configuration obsolete:
* configure.host, configure.tgt: Comment out Gould configs.
* Makefile.in: Comment out Gould-related actions.
* gould-xdep.c, gould-tdep.c, config/gould/*: Comment out.
* NEWS: Mention obsolete status.
1999-02-09 DJ Delorie <dj@cygnus.com>
* sparcl-tdep.c: UDP download works in cygwin
......
......@@ -1259,10 +1259,10 @@ gnu-nat.o: process_reply_S.h exc_request_S.h notify_S.h msg_reply_S.h \
go32-xdep.o: go32-xdep.c
gould-tdep.o: gould-tdep.c $(OP_INCLUDE)/np1.h $(defs_h) $(frame_h) \
$(gdbcore_h) $(symtab_h)
# OBSOLETE gould-tdep.o: gould-tdep.c $(OP_INCLUDE)/np1.h $(defs_h) $(frame_h) \
# OBSOLETE $(gdbcore_h) $(symtab_h)
gould-xdep.o: gould-xdep.c $(defs_h) $(gdbcore_h) $(inferior_h)
# OBSOLETE gould-xdep.o: gould-xdep.c $(defs_h) $(gdbcore_h) $(inferior_h)
h8300-tdep.o: h8300-tdep.c $(defs_h) $(frame_h) $(symtab_h)
......
......@@ -14,6 +14,15 @@ M68K Linux m68*-*-linux*
Fujitsu FR30 fr30-*-elf*
Mitsubishi D30V d30v-*-*
* OBSOLETE configurations
Gould PowerNode, NP1 np1-*-*, pn-*-*
Configurations that have been declared obsolete will be commented out,
but the code will be left in place. If there is no activity to revive
these configurations before the next release of GDB, the sources will
be permanently REMOVED.
* Readline 2.2
GDB now uses readline 2.2.
......
......@@ -16,7 +16,7 @@ hppa*) gdb_host_cpu=pa ;;
i[3456]86*) gdb_host_cpu=i386 ;;
m68*) gdb_host_cpu=m68k ;;
m88*) gdb_host_cpu=m88k ;;
np1) gdb_host_cpu=gould ;;
# OBSOLETE np1) gdb_host_cpu=gould ;;
pyramid) gdb_host_cpu=pyr ;;
powerpc*) gdb_host_cpu=powerpc ;;
sparc64) gdb_host_cpu=sparc ;;
......@@ -119,7 +119,7 @@ mips-*-riscos*) gdb_host=riscos ;;
none-*-*) gdb_host=none ;;
np1-*-*) gdb_host=np1 ;;
# OBSOLETE np1-*-*) gdb_host=np1 ;;
ns32k-*-mach3*) gdb_host=ns32km3 ;;
ns32k-*-netbsd*) gdb_host=nbsd ;;
......@@ -131,7 +131,7 @@ powerpcle-*-cygwin*) gdb_host=cygwin ;;
powerpcle-*-solaris*) gdb_host=solaris ;;
powerpc-*-linux*) gdb_host=linux ;;
pn-*-*) gdb_host=pn ;;
# OBSOLETE pn-*-*) gdb_host=pn ;;
pyramid-*-*) gdb_host=pyramid ;;
......
......@@ -19,9 +19,9 @@ i[3456]86*) gdb_target_cpu=i386 ;;
m68*) gdb_target_cpu=m68k ;;
m88*) gdb_target_cpu=m88k ;;
mips*) gdb_target_cpu=mips ;;
np1) gdb_target_cpu=gould ;;
# OBSOLETE np1) gdb_target_cpu=gould ;;
powerpc*) gdb_target_cpu=powerpc ;;
pn) gdb_target_cpu=gould ;;
# OBSOLETE pn) gdb_target_cpu=gould ;;
pyramid) gdb_target_cpu=pyr ;;
sparc*) gdb_target_cpu=sparc ;;
thumb*) gdb_target_cpu=arm ;;
......@@ -232,14 +232,15 @@ mn10300-*-*) gdb_target=mn10300 ;;
none-*-*) gdb_target=none ;;
np1-*-*) gdb_target=np1 ;;
# OBSOLETE np1-*-*) gdb_target=np1 ;;
ns32k-*-mach3*) gdb_target=ns32km3 ;;
ns32k-*-netbsd*) gdb_target=nbsd ;;
ns32k-utek-sysv*) gdb_target=merlin ;;
ns32k-utek-*) gdb_target=umax ;;
pn-*-*) gdb_target=pn ;;
# OBSOLETE pn-*-*) gdb_target=pn ;;
powerpc-*-macos*) gdb_target=macos ;;
powerpc-*-netware*) gdb_target=ppc-nw
configdirs="${configdirs} nlm" ;;
......
/* GOULD RISC target-dependent code for GDB, the GNU debugger.
Copyright 1986, 1987, 1989, 1991 Free Software Foundation, Inc.
This file is part of GDB.
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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
#include "defs.h"
#include "symtab.h"
#include "frame.h"
#include "gdbcore.h"
#if defined GOULD_PN
#include "opcode/pn.h"
#else
#include "opcode/np1.h"
#endif
/* GOULD RISC instructions are never longer than this many bytes. */
#define MAXLEN 4
/* Number of elements in the opcode table. */
#define NOPCODES (sizeof gld_opcodes / sizeof gld_opcodes[0])
int
gould_frame_chain_valid (chain, fi)
CORE_ADDR chain;
struct frame_info *fi; /* not used here */
{
return (chain != 0 && chain != (thisframe)->frame);
}
/* Both gcc and cc return small structs in registers (i.e. in GDB
terminology, small structs don't use the struct return convention). */
int
gould_use_struct_convention (gcc_p, type)
int gcc_p;
struct type *type;
{
return (TYPE_LENGTH(type) > 8);
}
/* Print the GOULD instruction at address MEMADDR in debugged memory,
on STREAM. Returns length of the instruction, in bytes. */
int
gould_print_insn (memaddr, stream)
CORE_ADDR memaddr;
FILE *stream;
{
unsigned char buffer[MAXLEN];
register int i;
register char *d;
register int bestmask;
unsigned best;
int temp, index, bestlen;
read_memory (memaddr, buffer, MAXLEN);
bestmask = 0;
index = -1;
best = 0xffffffff;
for (i = 0; i < NOPCODES; i++)
{
register unsigned int opcode = gld_opcodes[i].opcode;
register unsigned int mask = gld_opcodes[i].mask;
register unsigned int len = gld_opcodes[i].length;
register unsigned int test;
/* Get possible opcode bytes into integer */
test = buffer[0] << 24;
test |= buffer[1] << 16;
test |= buffer[2] << 8;
test |= buffer[3];
/* Mask with opcode and see if match */
if ((opcode & mask) == (test & mask))
{
/* See if second or third match */
if (index >= 0)
{
/* Take new one if it looks good */
if (bestlen == MAXLEN && len == MAXLEN)
{
/* See if lower bits matched */
if (((bestmask & 3) == 0) &&
((mask & 3) != 0))
{
bestmask = mask;
bestlen = len;
best = test;
index = i;
}
}
}
else
{
/* First match, save it */
bestmask = mask;
bestlen = len;
best = test;
index = i;
}
}
}
/* Handle undefined instructions. */
if (index < 0)
{
fprintf (stream, "undefined 0%o",(buffer[0]<<8)+buffer[1]);
return 2;
}
/* Print instruction name */
fprintf (stream, "%-12s", gld_opcodes[index].name);
/* Adjust if short instruction */
if (gld_opcodes[index].length < 4)
{
best >>= 16;
i = 0;
}
else
{
i = 16;
}
/* Dump out instruction arguments */
for (d = gld_opcodes[index].args; *d; ++d)
{
switch (*d)
{
case 'f':
fprintf (stream, "%d", (best >> (7 + i)) & 7);
break;
case 'r':
fprintf (stream, "r%d", (best >> (7 + i)) & 7);
break;
case 'R':
fprintf (stream, "r%d", (best >> (4 + i)) & 7);
break;
case 'b':
fprintf (stream, "b%d", (best >> (7 + i)) & 7);
break;
case 'B':
fprintf (stream, "b%d", (best >> (4 + i)) & 7);
break;
case 'v':
fprintf (stream, "b%d", (best >> (7 + i)) & 7);
break;
case 'V':
fprintf (stream, "b%d", (best >> (4 + i)) & 7);
break;
case 'X':
temp = (best >> 20) & 7;
if (temp)
fprintf (stream, "r%d", temp);
else
putc ('0', stream);
break;
case 'A':
temp = (best >> 16) & 7;
if (temp)
fprintf (stream, "(b%d)", temp);
break;
case 'S':
fprintf (stream, "#%d", best & 0x1f);
break;
case 'I':
fprintf (stream, "#%x", best & 0xffff);
break;
case 'O':
fprintf (stream, "%x", best & 0xffff);
break;
case 'h':
fprintf (stream, "%d", best & 0xfffe);
break;
case 'd':
fprintf (stream, "%d", best & 0xfffc);
break;
case 'T':
fprintf (stream, "%d", (best >> 8) & 0xff);
break;
case 'N':
fprintf (stream, "%d", best & 0xff);
break;
default:
putc (*d, stream);
break;
}
}
/* Return length of instruction */
return (gld_opcodes[index].length);
}
/*
* Find the number of arguments to a function.
*/
findarg(frame)
struct frame_info *frame;
{
register struct symbol *func;
register unsigned pc;
#ifdef notdef
/* find starting address of frame function */
pc = get_pc_function_start (frame->pc);
/* find function symbol info */
func = find_pc_function (pc);
/* call blockframe code to look for match */
if (func != NULL)
return (func->value.block->nsyms / sizeof(int));
#endif
return (-1);
}
/*
* In the case of the NPL, the frame's norminal address is Br2 and the
* previous routines frame is up the stack X bytes. Finding out what
* 'X' is can be tricky.
*
* 1.) stored in the code function header xA(Br1).
* 2.) must be careful of recurssion.
*/
CORE_ADDR
findframe(thisframe)
struct frame_info *thisframe;
{
register CORE_ADDR pointer;
CORE_ADDR framechain();
#if 0
struct frame_info *frame;
/* Setup toplevel frame structure */
frame->pc = read_pc();
frame->next_frame = 0;
frame->frame = read_register (SP_REGNUM); /* Br2 */
/* Search for this frame (start at current Br2) */
do
{
pointer = framechain(frame);
frame->next_frame = frame->frame;
frame->frame = pointer;
frame->pc = FRAME_SAVED_PC(frame);
}
while (frame->next_frame != thisframe);
#endif
pointer = framechain (thisframe);
/* stop gap for now, end at __base3 */
if (thisframe->pc == 0)
return 0;
return pointer;
}
/*
* Gdb front-end and internal framechain routine.
* Go back up stack one level. Tricky...
*/
CORE_ADDR
framechain(frame)
register struct frame_info *frame;
{
register CORE_ADDR func, prevsp;
register unsigned value;
/* Get real function start address from internal frame address */
func = get_pc_function_start(frame->pc);
/* If no stack given, read register Br1 "(sp)" */
if (!frame->frame)
prevsp = read_register (SP_REGNUM);
else
prevsp = frame->frame;
/* Check function header, case #2 */
value = read_memory_integer (func, 4);
if (value)
{
/* 32bit call push value stored in function header */
prevsp += value;
}
else
{
/* read half-word from suabr at start of function */
prevsp += read_memory_integer (func + 10, 2);
}
return (prevsp);
}
/* OBSOLETE /* GOULD RISC target-dependent code for GDB, the GNU debugger. */
/* OBSOLETE Copyright 1986, 1987, 1989, 1991 Free Software Foundation, Inc. */
/* OBSOLETE */
/* OBSOLETE This file is part of GDB. */
/* OBSOLETE */
/* OBSOLETE This program is free software; you can redistribute it and/or modify */
/* OBSOLETE it under the terms of the GNU General Public License as published by */
/* OBSOLETE the Free Software Foundation; either version 2 of the License, or */
/* OBSOLETE (at your option) any later version. */
/* OBSOLETE */
/* OBSOLETE This program is distributed in the hope that it will be useful, */
/* OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of */
/* OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
/* OBSOLETE GNU General Public License for more details. */
/* OBSOLETE */
/* OBSOLETE You should have received a copy of the GNU General Public License */
/* OBSOLETE along with this program; if not, write to the Free Software */
/* OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *x/ */
/* OBSOLETE */
/* OBSOLETE #include "defs.h" */
/* OBSOLETE #include "symtab.h" */
/* OBSOLETE #include "frame.h" */
/* OBSOLETE #include "gdbcore.h" */
/* OBSOLETE #if defined GOULD_PN */
/* OBSOLETE #include "opcode/pn.h" */
/* OBSOLETE #else */
/* OBSOLETE #include "opcode/np1.h" */
/* OBSOLETE #endif */
/* OBSOLETE */
/* OBSOLETE /* GOULD RISC instructions are never longer than this many bytes. *x/ */
/* OBSOLETE #define MAXLEN 4 */
/* OBSOLETE */
/* OBSOLETE /* Number of elements in the opcode table. *x/ */
/* OBSOLETE #define NOPCODES (sizeof gld_opcodes / sizeof gld_opcodes[0]) */
/* OBSOLETE */
/* OBSOLETE int */
/* OBSOLETE gould_frame_chain_valid (chain, fi) */
/* OBSOLETE CORE_ADDR chain; */
/* OBSOLETE struct frame_info *fi; /* not used here *x/ */
/* OBSOLETE { */
/* OBSOLETE return (chain != 0 && chain != (thisframe)->frame); */
/* OBSOLETE } */
/* OBSOLETE */
/* OBSOLETE /* Both gcc and cc return small structs in registers (i.e. in GDB */
/* OBSOLETE terminology, small structs don't use the struct return convention). *x/ */
/* OBSOLETE int */
/* OBSOLETE gould_use_struct_convention (gcc_p, type) */
/* OBSOLETE int gcc_p; */
/* OBSOLETE struct type *type; */
/* OBSOLETE { */
/* OBSOLETE return (TYPE_LENGTH(type) > 8); */
/* OBSOLETE } */
/* OBSOLETE */
/* OBSOLETE */
/* OBSOLETE */
/* OBSOLETE /* Print the GOULD instruction at address MEMADDR in debugged memory, */
/* OBSOLETE on STREAM. Returns length of the instruction, in bytes. *x/ */
/* OBSOLETE */
/* OBSOLETE int */
/* OBSOLETE gould_print_insn (memaddr, stream) */
/* OBSOLETE CORE_ADDR memaddr; */
/* OBSOLETE FILE *stream; */
/* OBSOLETE { */
/* OBSOLETE unsigned char buffer[MAXLEN]; */
/* OBSOLETE register int i; */
/* OBSOLETE register char *d; */
/* OBSOLETE register int bestmask; */
/* OBSOLETE unsigned best; */
/* OBSOLETE int temp, index, bestlen; */
/* OBSOLETE */
/* OBSOLETE read_memory (memaddr, buffer, MAXLEN); */
/* OBSOLETE */
/* OBSOLETE bestmask = 0; */
/* OBSOLETE index = -1; */
/* OBSOLETE best = 0xffffffff; */
/* OBSOLETE for (i = 0; i < NOPCODES; i++) */
/* OBSOLETE { */
/* OBSOLETE register unsigned int opcode = gld_opcodes[i].opcode; */
/* OBSOLETE register unsigned int mask = gld_opcodes[i].mask; */
/* OBSOLETE register unsigned int len = gld_opcodes[i].length; */
/* OBSOLETE register unsigned int test; */
/* OBSOLETE */
/* OBSOLETE /* Get possible opcode bytes into integer *x/ */
/* OBSOLETE test = buffer[0] << 24; */
/* OBSOLETE test |= buffer[1] << 16; */
/* OBSOLETE test |= buffer[2] << 8; */
/* OBSOLETE test |= buffer[3]; */
/* OBSOLETE */
/* OBSOLETE /* Mask with opcode and see if match *x/ */
/* OBSOLETE if ((opcode & mask) == (test & mask)) */
/* OBSOLETE { */
/* OBSOLETE /* See if second or third match *x/ */
/* OBSOLETE if (index >= 0) */
/* OBSOLETE { */
/* OBSOLETE /* Take new one if it looks good *x/ */
/* OBSOLETE if (bestlen == MAXLEN && len == MAXLEN) */
/* OBSOLETE { */
/* OBSOLETE /* See if lower bits matched *x/ */
/* OBSOLETE if (((bestmask & 3) == 0) && */
/* OBSOLETE ((mask & 3) != 0)) */
/* OBSOLETE { */
/* OBSOLETE bestmask = mask; */
/* OBSOLETE bestlen = len; */
/* OBSOLETE best = test; */
/* OBSOLETE index = i; */
/* OBSOLETE } */
/* OBSOLETE } */
/* OBSOLETE } */
/* OBSOLETE else */
/* OBSOLETE { */
/* OBSOLETE /* First match, save it *x/ */
/* OBSOLETE bestmask = mask; */
/* OBSOLETE bestlen = len; */
/* OBSOLETE best = test; */
/* OBSOLETE index = i; */
/* OBSOLETE } */
/* OBSOLETE } */
/* OBSOLETE } */
/* OBSOLETE */
/* OBSOLETE /* Handle undefined instructions. *x/ */
/* OBSOLETE if (index < 0) */
/* OBSOLETE { */
/* OBSOLETE fprintf (stream, "undefined 0%o",(buffer[0]<<8)+buffer[1]); */
/* OBSOLETE return 2; */
/* OBSOLETE } */
/* OBSOLETE */
/* OBSOLETE /* Print instruction name *x/ */
/* OBSOLETE fprintf (stream, "%-12s", gld_opcodes[index].name); */
/* OBSOLETE */
/* OBSOLETE /* Adjust if short instruction *x/ */
/* OBSOLETE if (gld_opcodes[index].length < 4) */
/* OBSOLETE { */
/* OBSOLETE best >>= 16; */
/* OBSOLETE i = 0; */
/* OBSOLETE } */
/* OBSOLETE else */
/* OBSOLETE { */
/* OBSOLETE i = 16; */
/* OBSOLETE } */
/* OBSOLETE */
/* OBSOLETE /* Dump out instruction arguments *x/ */
/* OBSOLETE for (d = gld_opcodes[index].args; *d; ++d) */
/* OBSOLETE { */
/* OBSOLETE switch (*d) */
/* OBSOLETE { */
/* OBSOLETE case 'f': */
/* OBSOLETE fprintf (stream, "%d", (best >> (7 + i)) & 7); */
/* OBSOLETE break; */
/* OBSOLETE case 'r': */
/* OBSOLETE fprintf (stream, "r%d", (best >> (7 + i)) & 7); */
/* OBSOLETE break; */
/* OBSOLETE case 'R': */
/* OBSOLETE fprintf (stream, "r%d", (best >> (4 + i)) & 7); */
/* OBSOLETE break; */
/* OBSOLETE case 'b': */
/* OBSOLETE fprintf (stream, "b%d", (best >> (7 + i)) & 7); */
/* OBSOLETE break; */
/* OBSOLETE case 'B': */
/* OBSOLETE fprintf (stream, "b%d", (best >> (4 + i)) & 7); */
/* OBSOLETE break; */
/* OBSOLETE case 'v': */
/* OBSOLETE fprintf (stream, "b%d", (best >> (7 + i)) & 7); */
/* OBSOLETE break; */
/* OBSOLETE case 'V': */
/* OBSOLETE fprintf (stream, "b%d", (best >> (4 + i)) & 7); */
/* OBSOLETE break; */
/* OBSOLETE case 'X': */
/* OBSOLETE temp = (best >> 20) & 7; */
/* OBSOLETE if (temp) */
/* OBSOLETE fprintf (stream, "r%d", temp); */
/* OBSOLETE else */
/* OBSOLETE putc ('0', stream); */
/* OBSOLETE break; */
/* OBSOLETE case 'A': */
/* OBSOLETE temp = (best >> 16) & 7; */
/* OBSOLETE if (temp) */
/* OBSOLETE fprintf (stream, "(b%d)", temp); */
/* OBSOLETE break; */
/* OBSOLETE case 'S': */
/* OBSOLETE fprintf (stream, "#%d", best & 0x1f); */
/* OBSOLETE break; */
/* OBSOLETE case 'I': */
/* OBSOLETE fprintf (stream, "#%x", best & 0xffff); */
/* OBSOLETE break; */
/* OBSOLETE case 'O': */
/* OBSOLETE fprintf (stream, "%x", best & 0xffff); */
/* OBSOLETE break; */
/* OBSOLETE case 'h': */
/* OBSOLETE fprintf (stream, "%d", best & 0xfffe); */
/* OBSOLETE break; */
/* OBSOLETE case 'd': */
/* OBSOLETE fprintf (stream, "%d", best & 0xfffc); */
/* OBSOLETE break; */
/* OBSOLETE case 'T': */
/* OBSOLETE fprintf (stream, "%d", (best >> 8) & 0xff); */
/* OBSOLETE break; */
/* OBSOLETE case 'N': */
/* OBSOLETE fprintf (stream, "%d", best & 0xff); */
/* OBSOLETE break; */
/* OBSOLETE default: */
/* OBSOLETE putc (*d, stream); */
/* OBSOLETE break; */
/* OBSOLETE } */
/* OBSOLETE } */
/* OBSOLETE */
/* OBSOLETE /* Return length of instruction *x/ */
/* OBSOLETE return (gld_opcodes[index].length); */
/* OBSOLETE } */
/* OBSOLETE */
/* OBSOLETE /* */
/* OBSOLETE * Find the number of arguments to a function. */
/* OBSOLETE *x/ */
/* OBSOLETE findarg(frame) */
/* OBSOLETE struct frame_info *frame; */
/* OBSOLETE { */
/* OBSOLETE register struct symbol *func; */
/* OBSOLETE register unsigned pc; */
/* OBSOLETE */
/* OBSOLETE #ifdef notdef */
/* OBSOLETE /* find starting address of frame function *x/ */
/* OBSOLETE pc = get_pc_function_start (frame->pc); */
/* OBSOLETE */
/* OBSOLETE /* find function symbol info *x/ */
/* OBSOLETE func = find_pc_function (pc); */
/* OBSOLETE */