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

/* Native-dependent code for SPARC.

   Copyright (C) 2003, 2004, 2005 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 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., 51 Franklin Street, Fifth Floor,
   Boston, MA 02110-1301, USA.  */

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