diff options
Diffstat (limited to 'gdb/hppabsd-tdep.c')
| -rw-r--r-- | gdb/hppabsd-tdep.c | 141 |
1 files changed, 0 insertions, 141 deletions
diff --git a/gdb/hppabsd-tdep.c b/gdb/hppabsd-tdep.c deleted file mode 100644 index a6feefb..0000000 --- a/gdb/hppabsd-tdep.c +++ /dev/null @@ -1,141 +0,0 @@ -/* Target-dependent code for HP PA-RISC BSD's. - - Copyright (C) 2004-2016 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 3 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, see <http://www.gnu.org/licenses/>. */ - -#include "defs.h" -#include "objfiles.h" -#include "target.h" -#include "value.h" - -#include "elf/common.h" - -#include "hppa-tdep.h" -#include "hppabsd-tdep.h" -#include "dwarf2-frame.h" -#include "solib-svr4.h" - -static CORE_ADDR -hppabsd_find_global_pointer (struct gdbarch *gdbarch, struct value *function) -{ - enum bfd_endian byte_order = gdbarch_byte_order (gdbarch); - CORE_ADDR faddr = value_as_address (function); - struct obj_section *faddr_sec; - gdb_byte buf[4]; - - /* Is this a plabel? If so, dereference it to get the Global Pointer - value. */ - if (faddr & 2) - { - if (target_read_memory ((faddr & ~3) + 4, buf, sizeof buf) == 0) - return extract_unsigned_integer (buf, sizeof buf, byte_order); - } - - /* If the address is in the .plt section, then the real function - hasn't yet been fixed up by the linker so we cannot determine the - Global Pointer for that function. */ - if (in_plt_section (faddr)) - return 0; - - faddr_sec = find_pc_section (faddr); - if (faddr_sec != NULL) - { - struct obj_section *sec; - - ALL_OBJFILE_OSECTIONS (faddr_sec->objfile, sec) - { - if (strcmp (sec->the_bfd_section->name, ".dynamic") == 0) - break; - } - - if (sec < faddr_sec->objfile->sections_end) - { - CORE_ADDR addr = obj_section_addr (sec); - CORE_ADDR endaddr = obj_section_endaddr (sec); - - while (addr < endaddr) - { - gdb_byte buf[4]; - LONGEST tag; - - if (target_read_memory (addr, buf, sizeof buf) != 0) - break; - - tag = extract_signed_integer (buf, sizeof buf, byte_order); - if (tag == DT_PLTGOT) - { - CORE_ADDR pltgot; - - if (target_read_memory (addr + 4, buf, sizeof buf) != 0) - break; - - /* The NetBSD/OpenBSD ld.so doesn't relocate DT_PLTGOT, so - we have to do it ourselves. */ - pltgot = extract_unsigned_integer (buf, sizeof buf, - byte_order); - pltgot += ANOFFSET (sec->objfile->section_offsets, - SECT_OFF_TEXT (sec->objfile)); - - return pltgot; - } - - if (tag == DT_NULL) - break; - - addr += 8; - } - } - } - - return 0; -} - - -static void -hppabsd_dwarf2_frame_init_reg (struct gdbarch *gdbarch, int regnum, - struct dwarf2_frame_state_reg *reg, - struct frame_info *this_frame) -{ - if (regnum == HPPA_PCOQ_HEAD_REGNUM) - reg->how = DWARF2_FRAME_REG_RA; - else if (regnum == HPPA_SP_REGNUM) - reg->how = DWARF2_FRAME_REG_CFA; -} - -void -hppabsd_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch) -{ - struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch); - - /* OpenBSD and NetBSD have a 64-bit 'long double'. */ - set_gdbarch_long_double_bit (gdbarch, 64); - set_gdbarch_long_double_format (gdbarch, floatformats_ieee_double); - - /* OpenBSD and NetBSD use ELF. */ - tdep->is_elf = 1; - tdep->find_global_pointer = hppabsd_find_global_pointer; - tdep->in_solib_call_trampoline = hppa_in_solib_call_trampoline; - set_gdbarch_skip_trampoline_code (gdbarch, hppa_skip_trampoline_code); - - /* OpenBSD and NetBSD use SVR4-style shared libraries. */ - set_solib_svr4_fetch_link_map_offsets - (gdbarch, svr4_ilp32_fetch_link_map_offsets); - - /* Hook in the DWARF CFI frame unwinder. */ - dwarf2_frame_set_init_reg (gdbarch, hppabsd_dwarf2_frame_init_reg); - dwarf2_append_unwinders (gdbarch); -} |