mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-03 04:12:10 +08:00
dccbb60975
This commit includes gdb_assert.h in common-defs.h and removes all other inclusions. gdb/ 2014-08-07 Gary Benson <gbenson@redhat.com> * common/common-defs.h: Include gdb_assert.h. * aarch64-tdep.c: Do not include gdb_assert.h. * addrmap.c: Likewise. * aix-thread.c: Likewise. * alpha-linux-tdep.c: Likewise. * alpha-mdebug-tdep.c: Likewise. * alphanbsd-tdep.c: Likewise. * amd64-nat.c: Likewise. * amd64-tdep.c: Likewise. * amd64bsd-nat.c: Likewise. * amd64fbsd-nat.c: Likewise. * amd64fbsd-tdep.c: Likewise. * amd64nbsd-nat.c: Likewise. * amd64nbsd-tdep.c: Likewise. * amd64obsd-nat.c: Likewise. * amd64obsd-tdep.c: Likewise. * arch-utils.c: Likewise. * arm-tdep.c: Likewise. * armbsd-tdep.c: Likewise. * auxv.c: Likewise. * bcache.c: Likewise. * bfin-tdep.c: Likewise. * blockframe.c: Likewise. * breakpoint.c: Likewise. * bsd-kvm.c: Likewise. * bsd-uthread.c: Likewise. * buildsym.c: Likewise. * c-exp.y: Likewise. * c-lang.c: Likewise. * charset.c: Likewise. * cleanups.c: Likewise. * cli-out.c: Likewise. * cli/cli-decode.c: Likewise. * cli/cli-dump.c: Likewise. * cli/cli-logging.c: Likewise. * cli/cli-script.c: Likewise. * cli/cli-utils.c: Likewise. * coffread.c: Likewise. * common/common-utils.c: Likewise. * common/queue.h: Likewise. * common/signals.c: Likewise. * common/vec.h: Likewise. * complaints.c: Likewise. * completer.c: Likewise. * corelow.c: Likewise. * cp-abi.c: Likewise. * cp-name-parser.y: Likewise. * cp-namespace.c: Likewise. * cp-support.c: Likewise. * cris-tdep.c: Likewise. * dbxread.c: Likewise. * dictionary.c: Likewise. * doublest.c: Likewise. * dsrec.c: Likewise. * dummy-frame.c: Likewise. * dwarf2-frame-tailcall.c: Likewise. * dwarf2-frame.c: Likewise. * dwarf2expr.c: Likewise. * dwarf2loc.c: Likewise. * dwarf2read.c: Likewise. * eval.c: Likewise. * event-loop.c: Likewise. * exceptions.c: Likewise. * expprint.c: Likewise. * f-valprint.c: Likewise. * fbsd-nat.c: Likewise. * findvar.c: Likewise. * frame-unwind.c: Likewise. * frame.c: Likewise. * frv-tdep.c: Likewise. * gcore.c: Likewise. * gdb-dlfcn.c: Likewise. * gdb_bfd.c: Likewise. * gdbarch.c: Likewise. * gdbarch.sh: Likewise. * gdbtypes.c: Likewise. * gnu-nat.c: Likewise. * gnu-v3-abi.c: Likewise. * go-lang.c: Likewise. * guile/scm-exception.c: Likewise. * guile/scm-gsmob.c: Likewise. * guile/scm-lazy-string.c: Likewise. * guile/scm-math.c: Likewise. * guile/scm-pretty-print.c: Likewise. * guile/scm-safe-call.c: Likewise. * guile/scm-utils.c: Likewise. * guile/scm-value.c: Likewise. * h8300-tdep.c: Likewise. * hppa-hpux-nat.c: Likewise. * hppa-tdep.c: Likewise. * hppanbsd-tdep.c: Likewise. * hppaobsd-tdep.c: Likewise. * i386-darwin-nat.c: Likewise. * i386-darwin-tdep.c: Likewise. * i386-nto-tdep.c: Likewise. * i386-tdep.c: Likewise. * i386bsd-nat.c: Likewise. * i386fbsd-tdep.c: Likewise. * i386gnu-nat.c: Likewise. * i386nbsd-tdep.c: Likewise. * i386obsd-tdep.c: Likewise. * i387-tdep.c: Likewise. * ia64-libunwind-tdep.c: Likewise. * ia64-tdep.c: Likewise. * inf-ptrace.c: Likewise. * inf-ttrace.c: Likewise. * infcall.c: Likewise. * infcmd.c: Likewise. * infrun.c: Likewise. * inline-frame.c: Likewise. * interps.c: Likewise. * jv-lang.c: Likewise. * jv-typeprint.c: Likewise. * linux-fork.c: Likewise. * linux-nat.c: Likewise. * linux-thread-db.c: Likewise. * m32c-tdep.c: Likewise. * m32r-linux-nat.c: Likewise. * m32r-tdep.c: Likewise. * m68k-tdep.c: Likewise. * m68kbsd-nat.c: Likewise. * m68kbsd-tdep.c: Likewise. * m88k-tdep.c: Likewise. * machoread.c: Likewise. * macroexp.c: Likewise. * macrotab.c: Likewise. * maint.c: Likewise. * mdebugread.c: Likewise. * memory-map.c: Likewise. * mep-tdep.c: Likewise. * mi/mi-common.c: Likewise. * microblaze-tdep.c: Likewise. * mingw-hdep.c: Likewise. * mips-linux-nat.c: Likewise. * mips-linux-tdep.c: Likewise. * mips-tdep.c: Likewise. * mips64obsd-tdep.c: Likewise. * mipsnbsd-tdep.c: Likewise. * mn10300-linux-tdep.c: Likewise. * mn10300-tdep.c: Likewise. * moxie-tdep.c: Likewise. * mt-tdep.c: Likewise. * nat/linux-btrace.c: Likewise. * nat/linux-osdata.c: Likewise. * nat/linux-ptrace.c: Likewise. * nat/mips-linux-watch.c: Likewise. * nios2-linux-tdep.c: Likewise. * nios2-tdep.c: Likewise. * objc-lang.c: Likewise. * objfiles.c: Likewise. * obsd-nat.c: Likewise. * opencl-lang.c: Likewise. * osabi.c: Likewise. * parse.c: Likewise. * ppc-linux-nat.c: Likewise. * ppc-sysv-tdep.c: Likewise. * ppcfbsd-nat.c: Likewise. * ppcfbsd-tdep.c: Likewise. * ppcnbsd-nat.c: Likewise. * ppcnbsd-tdep.c: Likewise. * ppcobsd-nat.c: Likewise. * ppcobsd-tdep.c: Likewise. * printcmd.c: Likewise. * procfs.c: Likewise. * prologue-value.c: Likewise. * psymtab.c: Likewise. * python/py-lazy-string.c: Likewise. * python/py-value.c: Likewise. * regcache.c: Likewise. * reggroups.c: Likewise. * registry.c: Likewise. * remote-sim.c: Likewise. * remote.c: Likewise. * rs6000-aix-tdep.c: Likewise. * rs6000-tdep.c: Likewise. * s390-linux-tdep.c: Likewise. * score-tdep.c: Likewise. * ser-base.c: Likewise. * ser-mingw.c: Likewise. * sh-tdep.c: Likewise. * sh64-tdep.c: Likewise. * solib-darwin.c: Likewise. * solib-spu.c: Likewise. * solib-svr4.c: Likewise. * source.c: Likewise. * sparc-nat.c: Likewise. * sparc-sol2-tdep.c: Likewise. * sparc-tdep.c: Likewise. * sparc64-sol2-tdep.c: Likewise. * sparc64-tdep.c: Likewise. * sparc64fbsd-tdep.c: Likewise. * sparc64nbsd-tdep.c: Likewise. * sparc64obsd-tdep.c: Likewise. * sparcnbsd-tdep.c: Likewise. * sparcobsd-tdep.c: Likewise. * spu-multiarch.c: Likewise. * spu-tdep.c: Likewise. * stabsread.c: Likewise. * stack.c: Likewise. * symfile.c: Likewise. * symtab.c: Likewise. * target-descriptions.c: Likewise. * target-memory.c: Likewise. * target.c: Likewise. * tic6x-linux-tdep.c: Likewise. * tic6x-tdep.c: Likewise. * tilegx-linux-nat.c: Likewise. * tilegx-tdep.c: Likewise. * top.c: Likewise. * tramp-frame.c: Likewise. * tui/tui-out.c: Likewise. * tui/tui-winsource.c: Likewise. * ui-out.c: Likewise. * user-regs.c: Likewise. * utils.c: Likewise. * v850-tdep.c: Likewise. * valops.c: Likewise. * value.c: Likewise. * varobj.c: Likewise. * vax-nat.c: Likewise. * xml-syscall.c: Likewise. * xml-tdesc.c: Likewise. * xstormy16-tdep.c: Likewise. * xtensa-linux-nat.c: Likewise. * xtensa-tdep.c: Likewise. gdb/gdbserver/ 2014-08-07 Gary Benson <gbenson@redhat.com> * server.h: Do not include gdb_assert.h.
274 lines
7.3 KiB
C
274 lines
7.3 KiB
C
/* Native-dependent code for PA-RISC HP-UX.
|
||
|
||
Copyright (C) 2004-2014 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 "inferior.h"
|
||
#include "regcache.h"
|
||
#include "target.h"
|
||
|
||
#include <sys/ptrace.h>
|
||
#include <sys/utsname.h>
|
||
#include <machine/save_state.h>
|
||
|
||
#ifdef HAVE_TTRACE
|
||
#include <sys/ttrace.h>
|
||
#endif
|
||
|
||
#include "hppa-tdep.h"
|
||
#include "solib-som.h"
|
||
#include "inf-ptrace.h"
|
||
#include "inf-ttrace.h"
|
||
|
||
/* Return the offset of register REGNUM within `struct save_state'.
|
||
The offset returns depends on the flags in the "flags" register and
|
||
the register size (32-bit or 64-bit). These are taken from
|
||
REGCACHE. */
|
||
|
||
static LONGEST
|
||
hppa_hpux_save_state_offset (struct regcache *regcache, int regnum)
|
||
{
|
||
LONGEST offset;
|
||
|
||
if (regnum == HPPA_FLAGS_REGNUM)
|
||
return ssoff (ss_flags);
|
||
|
||
if (HPPA_R0_REGNUM < regnum && regnum < HPPA_FP0_REGNUM)
|
||
{
|
||
struct gdbarch *arch = get_regcache_arch (regcache);
|
||
size_t size = register_size (arch, HPPA_R1_REGNUM);
|
||
ULONGEST flags;
|
||
|
||
gdb_assert (size == 4 || size == 8);
|
||
|
||
regcache_cooked_read_unsigned (regcache, HPPA_FLAGS_REGNUM, &flags);
|
||
if (flags & SS_WIDEREGS)
|
||
offset = ssoff (ss_wide) + (8 - size) + (regnum - HPPA_R0_REGNUM) * 8;
|
||
else
|
||
offset = ssoff (ss_narrow) + (regnum - HPPA_R1_REGNUM) * 4;
|
||
}
|
||
else
|
||
{
|
||
struct gdbarch *arch = get_regcache_arch (regcache);
|
||
size_t size = register_size (arch, HPPA_FP0_REGNUM);
|
||
|
||
gdb_assert (size == 4 || size == 8);
|
||
gdb_assert (regnum >= HPPA_FP0_REGNUM);
|
||
offset = ssoff(ss_fpblock) + (regnum - HPPA_FP0_REGNUM) * size;
|
||
}
|
||
|
||
gdb_assert (offset < sizeof (save_state_t));
|
||
return offset;
|
||
}
|
||
|
||
/* Just in case a future version of PA-RISC HP-UX won't have ptrace(2)
|
||
at all. */
|
||
#ifndef PTRACE_TYPE_RET
|
||
#define PTRACE_TYPE_RET void
|
||
#endif
|
||
|
||
static void
|
||
hppa_hpux_fetch_register (struct regcache *regcache, int regnum)
|
||
{
|
||
struct gdbarch *gdbarch = get_regcache_arch (regcache);
|
||
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
|
||
CORE_ADDR addr;
|
||
size_t size;
|
||
PTRACE_TYPE_RET *buf;
|
||
pid_t pid;
|
||
int i;
|
||
|
||
pid = ptid_get_pid (inferior_ptid);
|
||
|
||
/* This isn't really an address, but ptrace thinks of it as one. */
|
||
addr = hppa_hpux_save_state_offset (regcache, regnum);
|
||
size = register_size (gdbarch, regnum);
|
||
|
||
gdb_assert (size == 4 || size == 8);
|
||
buf = alloca (size);
|
||
|
||
#ifdef HAVE_TTRACE
|
||
{
|
||
lwpid_t lwp = ptid_get_lwp (inferior_ptid);
|
||
|
||
if (ttrace (TT_LWP_RUREGS, pid, lwp, addr, size, (uintptr_t)buf) == -1)
|
||
error (_("Couldn't read register %s (#%d): %s"),
|
||
gdbarch_register_name (gdbarch, regnum),
|
||
regnum, safe_strerror (errno));
|
||
}
|
||
#else
|
||
{
|
||
int i;
|
||
|
||
/* Read the register contents from the inferior a chuck at the time. */
|
||
for (i = 0; i < size / sizeof (PTRACE_TYPE_RET); i++)
|
||
{
|
||
errno = 0;
|
||
buf[i] = ptrace (PT_RUREGS, pid, (PTRACE_TYPE_ARG3) addr, 0, 0);
|
||
if (errno != 0)
|
||
error (_("Couldn't read register %s (#%d): %s"),
|
||
gdbarch_register_name (gdbarch, regnum),
|
||
regnum, safe_strerror (errno));
|
||
|
||
addr += sizeof (PTRACE_TYPE_RET);
|
||
}
|
||
}
|
||
#endif
|
||
|
||
/* Take care with the "flags" register. It's stored as an `int' in
|
||
`struct save_state', even for 64-bit code. */
|
||
if (regnum == HPPA_FLAGS_REGNUM && size == 8)
|
||
{
|
||
ULONGEST flags;
|
||
flags = extract_unsigned_integer ((gdb_byte *)buf, 4, byte_order);
|
||
store_unsigned_integer ((gdb_byte *)buf, 8, byte_order, flags);
|
||
}
|
||
|
||
regcache_raw_supply (regcache, regnum, buf);
|
||
}
|
||
|
||
static void
|
||
hppa_hpux_fetch_inferior_registers (struct target_ops *ops,
|
||
struct regcache *regcache, int regnum)
|
||
{
|
||
if (regnum == -1)
|
||
for (regnum = 0;
|
||
regnum < gdbarch_num_regs (get_regcache_arch (regcache));
|
||
regnum++)
|
||
hppa_hpux_fetch_register (regcache, regnum);
|
||
else
|
||
hppa_hpux_fetch_register (regcache, regnum);
|
||
}
|
||
|
||
/* Store register REGNUM into the inferior. */
|
||
|
||
static void
|
||
hppa_hpux_store_register (struct regcache *regcache, int regnum)
|
||
{
|
||
struct gdbarch *gdbarch = get_regcache_arch (regcache);
|
||
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
|
||
CORE_ADDR addr;
|
||
size_t size;
|
||
PTRACE_TYPE_RET *buf;
|
||
pid_t pid;
|
||
|
||
pid = ptid_get_pid (inferior_ptid);
|
||
|
||
/* This isn't really an address, but ptrace thinks of it as one. */
|
||
addr = hppa_hpux_save_state_offset (regcache, regnum);
|
||
size = register_size (gdbarch, regnum);
|
||
|
||
gdb_assert (size == 4 || size == 8);
|
||
buf = alloca (size);
|
||
|
||
regcache_raw_collect (regcache, regnum, buf);
|
||
|
||
/* Take care with the "flags" register. It's stored as an `int' in
|
||
`struct save_state', even for 64-bit code. */
|
||
if (regnum == HPPA_FLAGS_REGNUM && size == 8)
|
||
{
|
||
ULONGEST flags;
|
||
flags = extract_unsigned_integer ((gdb_byte *)buf, 8, byte_order);
|
||
store_unsigned_integer ((gdb_byte *)buf, 4, byte_order, flags);
|
||
size = 4;
|
||
}
|
||
|
||
#ifdef HAVE_TTRACE
|
||
{
|
||
lwpid_t lwp = ptid_get_lwp (inferior_ptid);
|
||
|
||
if (ttrace (TT_LWP_WUREGS, pid, lwp, addr, size, (uintptr_t)buf) == -1)
|
||
error (_("Couldn't write register %s (#%d): %s"),
|
||
gdbarch_register_name (gdbarch, regnum),
|
||
regnum, safe_strerror (errno));
|
||
}
|
||
#else
|
||
{
|
||
int i;
|
||
|
||
/* Write the register contents into the inferior a chunk at the time. */
|
||
for (i = 0; i < size / sizeof (PTRACE_TYPE_RET); i++)
|
||
{
|
||
errno = 0;
|
||
ptrace (PT_WUREGS, pid, (PTRACE_TYPE_ARG3) addr, buf[i], 0);
|
||
if (errno != 0)
|
||
error (_("Couldn't write register %s (#%d): %s"),
|
||
gdbarch_register_name (gdbarch, regnum),
|
||
regnum, safe_strerror (errno));
|
||
|
||
addr += sizeof (PTRACE_TYPE_RET);
|
||
}
|
||
}
|
||
#endif
|
||
}
|
||
|
||
/* Store register REGNUM back into the inferior. If REGNUM is -1, do
|
||
this for all registers (including the floating point registers). */
|
||
|
||
static void
|
||
hppa_hpux_store_inferior_registers (struct target_ops *ops,
|
||
struct regcache *regcache, int regnum)
|
||
{
|
||
if (regnum == -1)
|
||
for (regnum = 0;
|
||
regnum < gdbarch_num_regs (get_regcache_arch (regcache));
|
||
regnum++)
|
||
hppa_hpux_store_register (regcache, regnum);
|
||
else
|
||
hppa_hpux_store_register (regcache, regnum);
|
||
}
|
||
|
||
/* Set hpux_major_release variable to the value retrieved from a call to
|
||
uname function. */
|
||
|
||
static void
|
||
set_hpux_major_release (void)
|
||
{
|
||
struct utsname x;
|
||
char *p;
|
||
|
||
uname (&x);
|
||
p = strchr (x.release, '.');
|
||
if (p)
|
||
hpux_major_release = atoi (p + 1);
|
||
}
|
||
|
||
|
||
|
||
/* Prevent warning from -Wmissing-prototypes. */
|
||
void _initialize_hppa_hpux_nat (void);
|
||
|
||
void
|
||
_initialize_hppa_hpux_nat (void)
|
||
{
|
||
struct target_ops *t;
|
||
|
||
set_hpux_major_release ();
|
||
|
||
#ifdef HAVE_TTRACE
|
||
t = inf_ttrace_target ();
|
||
#else
|
||
t = inf_ptrace_target ();
|
||
#endif
|
||
|
||
t->to_fetch_registers = hppa_hpux_fetch_inferior_registers;
|
||
t->to_store_registers = hppa_hpux_store_inferior_registers;
|
||
|
||
add_target (t);
|
||
}
|