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

/* Native-dependent code for SPARC.

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