FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Declare Gould configuration obsolete:

Browse source 
* 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...
This commit is contained in:
Stan Shebs 1999-02-10 21:28:03 +00:00
parent 9ebb9ec84a
commit baf6de2ed9
7 changed files with 468 additions and 450 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gdb/ChangeLog
View file

@ -1,3 +1,11 @@
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> 1999-02-09 DJ Delorie <dj@cygnus.com>
* sparcl-tdep.c: UDP download works in cygwin * sparcl-tdep.c: UDP download works in cygwin

6
gdb/Makefile.in
View file

@ -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 go32-xdep.o: go32-xdep.c
gould-tdep.o: gould-tdep.c $(OP_INCLUDE)/np1.h $(defs_h) $(frame_h) \ # OBSOLETE gould-tdep.o: gould-tdep.c $(OP_INCLUDE)/np1.h $(defs_h) $(frame_h) \
$(gdbcore_h) $(symtab_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) h8300-tdep.o: h8300-tdep.c $(defs_h) $(frame_h) $(symtab_h)

9
gdb/NEWS
View file

@ -14,6 +14,15 @@ M68K Linux m68*-*-linux*
Fujitsu FR30 fr30-*-elf* Fujitsu FR30 fr30-*-elf*
Mitsubishi D30V d30v-*-* 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 * Readline 2.2
GDB now uses readline 2.2. GDB now uses readline 2.2.

6
gdb/configure.host
View file

@ -16,7 +16,7 @@ hppa*) gdb_host_cpu=pa ;;
i[3456]86*) gdb_host_cpu=i386 ;; i[3456]86*) gdb_host_cpu=i386 ;;
m68*) gdb_host_cpu=m68k ;; m68*) gdb_host_cpu=m68k ;;
m88*) gdb_host_cpu=m88k ;; m88*) gdb_host_cpu=m88k ;;
np1) gdb_host_cpu=gould ;; # OBSOLETE np1) gdb_host_cpu=gould ;;
pyramid) gdb_host_cpu=pyr ;; pyramid) gdb_host_cpu=pyr ;;
powerpc*) gdb_host_cpu=powerpc ;; powerpc*) gdb_host_cpu=powerpc ;;
sparc64) gdb_host_cpu=sparc ;; sparc64) gdb_host_cpu=sparc ;;
@ -119,7 +119,7 @@ mips-*-riscos*) gdb_host=riscos ;;
none-*-*) gdb_host=none ;; none-*-*) gdb_host=none ;;
np1-*-*) gdb_host=np1 ;; # OBSOLETE np1-*-*) gdb_host=np1 ;;
ns32k-*-mach3*) gdb_host=ns32km3 ;; ns32k-*-mach3*) gdb_host=ns32km3 ;;
ns32k-*-netbsd*) gdb_host=nbsd ;; ns32k-*-netbsd*) gdb_host=nbsd ;;
@ -131,7 +131,7 @@ powerpcle-*-cygwin*) gdb_host=cygwin ;;
powerpcle-*-solaris*) gdb_host=solaris ;; powerpcle-*-solaris*) gdb_host=solaris ;;
powerpc-*-linux*) gdb_host=linux ;; powerpc-*-linux*) gdb_host=linux ;;
pn-*-*) gdb_host=pn ;; # OBSOLETE pn-*-*) gdb_host=pn ;;
pyramid-*-*) gdb_host=pyramid ;; pyramid-*-*) gdb_host=pyramid ;;

9
gdb/configure.tgt
View file

@ -19,9 +19,9 @@ i[3456]86*) gdb_target_cpu=i386 ;;
m68*) gdb_target_cpu=m68k ;; m68*) gdb_target_cpu=m68k ;;
m88*) gdb_target_cpu=m88k ;; m88*) gdb_target_cpu=m88k ;;
mips*) gdb_target_cpu=mips ;; mips*) gdb_target_cpu=mips ;;
np1) gdb_target_cpu=gould ;; # OBSOLETE np1) gdb_target_cpu=gould ;;
powerpc*) gdb_target_cpu=powerpc ;; powerpc*) gdb_target_cpu=powerpc ;;
pn) gdb_target_cpu=gould ;; # OBSOLETE pn) gdb_target_cpu=gould ;;
pyramid) gdb_target_cpu=pyr ;; pyramid) gdb_target_cpu=pyr ;;
sparc*) gdb_target_cpu=sparc ;; sparc*) gdb_target_cpu=sparc ;;
thumb*) gdb_target_cpu=arm ;; thumb*) gdb_target_cpu=arm ;;
@ -232,14 +232,15 @@ mn10300-*-*) gdb_target=mn10300 ;;
none-*-*) gdb_target=none ;; none-*-*) gdb_target=none ;;
np1-*-*) gdb_target=np1 ;; # OBSOLETE np1-*-*) gdb_target=np1 ;;
ns32k-*-mach3*) gdb_target=ns32km3 ;; ns32k-*-mach3*) gdb_target=ns32km3 ;;
ns32k-*-netbsd*) gdb_target=nbsd ;; ns32k-*-netbsd*) gdb_target=nbsd ;;
ns32k-utek-sysv*) gdb_target=merlin ;; ns32k-utek-sysv*) gdb_target=merlin ;;
ns32k-utek-*) gdb_target=umax ;; ns32k-utek-*) gdb_target=umax ;;
pn-*-*) gdb_target=pn ;; # OBSOLETE pn-*-*) gdb_target=pn ;;
powerpc-*-macos*) gdb_target=macos ;; powerpc-*-macos*) gdb_target=macos ;;
powerpc-*-netware*) gdb_target=ppc-nw powerpc-*-netware*) gdb_target=ppc-nw
configdirs="${configdirs} nlm" ;; configdirs="${configdirs} nlm" ;;

