aboutsummaryrefslogtreecommitdiff
path: root/gdb/gould-tdep.c
diff options
context:
space:
mode:
authorStan Shebs <shebs@codesourcery.com>2000-05-01 16:12:10 +0000
committerStan Shebs <shebs@codesourcery.com>2000-05-01 16:12:10 +0000
commit5330533d3078b3afbbb01c29bbe5a477b7923e7f (patch)
tree12e14c3f9957e1dc3c0916d70e06ad172bd8f546 /gdb/gould-tdep.c
parente5419804c42acf3b4c85130b48b935db03d29e90 (diff)
downloadgdb-5330533d3078b3afbbb01c29bbe5a477b7923e7f.zip
gdb-5330533d3078b3afbbb01c29bbe5a477b7923e7f.tar.gz
gdb-5330533d3078b3afbbb01c29bbe5a477b7923e7f.tar.bz2
Remove obsolete Gould configuration:
* configure.host, configure.tgt: Remove Gould configs. * Makefile.in: Remove Gould-related actions. * gould-xdep.c, gould-tdep.c, config/gould/*: Remove files. * NEWS: Mention removal.
Diffstat (limited to 'gdb/gould-tdep.c')
-rw-r--r--gdb/gould-tdep.c310
1 files changed, 0 insertions, 310 deletions
diff --git a/gdb/gould-tdep.c b/gdb/gould-tdep.c
deleted file mode 100644
index 3c70165..0000000
--- a/gdb/gould-tdep.c
+++ /dev/null
@@ -1,310 +0,0 @@
-/* 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 */
-/* OBSOLETE /* call blockframe code to look for match *x/ */
-/* OBSOLETE if (func != NULL) */
-/* OBSOLETE return (func->value.block->nsyms / sizeof(int)); */
-/* OBSOLETE #endif */
-/* OBSOLETE */
-/* OBSOLETE return (-1); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* */
-/* OBSOLETE * In the case of the NPL, the frame's norminal address is Br2 and the */
-/* OBSOLETE * previous routines frame is up the stack X bytes. Finding out what */
-/* OBSOLETE * 'X' is can be tricky. */
-/* OBSOLETE * */
-/* OBSOLETE * 1.) stored in the code function header xA(Br1). */
-/* OBSOLETE * 2.) must be careful of recurssion. */
-/* OBSOLETE *x/ */
-/* OBSOLETE CORE_ADDR */
-/* OBSOLETE findframe(thisframe) */
-/* OBSOLETE struct frame_info *thisframe; */
-/* OBSOLETE { */
-/* OBSOLETE register CORE_ADDR pointer; */
-/* OBSOLETE CORE_ADDR framechain(); */
-/* OBSOLETE #if 0 */
-/* OBSOLETE struct frame_info *frame; */
-/* OBSOLETE */
-/* OBSOLETE /* Setup toplevel frame structure *x/ */
-/* OBSOLETE frame->pc = read_pc(); */
-/* OBSOLETE frame->next_frame = 0; */
-/* OBSOLETE frame->frame = read_register (SP_REGNUM); /* Br2 *x/ */
-/* OBSOLETE */
-/* OBSOLETE /* Search for this frame (start at current Br2) *x/ */
-/* OBSOLETE do */
-/* OBSOLETE { */
-/* OBSOLETE pointer = framechain(frame); */
-/* OBSOLETE frame->next_frame = frame->frame; */
-/* OBSOLETE frame->frame = pointer; */
-/* OBSOLETE frame->pc = FRAME_SAVED_PC(frame); */
-/* OBSOLETE } */
-/* OBSOLETE while (frame->next_frame != thisframe); */
-/* OBSOLETE #endif */
-/* OBSOLETE */
-/* OBSOLETE pointer = framechain (thisframe); */
-/* OBSOLETE */
-/* OBSOLETE /* stop gap for now, end at __base3 *x/ */
-/* OBSOLETE if (thisframe->pc == 0) */
-/* OBSOLETE return 0; */
-/* OBSOLETE */
-/* OBSOLETE return pointer; */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE /* */
-/* OBSOLETE * Gdb front-end and internal framechain routine. */
-/* OBSOLETE * Go back up stack one level. Tricky... */
-/* OBSOLETE *x/ */
-/* OBSOLETE CORE_ADDR */
-/* OBSOLETE framechain(frame) */
-/* OBSOLETE register struct frame_info *frame; */
-/* OBSOLETE { */
-/* OBSOLETE register CORE_ADDR func, prevsp; */
-/* OBSOLETE register unsigned value; */
-/* OBSOLETE */
-/* OBSOLETE /* Get real function start address from internal frame address *x/ */
-/* OBSOLETE func = get_pc_function_start(frame->pc); */
-/* OBSOLETE */
-/* OBSOLETE /* If no stack given, read register Br1 "(sp)" *x/ */
-/* OBSOLETE if (!frame->frame) */
-/* OBSOLETE prevsp = read_register (SP_REGNUM); */
-/* OBSOLETE else */
-/* OBSOLETE prevsp = frame->frame; */
-/* OBSOLETE */
-/* OBSOLETE /* Check function header, case #2 *x/ */
-/* OBSOLETE value = read_memory_integer (func, 4); */
-/* OBSOLETE if (value) */
-/* OBSOLETE { */
-/* OBSOLETE /* 32bit call push value stored in function header *x/ */
-/* OBSOLETE prevsp += value; */
-/* OBSOLETE } */
-/* OBSOLETE else */
-/* OBSOLETE { */
-/* OBSOLETE /* read half-word from suabr at start of function *x/ */
-/* OBSOLETE prevsp += read_memory_integer (func + 10, 2); */
-/* OBSOLETE } */
-/* OBSOLETE */
-/* OBSOLETE return (prevsp); */
-/* OBSOLETE } */