[deliverable/binutils-gdb.git] / gdb / sparc-nat.c

/* Native-dependent code for SPARC.

   Copyright (C) 2003, 2004, 2005, 2007, 2008 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 "gdb_assert.h"
#include <signal.h>
#include "gdb_string.h"
#include <sys/ptrace.h>
#include "gdb_wait.h"
#ifdef HAVE_MACHINE_REG_H
#include <machine/reg.h>
#endif

#include "sparc-tdep.h"
#include "sparc-nat.h"
#include "inf-ptrace.h"

/* With some trickery we can use the code in this file for most (if
   not all) ptrace(2) based SPARC systems, which includes SunOS 4,
   GNU/Linux and the various SPARC BSD's.

   First, we need a data structure for use with ptrace(2).  SunOS has
   `struct regs' and `struct fp_status' in <machine/reg.h>.  BSD's
   have `struct reg' and `struct fpreg' in <machine/reg.h>.  GNU/Linux
   has the same structures as SunOS 4, but they're in <asm/reg.h>,
   which is a kernel header.  As a general rule we avoid including
   GNU/Linux kernel headers.  Fortunately GNU/Linux has a `gregset_t'
   and a `fpregset_t' that are equivalent to `struct regs' and `struct
   fp_status' in <sys/ucontext.h>, which is automatically included by
   <signal.h>.  Settling on using the `gregset_t' and `fpregset_t'
   typedefs, providing them for the other systems, therefore solves
   the puzzle.  */

#ifdef HAVE_MACHINE_REG_H
#ifdef HAVE_STRUCT_REG
typedef struct reg gregset_t;
typedef struct fpreg fpregset_t;
#else 
typedef struct regs gregset_t;
typedef struct fp_status fpregset_t;
#endif
#endif

/* Second, we need to remap the BSD ptrace(2) requests to their SunOS
   equivalents.  GNU/Linux already follows SunOS here.  */

#ifndef PTRACE_GETREGS
#define PTRACE_GETREGS PT_GETREGS
#endif

#ifndef PTRACE_SETREGS
#define PTRACE_SETREGS PT_SETREGS
#endif

#ifndef PTRACE_GETFPREGS
#define PTRACE_GETFPREGS PT_GETFPREGS
#endif

#ifndef PTRACE_SETFPREGS
#define PTRACE_SETFPREGS PT_SETFPREGS
#endif

/* Register set description.  */
const struct sparc_gregset *sparc_gregset;
void (*sparc_supply_gregset) (const struct sparc_gregset *,
			      struct regcache *, int , const void *);
void (*sparc_collect_gregset) (const struct sparc_gregset *,
			       const struct regcache *, int, void *);
void (*sparc_supply_fpregset) (struct regcache *, int , const void *);
void (*sparc_collect_fpregset) (const struct regcache *, int , void *);
int (*sparc_gregset_supplies_p) (int);
int (*sparc_fpregset_supplies_p) (int);

/* Determine whether `gregset_t' contains register REGNUM.  */

int
sparc32_gregset_supplies_p (int regnum)
{
  /* Integer registers.  */
  if ((regnum >= SPARC_G1_REGNUM && regnum <= SPARC_G7_REGNUM)
      || (regnum >= SPARC_O0_REGNUM && regnum <= SPARC_O7_REGNUM)
      || (regnum >= SPARC_L0_REGNUM && regnum <= SPARC_L7_REGNUM)
      || (regnum >= SPARC_I0_REGNUM && regnum <= SPARC_I7_REGNUM))
    return 1;

  /* Control registers.  */
  if (regnum == SPARC32_PC_REGNUM
      || regnum == SPARC32_NPC_REGNUM
      || regnum == SPARC32_PSR_REGNUM
      || regnum == SPARC32_Y_REGNUM)
    return 1;

  return 0;
}

/* Determine whether `fpregset_t' contains register REGNUM.  */

int
sparc32_fpregset_supplies_p (int regnum)
{
  /* Floating-point registers.  */
  if (regnum >= SPARC_F0_REGNUM && regnum <= SPARC_F31_REGNUM)
    return 1;

  /* Control registers.  */
  if (regnum == SPARC32_FSR_REGNUM)
    return 1;

  return 0;
}

/* Fetch register REGNUM from the inferior.  If REGNUM is -1, do this
   for all registers (including the floating-point registers).  */