620
gdb/gould-tdep.c
View file

@ -1,310 +1,310 @@
/* GOULD RISC target-dependent code for GDB, the GNU debugger. /* OBSOLETE /* GOULD RISC target-dependent code for GDB, the GNU debugger. */
Copyright 1986, 1987, 1989, 1991 Free Software Foundation, Inc. /* OBSOLETE Copyright 1986, 1987, 1989, 1991 Free Software Foundation, Inc. */
/* OBSOLETE */
This file is part of GDB. /* OBSOLETE This file is part of GDB. */
/* OBSOLETE */
This program is free software; you can redistribute it and/or modify /* OBSOLETE 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 /* OBSOLETE it under the terms of the GNU General Public License as published by */
the Free Software Foundation; either version 2 of the License, or /* OBSOLETE the Free Software Foundation; either version 2 of the License, or */
(at your option) any later version. /* OBSOLETE (at your option) any later version. */
/* OBSOLETE */
This program is distributed in the hope that it will be useful, /* OBSOLETE This program is distributed in the hope that it will be useful, */
but WITHOUT ANY WARRANTY; without even the implied warranty of /* OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of */
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the /* OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
GNU General Public License for more details. /* OBSOLETE GNU General Public License for more details. */
/* OBSOLETE */
You should have received a copy of the GNU General Public License /* OBSOLETE You should have received a copy of the GNU General Public License */
along with this program; if not, write to the Free Software /* OBSOLETE along with this program; if not, write to the Free Software */
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *x/ */
/* OBSOLETE */
#include "defs.h" /* OBSOLETE #include "defs.h" */
#include "symtab.h" /* OBSOLETE #include "symtab.h" */
#include "frame.h" /* OBSOLETE #include "frame.h" */
#include "gdbcore.h" /* OBSOLETE #include "gdbcore.h" */
#if defined GOULD_PN /* OBSOLETE #if defined GOULD_PN */
#include "opcode/pn.h" /* OBSOLETE #include "opcode/pn.h" */
#else /* OBSOLETE #else */
#include "opcode/np1.h" /* OBSOLETE #include "opcode/np1.h" */
#endif /* OBSOLETE #endif */
/* OBSOLETE */
/* GOULD RISC instructions are never longer than this many bytes. */ /* OBSOLETE /* GOULD RISC instructions are never longer than this many bytes. *x/ */
#define MAXLEN 4 /* OBSOLETE #define MAXLEN 4 */
/* OBSOLETE */
/* Number of elements in the opcode table. */ /* OBSOLETE /* Number of elements in the opcode table. *x/ */
#define NOPCODES (sizeof gld_opcodes / sizeof gld_opcodes[0]) /* OBSOLETE #define NOPCODES (sizeof gld_opcodes / sizeof gld_opcodes[0]) */
/* OBSOLETE */
int /* OBSOLETE int */
gould_frame_chain_valid (chain, fi) /* OBSOLETE gould_frame_chain_valid (chain, fi) */
CORE_ADDR chain; /* OBSOLETE CORE_ADDR chain; */
struct frame_info *fi; /* not used here */ /* OBSOLETE struct frame_info *fi; /* not used here *x/ */
{ /* OBSOLETE { */
return (chain != 0 && chain != (thisframe)->frame); /* OBSOLETE return (chain != 0 && chain != (thisframe)->frame); */
} /* OBSOLETE } */
/* OBSOLETE */
/* Both gcc and cc return small structs in registers (i.e. in GDB /* OBSOLETE /* Both gcc and cc return small structs in registers (i.e. in GDB */
terminology, small structs don't use the struct return convention). */ /* OBSOLETE terminology, small structs don't use the struct return convention). *x/ */
int /* OBSOLETE int */
gould_use_struct_convention (gcc_p, type) /* OBSOLETE gould_use_struct_convention (gcc_p, type) */
int gcc_p; /* OBSOLETE int gcc_p; */
struct type *type; /* OBSOLETE struct type *type; */
{ /* OBSOLETE { */
return (TYPE_LENGTH(type) > 8); /* OBSOLETE return (TYPE_LENGTH(type) > 8); */
} /* OBSOLETE } */
/* OBSOLETE */
/* OBSOLETE */
/* OBSOLETE */
/* Print the GOULD instruction at address MEMADDR in debugged memory, /* OBSOLETE /* Print the GOULD instruction at address MEMADDR in debugged memory, */
on STREAM. Returns length of the instruction, in bytes. */ /* OBSOLETE on STREAM. Returns length of the instruction, in bytes. *x/ */
/* OBSOLETE */
int /* OBSOLETE int */
gould_print_insn (memaddr, stream) /* OBSOLETE gould_print_insn (memaddr, stream) */
CORE_ADDR memaddr; /* OBSOLETE CORE_ADDR memaddr; */
FILE *stream; /* OBSOLETE FILE *stream; */
{ /* OBSOLETE { */
unsigned char buffer[MAXLEN]; /* OBSOLETE unsigned char buffer[MAXLEN]; */
register int i; /* OBSOLETE register int i; */
register char *d; /* OBSOLETE register char *d; */
register int bestmask; /* OBSOLETE register int bestmask; */
unsigned best; /* OBSOLETE unsigned best; */
int temp, index, bestlen; /* OBSOLETE int temp, index, bestlen; */
/* OBSOLETE */
read_memory (memaddr, buffer, MAXLEN); /* OBSOLETE read_memory (memaddr, buffer, MAXLEN); */
/* OBSOLETE */
bestmask = 0; /* OBSOLETE bestmask = 0; */
index = -1; /* OBSOLETE index = -1; */
best = 0xffffffff; /* OBSOLETE best = 0xffffffff; */
for (i = 0; i < NOPCODES; i++) /* OBSOLETE for (i = 0; i < NOPCODES; i++) */
{ /* OBSOLETE { */
register unsigned int opcode = gld_opcodes[i].opcode; /* OBSOLETE register unsigned int opcode = gld_opcodes[i].opcode; */
register unsigned int mask = gld_opcodes[i].mask; /* OBSOLETE register unsigned int mask = gld_opcodes[i].mask; */
register unsigned int len = gld_opcodes[i].length; /* OBSOLETE register unsigned int len = gld_opcodes[i].length; */
register unsigned int test; /* OBSOLETE register unsigned int test; */
/* OBSOLETE */
/* Get possible opcode bytes into integer */ /* OBSOLETE /* Get possible opcode bytes into integer *x/ */
test = buffer[0] << 24; /* OBSOLETE test = buffer[0] << 24; */
test |= buffer[1] << 16; /* OBSOLETE test |= buffer[1] << 16; */
test |= buffer[2] << 8; /* OBSOLETE test |= buffer[2] << 8; */
test |= buffer[3]; /* OBSOLETE test |= buffer[3]; */
/* OBSOLETE */
/* Mask with opcode and see if match */ /* OBSOLETE /* Mask with opcode and see if match *x/ */
if ((opcode & mask) == (test & mask)) /* OBSOLETE if ((opcode & mask) == (test & mask)) */
{ /* OBSOLETE { */
/* See if second or third match */ /* OBSOLETE /* See if second or third match *x/ */
if (index >= 0) /* OBSOLETE if (index >= 0) */
{ /* OBSOLETE { */
/* Take new one if it looks good */ /* OBSOLETE /* Take new one if it looks good *x/ */
if (bestlen == MAXLEN && len == MAXLEN) /* OBSOLETE if (bestlen == MAXLEN && len == MAXLEN) */
{ /* OBSOLETE { */
/* See if lower bits matched */ /* OBSOLETE /* See if lower bits matched *x/ */
if (((bestmask & 3) == 0) && /* OBSOLETE if (((bestmask & 3) == 0) && */
((mask & 3) != 0)) /* OBSOLETE ((mask & 3) != 0)) */
{ /* OBSOLETE { */
bestmask = mask; /* OBSOLETE bestmask = mask; */
bestlen = len; /* OBSOLETE bestlen = len; */
best = test; /* OBSOLETE best = test; */
index = i; /* OBSOLETE index = i; */
} /* OBSOLETE } */
} /* OBSOLETE } */
} /* OBSOLETE } */
else /* OBSOLETE else */
{ /* OBSOLETE { */
/* First match, save it */ /* OBSOLETE /* First match, save it *x/ */
bestmask = mask; /* OBSOLETE bestmask = mask; */
bestlen = len; /* OBSOLETE bestlen = len; */
best = test; /* OBSOLETE best = test; */
index = i; /* OBSOLETE index = i; */
} /* OBSOLETE } */
} /* OBSOLETE } */
} /* OBSOLETE } */
/* OBSOLETE */
/* Handle undefined instructions. */ /* OBSOLETE /* Handle undefined instructions. *x/ */
if (index < 0) /* OBSOLETE if (index < 0) */
{ /* OBSOLETE { */
fprintf (stream, "undefined 0%o",(buffer[0]<<8)+buffer[1]); /* OBSOLETE fprintf (stream, "undefined 0%o",(buffer[0]<<8)+buffer[1]); */
return 2; /* OBSOLETE return 2; */
} /* OBSOLETE } */
/* OBSOLETE */
/* Print instruction name */ /* OBSOLETE /* Print instruction name *x/ */
fprintf (stream, "%-12s", gld_opcodes[index].name); /* OBSOLETE fprintf (stream, "%-12s", gld_opcodes[index].name); */
/* OBSOLETE */
/* Adjust if short instruction */ /* OBSOLETE /* Adjust if short instruction *x/ */
if (gld_opcodes[index].length < 4) /* OBSOLETE if (gld_opcodes[index].length < 4) */
{ /* OBSOLETE { */
best >>= 16; /* OBSOLETE best >>= 16; */
i = 0; /* OBSOLETE i = 0; */
} /* OBSOLETE } */
else /* OBSOLETE else */
{ /* OBSOLETE { */
i = 16; /* OBSOLETE i = 16; */
} /* OBSOLETE } */
/* OBSOLETE */
/* Dump out instruction arguments */ /* OBSOLETE /* Dump out instruction arguments *x/ */
for (d = gld_opcodes[index].args; *d; ++d) /* OBSOLETE for (d = gld_opcodes[index].args; *d; ++d) */
{ /* OBSOLETE { */
switch (*d) /* OBSOLETE switch (*d) */
{ /* OBSOLETE { */
case 'f': /* OBSOLETE case 'f': */
fprintf (stream, "%d", (best >> (7 + i)) & 7); /* OBSOLETE fprintf (stream, "%d", (best >> (7 + i)) & 7); */
break; /* OBSOLETE break; */
case 'r': /* OBSOLETE case 'r': */
fprintf (stream, "r%d", (best >> (7 + i)) & 7); /* OBSOLETE fprintf (stream, "r%d", (best >> (7 + i)) & 7); */
break; /* OBSOLETE break; */
case 'R': /* OBSOLETE case 'R': */
fprintf (stream, "r%d", (best >> (4 + i)) & 7); /* OBSOLETE fprintf (stream, "r%d", (best >> (4 + i)) & 7); */
break; /* OBSOLETE break; */
case 'b': /* OBSOLETE case 'b': */
fprintf (stream, "b%d", (best >> (7 + i)) & 7); /* OBSOLETE fprintf (stream, "b%d", (best >> (7 + i)) & 7); */
break; /* OBSOLETE break; */
case 'B': /* OBSOLETE case 'B': */
fprintf (stream, "b%d", (best >> (4 + i)) & 7); /* OBSOLETE fprintf (stream, "b%d", (best >> (4 + i)) & 7); */
break; /* OBSOLETE break; */
case 'v': /* OBSOLETE case 'v': */
fprintf (stream, "b%d", (best >> (7 + i)) & 7); /* OBSOLETE fprintf (stream, "b%d", (best >> (7 + i)) & 7); */
break; /* OBSOLETE break; */
case 'V': /* OBSOLETE case 'V': */
fprintf (stream, "b%d", (best >> (4 + i)) & 7); /* OBSOLETE fprintf (stream, "b%d", (best >> (4 + i)) & 7); */
break; /* OBSOLETE break; */
case 'X': /* OBSOLETE case 'X': */
temp = (best >> 20) & 7; /* OBSOLETE temp = (best >> 20) & 7; */
if (temp) /* OBSOLETE if (temp) */
fprintf (stream, "r%d", temp); /* OBSOLETE fprintf (stream, "r%d", temp); */
else /* OBSOLETE else */
putc ('0', stream); /* OBSOLETE putc ('0', stream); */
break; /* OBSOLETE break; */
case 'A': /* OBSOLETE case 'A': */
temp = (best >> 16) & 7; /* OBSOLETE temp = (best >> 16) & 7; */
if (temp) /* OBSOLETE if (temp) */
fprintf (stream, "(b%d)", temp); /* OBSOLETE fprintf (stream, "(b%d)", temp); */
break; /* OBSOLETE break; */
case 'S': /* OBSOLETE case 'S': */
fprintf (stream, "#%d", best & 0x1f); /* OBSOLETE fprintf (stream, "#%d", best & 0x1f); */
break; /* OBSOLETE break; */
case 'I': /* OBSOLETE case 'I': */
fprintf (stream, "#%x", best & 0xffff); /* OBSOLETE fprintf (stream, "#%x", best & 0xffff); */
break; /* OBSOLETE break; */
case 'O': /* OBSOLETE case 'O': */
fprintf (stream, "%x", best & 0xffff); /* OBSOLETE fprintf (stream, "%x", best & 0xffff); */
break; /* OBSOLETE break; */
case 'h': /* OBSOLETE case 'h': */
fprintf (stream, "%d", best & 0xfffe); /* OBSOLETE fprintf (stream, "%d", best & 0xfffe); */
break; /* OBSOLETE break; */
case 'd': /* OBSOLETE case 'd': */
fprintf (stream, "%d", best & 0xfffc); /* OBSOLETE fprintf (stream, "%d", best & 0xfffc); */
break; /* OBSOLETE break; */
case 'T': /* OBSOLETE case 'T': */
fprintf (stream, "%d", (best >> 8) & 0xff); /* OBSOLETE fprintf (stream, "%d", (best >> 8) & 0xff); */
break; /* OBSOLETE break; */
case 'N': /* OBSOLETE case 'N': */
fprintf (stream, "%d", best & 0xff); /* OBSOLETE fprintf (stream, "%d", best & 0xff); */
break; /* OBSOLETE break; */
default: /* OBSOLETE default: */
putc (*d, stream); /* OBSOLETE putc (*d, stream); */
break; /* OBSOLETE break; */
} /* OBSOLETE } */
} /* OBSOLETE } */
/* OBSOLETE */
/* Return length of instruction */ /* OBSOLETE /* Return length of instruction *x/ */
return (gld_opcodes[index].length); /* OBSOLETE return (gld_opcodes[index].length); */
} /* OBSOLETE } */
/* OBSOLETE */
/* /* OBSOLETE /* */
* Find the number of arguments to a function. /* OBSOLETE * Find the number of arguments to a function. */
*/ /* OBSOLETE *x/ */
findarg(frame) /* OBSOLETE findarg(frame) */
struct frame_info *frame; /* OBSOLETE struct frame_info *frame; */
{ /* OBSOLETE { */
register struct symbol *func; /* OBSOLETE register struct symbol *func; */
register unsigned pc; /* OBSOLETE register unsigned pc; */
/* OBSOLETE */
#ifdef notdef /* OBSOLETE #ifdef notdef */
/* find starting address of frame function */ /* OBSOLETE /* find starting address of frame function *x/ */
pc = get_pc_function_start (frame->pc); /* OBSOLETE pc = get_pc_function_start (frame->pc); */
/* OBSOLETE */
/* find function symbol info */ /* OBSOLETE /* find function symbol info *x/ */
func = find_pc_function (pc); /* OBSOLETE func = find_pc_function (pc); */
/* OBSOLETE */
/* call blockframe code to look for match */ /* OBSOLETE /* call blockframe code to look for match *x/ */
if (func != NULL) /* OBSOLETE if (func != NULL) */
return (func->value.block->nsyms / sizeof(int)); /* OBSOLETE return (func->value.block->nsyms / sizeof(int)); */
#endif /* OBSOLETE #endif */
/* OBSOLETE */
return (-1); /* OBSOLETE return (-1); */
} /* OBSOLETE } */
/* OBSOLETE */
/* /* OBSOLETE /* */
* In the case of the NPL, the frame's norminal address is Br2 and the /* OBSOLETE * 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 /* OBSOLETE * previous routines frame is up the stack X bytes. Finding out what */
* 'X' is can be tricky. /* OBSOLETE * 'X' is can be tricky. */
* /* OBSOLETE * */
* 1.) stored in the code function header xA(Br1). /* OBSOLETE * 1.) stored in the code function header xA(Br1). */
* 2.) must be careful of recurssion. /* OBSOLETE * 2.) must be careful of recurssion. */
*/ /* OBSOLETE *x/ */
CORE_ADDR /* OBSOLETE CORE_ADDR */
findframe(thisframe) /* OBSOLETE findframe(thisframe) */
struct frame_info *thisframe; /* OBSOLETE struct frame_info *thisframe; */
{ /* OBSOLETE { */
register CORE_ADDR pointer; /* OBSOLETE register CORE_ADDR pointer; */
CORE_ADDR framechain(); /* OBSOLETE CORE_ADDR framechain(); */
#if 0 /* OBSOLETE #if 0 */
struct frame_info *frame; /* OBSOLETE struct frame_info *frame; */
/* OBSOLETE */
/* Setup toplevel frame structure */ /* OBSOLETE /* Setup toplevel frame structure *x/ */
frame->pc = read_pc(); /* OBSOLETE frame->pc = read_pc(); */
frame->next_frame = 0; /* OBSOLETE frame->next_frame = 0; */
frame->frame = read_register (SP_REGNUM); /* Br2 */ /* OBSOLETE frame->frame = read_register (SP_REGNUM); /* Br2 *x/ */
/* OBSOLETE */
/* Search for this frame (start at current Br2) */ /* OBSOLETE /* Search for this frame (start at current Br2) *x/ */
do /* OBSOLETE do */
{ /* OBSOLETE { */
pointer = framechain(frame); /* OBSOLETE pointer = framechain(frame); */
frame->next_frame = frame->frame; /* OBSOLETE frame->next_frame = frame->frame; */
frame->frame = pointer; /* OBSOLETE frame->frame = pointer; */
frame->pc = FRAME_SAVED_PC(frame); /* OBSOLETE frame->pc = FRAME_SAVED_PC(frame); */
} /* OBSOLETE } */
while (frame->next_frame != thisframe); /* OBSOLETE while (frame->next_frame != thisframe); */
#endif /* OBSOLETE #endif */
/* OBSOLETE */
pointer = framechain (thisframe); /* OBSOLETE pointer = framechain (thisframe); */
/* OBSOLETE */
/* stop gap for now, end at __base3 */ /* OBSOLETE /* stop gap for now, end at __base3 *x/ */
if (thisframe->pc == 0) /* OBSOLETE if (thisframe->pc == 0) */
return 0; /* OBSOLETE return 0; */
/* OBSOLETE */
return pointer; /* OBSOLETE return pointer; */
} /* OBSOLETE } */
/* OBSOLETE */
/* /* OBSOLETE /* */
* Gdb front-end and internal framechain routine. /* OBSOLETE * Gdb front-end and internal framechain routine. */
* Go back up stack one level. Tricky... /* OBSOLETE * Go back up stack one level. Tricky... */
*/ /* OBSOLETE *x/ */
CORE_ADDR /* OBSOLETE CORE_ADDR */
framechain(frame) /* OBSOLETE framechain(frame) */
register struct frame_info *frame; /* OBSOLETE register struct frame_info *frame; */
{ /* OBSOLETE { */
register CORE_ADDR func, prevsp; /* OBSOLETE register CORE_ADDR func, prevsp; */
register unsigned value; /* OBSOLETE register unsigned value; */
/* OBSOLETE */
/* Get real function start address from internal frame address */ /* OBSOLETE /* Get real function start address from internal frame address *x/ */
func = get_pc_function_start(frame->pc); /* OBSOLETE func = get_pc_function_start(frame->pc); */
/* OBSOLETE */
/* If no stack given, read register Br1 "(sp)" */ /* OBSOLETE /* If no stack given, read register Br1 "(sp)" *x/ */
if (!frame->frame) /* OBSOLETE if (!frame->frame) */
prevsp = read_register (SP_REGNUM); /* OBSOLETE prevsp = read_register (SP_REGNUM); */
else /* OBSOLETE else */
prevsp = frame->frame; /* OBSOLETE prevsp = frame->frame; */
/* OBSOLETE */
/* Check function header, case #2 */ /* OBSOLETE /* Check function header, case #2 *x/ */
value = read_memory_integer (func, 4); /* OBSOLETE value = read_memory_integer (func, 4); */
if (value) /* OBSOLETE if (value) */
{ /* OBSOLETE { */
/* 32bit call push value stored in function header */ /* OBSOLETE /* 32bit call push value stored in function header *x/ */
prevsp += value; /* OBSOLETE prevsp += value; */
} /* OBSOLETE } */
else /* OBSOLETE else */
{ /* OBSOLETE { */
/* read half-word from suabr at start of function */ /* OBSOLETE /* read half-word from suabr at start of function *x/ */
prevsp += read_memory_integer (func + 10, 2); /* OBSOLETE prevsp += read_memory_integer (func + 10, 2); */
} /* OBSOLETE } */
/* OBSOLETE */
return (prevsp); /* OBSOLETE return (prevsp); */
} /* OBSOLETE } */

