From: David Edelsohn Date: Thu, 2 Mar 1995 00:13:16 +0000 (+0000) Subject: Merged into sparc-tdep.c. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=579dfd8eef405a9f957d8a3906b48c7134ec0730;p=binutils-gdb.git Merged into sparc-tdep.c. --- diff --git a/gdb/.Sanitize b/gdb/.Sanitize index 0ae2334fc7b..35e5ca1bbe7 100644 --- a/gdb/.Sanitize +++ b/gdb/.Sanitize @@ -269,7 +269,6 @@ somread.c somsolib.c somsolib.h source.c -sp64-tdep.c sparc-nat.c sparc-stub.c sparc-tdep.c diff --git a/gdb/sp64-tdep.c b/gdb/sp64-tdep.c index d676112b207..e69de29bb2d 100644 --- a/gdb/sp64-tdep.c +++ b/gdb/sp64-tdep.c @@ -1,288 +0,0 @@ -/* Target-dependent code for the SPARC 64 for GDB, the GNU debugger. - Copyright 1986, 1987, 1989, 1991, 1992, 1993 Free Software Foundation, Inc. - Contributed by Doug Evans (dje@cygnus.com). - -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., 675 Mass Ave, Cambridge, MA 02139, USA. */ - -#include "defs.h" -#include "frame.h" -#include "inferior.h" -#include "obstack.h" -#include "target.h" - -/*#include "symfile.h" /* for objfiles.h */ -/*#include "objfiles.h" /* for find_pc_section */ - -/* This file contains replacements and additions to sparc-tdep.c only. - Some of this code has been written for a day when we can merge at least - some of this with sparc-tdep.c. Macro TARGET_SPARC64 exists to allow some - code to potentially be used by both. */ - -#define TARGET_SPARC64 1 /* later make a config parm or some such */ - -/* From infrun.c */ -extern int stop_after_trap; - -/* Branches with prediction are treated like their non-predicting cousins. */ -/* FIXME: What about floating point branches? */ - -typedef enum -{ - Error, not_branch, bicc, bicca, ba, baa, ticc, ta, done_retry -} branch_type; - -/* Simulate single-step ptrace call for sun4. Code written by Gary - Beihl (beihl@mcc.com). */ - -/* npc4 and next_pc describe the situation at the time that the - step-breakpoint was set, not necessary the current value of NPC_REGNUM. */ -static CORE_ADDR next_pc, npc4, target; -static int brknpc4, brktrg; -typedef char binsn_quantum[BREAKPOINT_MAX]; -static binsn_quantum break_mem[3]; - -/* Non-zero if we just simulated a single-step ptrace call. This is - needed because we cannot remove the breakpoints in the inferior - process until after the `wait' in `wait_for_inferior'. Used for - sun4. */ - -int one_stepped; - -/* sparc64_single_step() is called just before we want to resume the inferior, - if we want to single-step it but there is no hardware or kernel single-step - support (as on all SPARCs). We find all the possible targets of the - coming instruction and breakpoint them. - - single_step is also called just after the inferior stops. If we had - set up a simulated single-step, we undo our damage. */ - -/* FIXME: When the code is releasable, sparc's single step could become this - one, removing the duplication. */ - -void -sparc64_single_step (ignore) - int ignore; /* pid, but we don't need it */ -{ - branch_type br, isbranch(); - CORE_ADDR pc; - long pc_instruction; - - if (!one_stepped) - { - /* Always set breakpoint for NPC. */ - next_pc = read_register (NPC_REGNUM); - npc4 = next_pc + 4; /* branch not taken */ - - target_insert_breakpoint (next_pc, break_mem[0]); - /* printf_unfiltered ("set break at %x\n",next_pc); */ - - pc = read_register (PC_REGNUM); - pc_instruction = read_memory_integer (pc, sizeof(pc_instruction)); - br = isbranch (pc_instruction, pc, &target); - brknpc4 = brktrg = 0; - - if (br == bicca) - { - /* Conditional annulled branch will either end up at - npc (if taken) or at npc+4 (if not taken). - Trap npc+4. */ - brknpc4 = 1; - target_insert_breakpoint (npc4, break_mem[1]); - } - else if ((br == baa && target != next_pc) - || (TARGET_SPARC64 && br == done_retry)) - { - /* Unconditional annulled branch will always end up at - the target. */ - brktrg = 1; - target_insert_breakpoint (target, break_mem[2]); - } - - /* We are ready to let it go */ - one_stepped = 1; - return; - } - else - { - /* Remove breakpoints */ - target_remove_breakpoint (next_pc, break_mem[0]); - - if (brknpc4) - target_remove_breakpoint (npc4, break_mem[1]); - - if (brktrg) - target_remove_breakpoint (target, break_mem[2]); - - one_stepped = 0; - } -} - -CORE_ADDR -sparc64_extract_struct_value_address (regbuf) - char regbuf[REGISTER_BYTES]; -{ - CORE_ADDR addr; - - /* FIXME: We assume a non-leaf function. */ - addr = read_register (I0_REGNUM); - return addr; -} - -/* Check instruction at ADDR to see if it is an annulled branch or other - instruction whose npc isn't pc+4 (eg: trap, done, retry). - All other instructions will go to NPC or will trap. - Set *TARGET if we find a candidate branch; set to zero if not. */ - -branch_type -isbranch (instruction, addr, target) - long instruction; - CORE_ADDR addr, *target; -{ - branch_type val = not_branch; - long int offset; /* Must be signed for sign-extend. */ - union - { - unsigned long int code; - struct - { - unsigned int op:2; - unsigned int a:1; - unsigned int cond:4; - unsigned int op2:3; - unsigned int disp22:22; - } b; - struct - { - unsigned int op:2; - unsigned int a:1; - unsigned int cond:4; - unsigned int op2:3; - unsigned int cc:2; - unsigned int p:1; - unsigned int disp19:19; - } bp; - struct - { - unsigned int op:2; - unsigned int a:1; - unsigned int zero:1; - unsigned int rcond:3; - unsigned int op2:3; - unsigned int disp16hi:2; - unsigned int p:1; - unsigned int rs1:5; - unsigned int disp16lo:14; - } bpr; - struct - { - unsigned int op:2; - unsigned int fcn:5; - unsigned int op3:6; - unsigned int reserved:19; - } dr; - } insn; - - *target = 0; - insn.code = instruction; - - if (insn.b.op == 0 - && (insn.b.op2 == 1 || insn.b.op2 == 2 || insn.b.op2 ==3 - || insn.b.op2 == 5 || insn.b.op2 == 6)) - { - if (insn.b.cond == 8) - val = insn.b.a ? baa : ba; - else - val = insn.b.a ? bicca : bicc; - switch (insn.b.op2) - { - case 1: /* bpcc */ - offset = 4 * ((int) (insn.bp.disp19 << 13) >> 13); - break; - case 2: /* bicc */ - offset = 4 * ((int) (insn.b.disp22 << 10) >> 10); - break; - case 3: /* bpr */ - offset = 4 * ((int) ((insn.bpr.disp16hi << 10) - || (insn.bpr.disp16lo << 18)) >> 13); - break; - case 5: /* fbpfcc */ - offset = 4 * ((int) (insn.bp.disp19 << 13) >> 13); - break; - case 6: /* fbfcc */ - offset = 4 * ((int) (insn.b.disp22 << 10) >> 10); - break; - } - *target = addr + offset; - } - else if (insn.dr.op == 2 && insn.dr.op3 == 62) - { - if (insn.dr.fcn == 0) - { - /* done */ - *target = read_register (TNPC_REGNUM); - val = done_retry; - } - else if (insn.dr.fcn == 1) - { - /* retry */ - *target = read_register (TPC_REGNUM); - val = done_retry; - } - } - - return val; -} - -/* PRINT_REGISTER_HOOK routine. - Pretty print various registers. */ - -static void -dump_ccreg (reg, val) - char *reg; - int val; -{ - printf_unfiltered ("%s:%s,%s,%s,%s", reg, - val & 8 ? "N" : "NN", - val & 4 ? "Z" : "NZ", - val & 2 ? "O" : "NO", - val & 1 ? "C" : "NC" - ); -} - -void -sparc_print_register_hook (regno) - int regno; -{ - if (((unsigned) (regno) - FP0_REGNUM < FP_MAX_REGNUM - FP0_REGNUM) - && ((regno) & 1) == 0) - { - char doublereg[8]; /* two float regs */ - if (!read_relative_register_raw_bytes ((regno), doublereg)) - { - printf_unfiltered("\t"); - print_floating (doublereg, builtin_type_double, gdb_stdout); - } - } - else if ((regno) == CCR_REGNUM) - { - int ccr = read_register (CCR_REGNUM); - printf_unfiltered("\t"); - dump_ccreg ("xcc", ccr >> 4); - printf_unfiltered(", "); - dump_ccreg ("icc", ccr & 15); - } -}