void
sparc_fetch_inferior_registers (struct regcache *regcache, int regnum)
{
  int pid;

  /* NOTE: cagney/2002-12-03: This code assumes that the currently
     selected light weight processes' registers can be written
     directly into the selected thread's register cache.  This works
     fine when given an 1:1 LWP:thread model (such as found on
     GNU/Linux) but will, likely, have problems when used on an N:1
     (userland threads) or N:M (userland multiple LWP) model.  In the
     case of the latter two, the LWP's registers do not necessarily
     belong to the selected thread (the LWP could be in the middle of
     executing the thread switch code).

     These functions should instead be paramaterized with an explicit
     object (struct regcache, struct thread_info?) into which the LWPs
     registers can be written.  */
  pid = TIDGET (inferior_ptid);
  if (pid == 0)
    pid = PIDGET (inferior_ptid);

  if (regnum == SPARC_G0_REGNUM)
    {
      regcache_raw_supply (regcache, SPARC_G0_REGNUM, NULL);
      return;
    }

  if (regnum == -1 || sparc_gregset_supplies_p (regnum))
    {
      gregset_t regs;

      if (ptrace (PTRACE_GETREGS, pid, (PTRACE_TYPE_ARG3) &regs, 0) == -1)
	perror_with_name (_("Couldn't get registers"));

      sparc_supply_gregset (sparc_gregset, regcache, -1, &regs);
      if (regnum != -1)
	return;
    }

  if (regnum == -1 || sparc_fpregset_supplies_p (regnum))
    {
      fpregset_t fpregs;

      if (ptrace (PTRACE_GETFPREGS, pid, (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
	perror_with_name (_("Couldn't get floating point status"));

      sparc_supply_fpregset (regcache, -1, &fpregs);
    }
}

void
sparc_store_inferior_registers (struct regcache *regcache, int regnum)
{
  int pid;

  /* NOTE: cagney/2002-12-02: See comment in fetch_inferior_registers
     about threaded assumptions.  */
  pid = TIDGET (inferior_ptid);
  if (pid == 0)
    pid = PIDGET (inferior_ptid);

  if (regnum == -1 || sparc_gregset_supplies_p (regnum))
    {
      gregset_t regs;

      if (ptrace (PTRACE_GETREGS, pid, (PTRACE_TYPE_ARG3) &regs, 0) == -1)
	perror_with_name (_("Couldn't get registers"));

      sparc_collect_gregset (sparc_gregset, regcache, regnum, &regs);

      if (ptrace (PTRACE_SETREGS, pid, (PTRACE_TYPE_ARG3) &regs, 0) == -1)
	perror_with_name (_("Couldn't write registers"));

      /* Deal with the stack regs.  */
      if (regnum == -1 || regnum == SPARC_SP_REGNUM
	  || (regnum >= SPARC_L0_REGNUM && regnum <= SPARC_I7_REGNUM))
	{
	  ULONGEST sp;

	  regcache_cooked_read_unsigned (regcache, SPARC_SP_REGNUM, &sp);
	  sparc_collect_rwindow (regcache, sp, regnum);
	}

      if (regnum != -1)
	return;
    }

  if (regnum == -1 || sparc_fpregset_supplies_p (regnum))
    {
      fpregset_t fpregs, saved_fpregs;

      if (ptrace (PTRACE_GETFPREGS, pid, (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
	perror_with_name (_("Couldn't get floating-point registers"));

      memcpy (&saved_fpregs, &fpregs, sizeof (fpregs));
      sparc_collect_fpregset (regcache, regnum, &fpregs);

      /* Writing the floating-point registers will fail on NetBSD with
	 EINVAL if the inferior process doesn't have an FPU state
	 (i.e. if it didn't use the FPU yet).  Therefore we don't try
	 to write the registers if nothing changed.  */
      if (memcmp (&saved_fpregs, &fpregs, sizeof (fpregs)) != 0)
	{
	  if (ptrace (PTRACE_SETFPREGS, pid,
		      (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
	    perror_with_name (_("Couldn't write floating-point registers"));
	}

      if (regnum != -1)
	return;
    }
}

\f
/* Fetch StackGhost Per-Process XOR cookie.  */

LONGEST
sparc_xfer_wcookie (struct target_ops *ops, enum target_object object,
		    const char *annex, gdb_byte *readbuf,
		    const gdb_byte *writebuf, ULONGEST offset, LONGEST len)
{
  unsigned long wcookie = 0;
  char *buf = (char *)&wcookie;

  gdb_assert (object == TARGET_OBJECT_WCOOKIE);
  gdb_assert (readbuf && writebuf == NULL);

  if (offset == sizeof (unsigned long))
    return 0;			/* Signal EOF.  */
  if (offset > sizeof (unsigned long))
    return -1;

#ifdef PT_WCOOKIE
  /* If PT_WCOOKIE is defined (by <sys/ptrace.h>), assume we're
     running on an OpenBSD release that uses StackGhost (3.1 or
     later).  Since release 3.6, OpenBSD uses a fully randomized
     cookie.  */
  {
    int pid;

    pid = TIDGET (inferior_ptid);
    if (pid == 0)
      pid = PIDGET (inferior_ptid);

    /* Sanity check.  The proper type for a cookie is register_t, but
       we can't assume that this type exists on all systems supported
       by the code in this file.  */
    gdb_assert (sizeof (wcookie) == sizeof (register_t));

    /* Fetch the cookie.  */
    if (ptrace (PT_WCOOKIE, pid, (PTRACE_TYPE_ARG3) &wcookie, 0) == -1)
      {
	if (errno != EINVAL)
	  perror_with_name (_("Couldn't get StackGhost cookie"));

	/* Although PT_WCOOKIE is defined on OpenBSD 3.1 and later,
	   the request wasn't implemented until after OpenBSD 3.4.  If
	   the kernel doesn't support the PT_WCOOKIE request, assume
	   we're running on a kernel that uses non-randomized cookies.  */
	wcookie = 0x3;
      }
  }
#endif /* PT_WCOOKIE */

  if (len > sizeof (unsigned long) - offset)
    len = sizeof (unsigned long) - offset;

  memcpy (readbuf, buf + offset, len);
  return len;
}

LONGEST (*inf_ptrace_xfer_partial) (struct target_ops *, enum target_object,
				    const char *, gdb_byte *, const gdb_byte *,
				    ULONGEST, LONGEST);

static LONGEST
sparc_xfer_partial (struct target_ops *ops, enum target_object object,
		    const char *annex, gdb_byte *readbuf,
		    const gdb_byte *writebuf, ULONGEST offset, LONGEST len)
{
  if (object == TARGET_OBJECT_WCOOKIE)
    return sparc_xfer_wcookie (ops, object, annex, readbuf, writebuf, 
			       offset, len);

  return inf_ptrace_xfer_partial (ops, object, annex, readbuf, writebuf,
				  offset, len);
}
\f
/* Create a prototype generic SPARC target.  The client can override
   it with local methods.  */

struct target_ops *
sparc_target (void)
{
  struct target_ops *t;

  t = inf_ptrace_target ();
  t->to_fetch_registers = sparc_fetch_inferior_registers;
  t->to_store_registers = sparc_store_inferior_registers;
  inf_ptrace_xfer_partial = t->to_xfer_partial;
  t->to_xfer_partial = sparc_xfer_partial;
  return t;
}

\f
/* Provide a prototype to silence -Wmissing-prototypes.  */
void _initialize_sparc_nat (void);

void
_initialize_sparc_nat (void)
{
  /* Deafult to using SunOS 4 register sets.  */
  if (sparc_gregset == NULL)
    sparc_gregset = &sparc32_sunos4_gregset;
  if (sparc_supply_gregset == NULL)
    sparc_supply_gregset = sparc32_supply_gregset;
  if (sparc_collect_gregset == NULL)
    sparc_collect_gregset = sparc32_collect_gregset;
  if (sparc_supply_fpregset == NULL)
    sparc_supply_fpregset = sparc32_supply_fpregset;
  if (sparc_collect_fpregset == NULL)
    sparc_collect_fpregset = sparc32_collect_fpregset;
  if (sparc_gregset_supplies_p == NULL)
    sparc_gregset_supplies_p = sparc32_gregset_supplies_p;
  if (sparc_fpregset_supplies_p == NULL)
    sparc_fpregset_supplies_p = sparc32_fpregset_supplies_p;
}
Commit	Line	Data
386c036b	1	/* Native-dependent code for SPARC.
2555fe1a	2
9b254dd1	3	Copyright (C) 2003, 2004, 2005, 2007, 2008 Free Software Foundation, Inc.
c906108c	4
c5aa993b	5	This file is part of GDB.
c906108c	6
c5aa993b JM	7	This program is free software; you can redistribute it and/or modify
c5aa993b JM	8	it under the terms of the GNU General Public License as published by
a9762ec7	9	the Free Software Foundation; either version 3 of the License, or
c5aa993b	10	(at your option) any later version.
c906108c	11
c5aa993b JM	12	This program is distributed in the hope that it will be useful,
	13	but WITHOUT ANY WARRANTY; without even the implied warranty of
	14	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	GNU General Public License for more details.
c906108c	16
c5aa993b	17	You should have received a copy of the GNU General Public License
a9762ec7	18	along with this program. If not, see <http://www.gnu.org/licenses/>. */
c906108c SS	19
	20	#include "defs.h"
	21	#include "inferior.h"
4e052eda	22	#include "regcache.h"
baf92889	23	#include "target.h"
c906108c	24
baf92889	25	#include "gdb_assert.h"
c906108c	26	#include <signal.h>
386c036b	27	#include "gdb_string.h"
c906108c	28	#include <sys/ptrace.h>
2555fe1a	29	#include "gdb_wait.h"
386c036b	30	#ifdef HAVE_MACHINE_REG_H
c906108c SS	31	#include <machine/reg.h>
c906108c SS	32	#endif
c906108c	33
386c036b MK	34	#include "sparc-tdep.h"
386c036b MK	35	#include "sparc-nat.h"
1b9445c2	36	#include "inf-ptrace.h"
386c036b MK	37
	38	/* With some trickery we can use the code in this file for most (if
	39	not all) ptrace(2) based SPARC systems, which includes SunOS 4,
1a111ce3	40	GNU/Linux and the various SPARC BSD's.
386c036b MK	41
	42	First, we need a data structure for use with ptrace(2). SunOS has
	43	`struct regs' and `struct fp_status' in <machine/reg.h>. BSD's
	44	have `struct reg' and `struct fpreg' in <machine/reg.h>. GNU/Linux
	45	has the same structures as SunOS 4, but they're in <asm/reg.h>,
	46	which is a kernel header. As a general rule we avoid including
	47	GNU/Linux kernel headers. Fortunately GNU/Linux has a `gregset_t'
	48	and a `fpregset_t' that are equivalent to `struct regs' and `struct
	49	fp_status' in <sys/ucontext.h>, which is automatically included by
	50	<signal.h>. Settling on using the `gregset_t' and `fpregset_t'
	51	typedefs, providing them for the other systems, therefore solves
	52	the puzzle. */
	53
	54	#ifdef HAVE_MACHINE_REG_H
	55	#ifdef HAVE_STRUCT_REG
	56	typedef struct reg gregset_t;
	57	typedef struct fpreg fpregset_t;
	58	#else
	59	typedef struct regs gregset_t;
	60	typedef struct fp_status fpregset_t;
	61	#endif
	62	#endif
	63
	64	/* Second, we need to remap the BSD ptrace(2) requests to their SunOS
	65	equivalents. GNU/Linux already follows SunOS here. */
c906108c	66
386c036b MK	67	#ifndef PTRACE_GETREGS
	68	#define PTRACE_GETREGS PT_GETREGS
	69	#endif
	70
	71	#ifndef PTRACE_SETREGS
	72	#define PTRACE_SETREGS PT_SETREGS
	73	#endif
c906108c	74
386c036b MK	75	#ifndef PTRACE_GETFPREGS
	76	#define PTRACE_GETFPREGS PT_GETFPREGS
	77	#endif
	78
	79	#ifndef PTRACE_SETFPREGS
	80	#define PTRACE_SETFPREGS PT_SETFPREGS
	81	#endif
	82
	83	/* Register set description. */
	84	const struct sparc_gregset *sparc_gregset;
	85	void (sparc_supply_gregset) (const struct sparc_gregset ,
	86	struct regcache , int , const void );
	87	void (sparc_collect_gregset) (const struct sparc_gregset ,
	88	const struct regcache , int, void );
	89	void (sparc_supply_fpregset) (struct regcache , int , const void *);
	90	void (sparc_collect_fpregset) (const struct regcache , int , void *);
	91	int (*sparc_gregset_supplies_p) (int);
	92	int (*sparc_fpregset_supplies_p) (int);
	93
	94	/* Determine whether `gregset_t' contains register REGNUM. */
	95
	96	int
	97	sparc32_gregset_supplies_p (int regnum)
	98	{
	99	/* Integer registers. */
	100	if ((regnum >= SPARC_G1_REGNUM && regnum <= SPARC_G7_REGNUM)
	101	\|\| (regnum >= SPARC_O0_REGNUM && regnum <= SPARC_O7_REGNUM)
	102	\|\| (regnum >= SPARC_L0_REGNUM && regnum <= SPARC_L7_REGNUM)
	103	\|\| (regnum >= SPARC_I0_REGNUM && regnum <= SPARC_I7_REGNUM))
	104	return 1;
	105
	106	/* Control registers. */
	107	if (regnum == SPARC32_PC_REGNUM
	108	\|\| regnum == SPARC32_NPC_REGNUM
	109	\|\| regnum == SPARC32_PSR_REGNUM
	110	\|\| regnum == SPARC32_Y_REGNUM)
	111	return 1;
	112
	113	return 0;
	114	}
	115
	116	/* Determine whether `fpregset_t' contains register REGNUM. */
	117
	118	int
	119	sparc32_fpregset_supplies_p (int regnum)
	120	{
	121	/* Floating-point registers. */
	122	if (regnum >= SPARC_F0_REGNUM && regnum <= SPARC_F31_REGNUM)
	123	return 1;
	124
	125	/* Control registers. */
	126	if (regnum == SPARC32_FSR_REGNUM)
	127	return 1;
	128
	129	return 0;
	130	}
	131
	132	/* Fetch register REGNUM from the inferior. If REGNUM is -1, do this
	133	for all registers (including the floating-point registers). */
c906108c SS	134
c906108c SS	135	void
6f7a27d5	136	sparc_fetch_inferior_registers (struct regcache *regcache, int regnum)
c906108c	137	{
386c036b	138	int pid;
02ae7771 AC	139
	140	/* NOTE: cagney/2002-12-03: This code assumes that the currently
	141	selected light weight processes' registers can be written
	142	directly into the selected thread's register cache. This works
	143	fine when given an 1:1 LWP:thread model (such as found on
	144	GNU/Linux) but will, likely, have problems when used on an N:1
	145	(userland threads) or N:M (userland multiple LWP) model. In the
	146	case of the latter two, the LWP's registers do not necessarily
	147	belong to the selected thread (the LWP could be in the middle of
	148	executing the thread switch code).
	149
	150	These functions should instead be paramaterized with an explicit
	151	object (struct regcache, struct thread_info?) into which the LWPs
	152	registers can be written. */
386c036b MK	153	pid = TIDGET (inferior_ptid);
	154	if (pid == 0)
	155	pid = PIDGET (inferior_ptid);
02ae7771	156
386c036b	157	if (regnum == SPARC_G0_REGNUM)
c906108c	158	{
386c036b MK	159	regcache_raw_supply (regcache, SPARC_G0_REGNUM, NULL);
386c036b MK	160	return;
c906108c SS	161	}
c906108c SS	162
386c036b	163	if (regnum == -1 \|\| sparc_gregset_supplies_p (regnum))
c906108c	164	{
386c036b	165	gregset_t regs;
c906108c	166
49ec097f	167	if (ptrace (PTRACE_GETREGS, pid, (PTRACE_TYPE_ARG3) &regs, 0) == -1)
e2e0b3e5	168	perror_with_name (_("Couldn't get registers"));
386c036b MK	169
	170	sparc_supply_gregset (sparc_gregset, regcache, -1, &regs);
	171	if (regnum != -1)
	172	return;
c906108c	173	}
386c036b MK	174
386c036b MK	175	if (regnum == -1 \|\| sparc_fpregset_supplies_p (regnum))
c906108c	176	{
386c036b MK	177	fpregset_t fpregs;
386c036b MK	178
49ec097f	179	if (ptrace (PTRACE_GETFPREGS, pid, (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
e2e0b3e5	180	perror_with_name (_("Couldn't get floating point status"));
386c036b MK	181
386c036b MK	182	sparc_supply_fpregset (regcache, -1, &fpregs);
c906108c SS	183	}
	184	}
	185
c906108c	186	void
6f7a27d5	187	sparc_store_inferior_registers (struct regcache *regcache, int regnum)
c906108c	188	{
386c036b	189	int pid;
02ae7771 AC	190
	191	/* NOTE: cagney/2002-12-02: See comment in fetch_inferior_registers
	192	about threaded assumptions. */
386c036b MK	193	pid = TIDGET (inferior_ptid);
	194	if (pid == 0)
	195	pid = PIDGET (inferior_ptid);
c906108c	196
386c036b	197	if (regnum == -1 \|\| sparc_gregset_supplies_p (regnum))
e1925118	198	{
386c036b	199	gregset_t regs;
c906108c	200
49ec097f	201	if (ptrace (PTRACE_GETREGS, pid, (PTRACE_TYPE_ARG3) &regs, 0) == -1)
e2e0b3e5	202	perror_with_name (_("Couldn't get registers"));
c906108c	203
386c036b	204	sparc_collect_gregset (sparc_gregset, regcache, regnum, &regs);
c906108c	205
49ec097f	206	if (ptrace (PTRACE_SETREGS, pid, (PTRACE_TYPE_ARG3) &regs, 0) == -1)
e2e0b3e5	207	perror_with_name (_("Couldn't write registers"));
c5aa993b	208
386c036b MK	209	/* Deal with the stack regs. */
	210	if (regnum == -1 \|\| regnum == SPARC_SP_REGNUM
	211	\|\| (regnum >= SPARC_L0_REGNUM && regnum <= SPARC_I7_REGNUM))
	212	{
	213	ULONGEST sp;
c906108c	214
386c036b MK	215	regcache_cooked_read_unsigned (regcache, SPARC_SP_REGNUM, &sp);
	216	sparc_collect_rwindow (regcache, sp, regnum);
	217	}
c906108c	218
386c036b MK	219	if (regnum != -1)
386c036b MK	220	return;
c906108c	221	}
c906108c	222
386c036b	223	if (regnum == -1 \|\| sparc_fpregset_supplies_p (regnum))
c5aa993b	224	{
386c036b	225	fpregset_t fpregs, saved_fpregs;
c906108c	226
49ec097f	227	if (ptrace (PTRACE_GETFPREGS, pid, (PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
e2e0b3e5	228	perror_with_name (_("Couldn't get floating-point registers"));
c906108c	229
386c036b MK	230	memcpy (&saved_fpregs, &fpregs, sizeof (fpregs));
386c036b MK	231	sparc_collect_fpregset (regcache, regnum, &fpregs);
c906108c	232
386c036b MK	233	/* Writing the floating-point registers will fail on NetBSD with
	234	EINVAL if the inferior process doesn't have an FPU state
	235	(i.e. if it didn't use the FPU yet). Therefore we don't try
	236	to write the registers if nothing changed. */
	237	if (memcmp (&saved_fpregs, &fpregs, sizeof (fpregs)) != 0)
c5aa993b	238	{
386c036b	239	if (ptrace (PTRACE_SETFPREGS, pid,
49ec097f	240	(PTRACE_TYPE_ARG3) &fpregs, 0) == -1)
e2e0b3e5	241	perror_with_name (_("Couldn't write floating-point registers"));
c5aa993b	242	}
c906108c	243
386c036b MK	244	if (regnum != -1)
	245	return;
	246	}
c906108c	247	}
baf92889	248
c906108c	249	\f
baf92889 MK	250	/* Fetch StackGhost Per-Process XOR cookie. */
	251
	252	LONGEST
	253	sparc_xfer_wcookie (struct target_ops *ops, enum target_object object,
961cb7b5 MK	254	const char annex, gdb_byte readbuf,
961cb7b5 MK	255	const gdb_byte *writebuf, ULONGEST offset, LONGEST len)
baf92889 MK	256	{
	257	unsigned long wcookie = 0;
	258	char buf = (char )&wcookie;
	259
	260	gdb_assert (object == TARGET_OBJECT_WCOOKIE);
	261	gdb_assert (readbuf && writebuf == NULL);
	262
2c9771d3 MK	263	if (offset == sizeof (unsigned long))
	264	return 0; /* Signal EOF. */
	265	if (offset > sizeof (unsigned long))
baf92889	266	return -1;
c5aa993b	267
baf92889 MK	268	#ifdef PT_WCOOKIE
	269	/* If PT_WCOOKIE is defined (by <sys/ptrace.h>), assume we're
	270	running on an OpenBSD release that uses StackGhost (3.1 or
2c9771d3 MK	271	later). Since release 3.6, OpenBSD uses a fully randomized
2c9771d3 MK	272	cookie. */
645d6d10 MK	273	{
	274	int pid;
	275
	276	pid = TIDGET (inferior_ptid);
	277	if (pid == 0)
	278	pid = PIDGET (inferior_ptid);
	279
	280	/* Sanity check. The proper type for a cookie is register_t, but
	281	we can't assume that this type exists on all systems supported
	282	by the code in this file. */
	283	gdb_assert (sizeof (wcookie) == sizeof (register_t));
	284
	285	/* Fetch the cookie. */
49ec097f	286	if (ptrace (PT_WCOOKIE, pid, (PTRACE_TYPE_ARG3) &wcookie, 0) == -1)
645d6d10 MK	287	{
645d6d10 MK	288	if (errno != EINVAL)
e2e0b3e5	289	perror_with_name (_("Couldn't get StackGhost cookie"));
645d6d10 MK	290
	291	/* Although PT_WCOOKIE is defined on OpenBSD 3.1 and later,
	292	the request wasn't implemented until after OpenBSD 3.4. If
	293	the kernel doesn't support the PT_WCOOKIE request, assume
	294	we're running on a kernel that uses non-randomized cookies. */
	295	wcookie = 0x3;
	296	}
	297	}
baf92889 MK	298	#endif /* PT_WCOOKIE */
	299
	300	if (len > sizeof (unsigned long) - offset)
	301	len = sizeof (unsigned long) - offset;
	302
	303	memcpy (readbuf, buf + offset, len);
	304	return len;
	305	}
cbfc58d1 MK	306
cbfc58d1 MK	307	LONGEST (inf_ptrace_xfer_partial) (struct target_ops , enum target_object,
961cb7b5	308	const char , gdb_byte , const gdb_byte *,
cbfc58d1 MK	309	ULONGEST, LONGEST);
	310
	311	static LONGEST
	312	sparc_xfer_partial (struct target_ops *ops, enum target_object object,
961cb7b5 MK	313	const char annex, gdb_byte readbuf,
961cb7b5 MK	314	const gdb_byte *writebuf, ULONGEST offset, LONGEST len)
cbfc58d1 MK	315	{
	316	if (object == TARGET_OBJECT_WCOOKIE)
	317	return sparc_xfer_wcookie (ops, object, annex, readbuf, writebuf,
	318	offset, len);
	319
	320	return inf_ptrace_xfer_partial (ops, object, annex, readbuf, writebuf,
	321	offset, len);
	322	}
1b9445c2 MK	323	\f
	324	/* Create a prototype generic SPARC target. The client can override
	325	it with local methods. */
	326
	327	struct target_ops *
	328	sparc_target (void)
	329	{
	330	struct target_ops *t;
	331
	332	t = inf_ptrace_target ();
6f7a27d5 UW	333	t->to_fetch_registers = sparc_fetch_inferior_registers;
6f7a27d5 UW	334	t->to_store_registers = sparc_store_inferior_registers;
cbfc58d1 MK	335	inf_ptrace_xfer_partial = t->to_xfer_partial;
cbfc58d1 MK	336	t->to_xfer_partial = sparc_xfer_partial;
1b9445c2 MK	337	return t;
1b9445c2 MK	338	}
baf92889 MK	339
baf92889 MK	340	\f
386c036b MK	341	/* Provide a prototype to silence -Wmissing-prototypes. */
386c036b MK	342	void _initialize_sparc_nat (void);
c906108c SS	343
c906108c SS	344	void
386c036b	345	_initialize_sparc_nat (void)
c906108c	346	{
386c036b MK	347	/* Deafult to using SunOS 4 register sets. */
	348	if (sparc_gregset == NULL)
	349	sparc_gregset = &sparc32_sunos4_gregset;
	350	if (sparc_supply_gregset == NULL)
	351	sparc_supply_gregset = sparc32_supply_gregset;
	352	if (sparc_collect_gregset == NULL)
	353	sparc_collect_gregset = sparc32_collect_gregset;
	354	if (sparc_supply_fpregset == NULL)
	355	sparc_supply_fpregset = sparc32_supply_fpregset;
	356	if (sparc_collect_fpregset == NULL)
	357	sparc_collect_fpregset = sparc32_collect_fpregset;
	358	if (sparc_gregset_supplies_p == NULL)
	359	sparc_gregset_supplies_p = sparc32_gregset_supplies_p;
	360	if (sparc_fpregset_supplies_p == NULL)
	361	sparc_fpregset_supplies_p = sparc32_fpregset_supplies_p;
c906108c	362	}