260
gdb/gould-xdep.c
View file

@ -1,130 +1,130 @@
/* Low level interface to ptrace, for GDB when running under Unix. /* OBSOLETE /* Low level interface to ptrace, for GDB when running under Unix. */
Copyright (C) 1986, 1987, 1989, 1991 Free Software Foundation, Inc. /* OBSOLETE Copyright (C) 1986, 1987, 1989, 1991 Free Software Foundation, Inc. */
/* OBSOLETE */
This file is part of GDB. /* OBSOLETE This file is part of GDB. */
/* OBSOLETE */
This program is free software; you can redistribute it and/or modify /* OBSOLETE 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 /* OBSOLETE it under the terms of the GNU General Public License as published by */
the Free Software Foundation; either version 2 of the License, or /* OBSOLETE the Free Software Foundation; either version 2 of the License, or */
(at your option) any later version. /* OBSOLETE (at your option) any later version. */
/* OBSOLETE */
This program is distributed in the hope that it will be useful, /* OBSOLETE This program is distributed in the hope that it will be useful, */
but WITHOUT ANY WARRANTY; without even the implied warranty of /* OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of */
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the /* OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
GNU General Public License for more details. /* OBSOLETE GNU General Public License for more details. */
/* OBSOLETE */
You should have received a copy of the GNU General Public License /* OBSOLETE You should have received a copy of the GNU General Public License */
along with this program; if not, write to the Free Software /* OBSOLETE along with this program; if not, write to the Free Software */
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *x/ */
/* OBSOLETE */
#include "defs.h" /* OBSOLETE #include "defs.h" */
#include "frame.h" /* OBSOLETE #include "frame.h" */
#include "inferior.h" /* OBSOLETE #include "inferior.h" */
/* OBSOLETE */
#include <sys/param.h> /* OBSOLETE #include <sys/param.h> */
#include <sys/dir.h> /* OBSOLETE #include <sys/dir.h> */
#include <signal.h> /* OBSOLETE #include <signal.h> */
#include <sys/user.h> /* OBSOLETE #include <sys/user.h> */
#include <sys/ioctl.h> /* OBSOLETE #include <sys/ioctl.h> */
#include <fcntl.h> /* OBSOLETE #include <fcntl.h> */
/* OBSOLETE */
#include "gdbcore.h" /* OBSOLETE #include "gdbcore.h" */
/* OBSOLETE */
#include <sys/file.h> /* OBSOLETE #include <sys/file.h> */
#include "gdb_stat.h" /* OBSOLETE #include "gdb_stat.h" */
/* OBSOLETE */
/* OBSOLETE */
/* Work with core dump and executable files, for GDB. /* OBSOLETE /* Work with core dump and executable files, for GDB. */
This code would be in corefile.c if it weren't machine-dependent. */ /* OBSOLETE This code would be in corefile.c if it weren't machine-dependent. *x/ */
/* OBSOLETE */
void /* OBSOLETE void */
core_file_command (filename, from_tty) /* OBSOLETE core_file_command (filename, from_tty) */
char *filename; /* OBSOLETE char *filename; */
int from_tty; /* OBSOLETE int from_tty; */
{ /* OBSOLETE { */
int val; /* OBSOLETE int val; */
extern char registers[]; /* OBSOLETE extern char registers[]; */
/* OBSOLETE */
/* Discard all vestiges of any previous core file /* OBSOLETE /* Discard all vestiges of any previous core file */
and mark data and stack spaces as empty. */ /* OBSOLETE and mark data and stack spaces as empty. *x/ */
/* OBSOLETE */
if (corefile) /* OBSOLETE if (corefile) */
free (corefile); /* OBSOLETE free (corefile); */
corefile = 0; /* OBSOLETE corefile = 0; */
/* OBSOLETE */
if (corechan >= 0) /* OBSOLETE if (corechan >= 0) */
close (corechan); /* OBSOLETE close (corechan); */
corechan = -1; /* OBSOLETE corechan = -1; */
/* OBSOLETE */
data_start = 0; /* OBSOLETE data_start = 0; */
data_end = 0; /* OBSOLETE data_end = 0; */
stack_start = STACK_END_ADDR; /* OBSOLETE stack_start = STACK_END_ADDR; */
stack_end = STACK_END_ADDR; /* OBSOLETE stack_end = STACK_END_ADDR; */
/* OBSOLETE */
/* Now, if a new core file was specified, open it and digest it. */ /* OBSOLETE /* Now, if a new core file was specified, open it and digest it. *x/ */
/* OBSOLETE */
if (filename) /* OBSOLETE if (filename) */
{ /* OBSOLETE { */
filename = tilde_expand (filename); /* OBSOLETE filename = tilde_expand (filename); */
make_cleanup (free, filename); /* OBSOLETE make_cleanup (free, filename); */
/* OBSOLETE */
if (have_inferior_p ()) /* OBSOLETE if (have_inferior_p ()) */
error ("To look at a core file, you must kill the program with \"kill\"."); /* OBSOLETE error ("To look at a core file, you must kill the program with \"kill\"."); */
corechan = open (filename, O_RDONLY, 0); /* OBSOLETE corechan = open (filename, O_RDONLY, 0); */
if (corechan < 0) /* OBSOLETE if (corechan < 0) */
perror_with_name (filename); /* OBSOLETE perror_with_name (filename); */
/* 4.2-style (and perhaps also sysV-style) core dump file. */ /* OBSOLETE /* 4.2-style (and perhaps also sysV-style) core dump file. *x/ */
{ /* OBSOLETE { */
struct user u; /* OBSOLETE struct user u; */
int reg_offset; /* OBSOLETE int reg_offset; */
/* OBSOLETE */
val = myread (corechan, &u, sizeof u); /* OBSOLETE val = myread (corechan, &u, sizeof u); */
if (val < 0) /* OBSOLETE if (val < 0) */
perror_with_name (filename); /* OBSOLETE perror_with_name (filename); */
data_start = exec_data_start; /* OBSOLETE data_start = exec_data_start; */
/* OBSOLETE */
data_end = data_start + NBPG * u.u_dsize; /* OBSOLETE data_end = data_start + NBPG * u.u_dsize; */
stack_start = stack_end - NBPG * u.u_ssize; /* OBSOLETE stack_start = stack_end - NBPG * u.u_ssize; */
data_offset = NBPG * UPAGES; /* OBSOLETE data_offset = NBPG * UPAGES; */
stack_offset = NBPG * (UPAGES + u.u_dsize); /* OBSOLETE stack_offset = NBPG * (UPAGES + u.u_dsize); */
reg_offset = (int) u.u_ar0 - KERNEL_U_ADDR; /* OBSOLETE reg_offset = (int) u.u_ar0 - KERNEL_U_ADDR; */
/* OBSOLETE */
/* I don't know where to find this info. /* OBSOLETE /* I don't know where to find this info. */
So, for now, mark it as not available. */ /* OBSOLETE So, for now, mark it as not available. *x/ */
core_aouthdr.a_magic = 0; /* OBSOLETE core_aouthdr.a_magic = 0; */
/* OBSOLETE */
/* Read the register values out of the core file and store /* OBSOLETE /* Read the register values out of the core file and store */
them where `read_register' will find them. */ /* OBSOLETE them where `read_register' will find them. *x/ */
/* OBSOLETE */
{ /* OBSOLETE { */
register int regno; /* OBSOLETE register int regno; */
/* OBSOLETE */
for (regno = 0; regno < NUM_REGS; regno++) /* OBSOLETE for (regno = 0; regno < NUM_REGS; regno++) */
{ /* OBSOLETE { */
char buf[MAX_REGISTER_RAW_SIZE]; /* OBSOLETE char buf[MAX_REGISTER_RAW_SIZE]; */
/* OBSOLETE */
val = lseek (corechan, register_addr (regno, reg_offset), 0); /* OBSOLETE val = lseek (corechan, register_addr (regno, reg_offset), 0); */
if (val < 0) /* OBSOLETE if (val < 0) */
perror_with_name (filename); /* OBSOLETE perror_with_name (filename); */
/* OBSOLETE */
val = myread (corechan, buf, sizeof buf); /* OBSOLETE val = myread (corechan, buf, sizeof buf); */
if (val < 0) /* OBSOLETE if (val < 0) */
perror_with_name (filename); /* OBSOLETE perror_with_name (filename); */
supply_register (regno, buf); /* OBSOLETE supply_register (regno, buf); */
} /* OBSOLETE } */
} /* OBSOLETE } */
} /* OBSOLETE } */
if (filename[0] == '/') /* OBSOLETE if (filename[0] == '/') */
corefile = savestring (filename, strlen (filename)); /* OBSOLETE corefile = savestring (filename, strlen (filename)); */
else /* OBSOLETE else */
{ /* OBSOLETE { */
corefile = concat (current_directory, "/", filename, NULL); /* OBSOLETE corefile = concat (current_directory, "/", filename, NULL); */
} /* OBSOLETE } */
/* OBSOLETE */
flush_cached_frames (); /* OBSOLETE flush_cached_frames (); */
select_frame (get_current_frame (), 0); /* OBSOLETE select_frame (get_current_frame (), 0); */
validate_files (); /* OBSOLETE validate_files (); */
} /* OBSOLETE } */
else if (from_tty) /* OBSOLETE else if (from_tty) */
printf ("No core file now.\n"); /* OBSOLETE printf ("No core file now.\n"); */
} /* OBSOLETE } */