1/* Native-dependent code for HP PA-RISC BSD's.
2
3   Copyright 2004 Free Software Foundation, Inc.
4
5   This file is part of GDB.
6
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.
11
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.
16
17   You should have received a copy of the GNU General Public License
18   along with this program; if not, write to the Free Software
19   Foundation, Inc., 59 Temple Place - Suite 330,
20   Boston, MA 02111-1307, USA.  */
21
22#include "defs.h"
23#include "inferior.h"
24#include "regcache.h"
25
26#include <sys/types.h>
27#include <sys/ptrace.h>
28#include <machine/reg.h>
29
30#include "hppa-tdep.h"
31
32static int
33hppabsd_gregset_supplies_p (int regnum)
34{
35  return (regnum >= HPPA_R0_REGNUM && regnum <= HPPA_PCOQ_TAIL_REGNUM);
36}
37
38/* Supply the general-purpose registers stored in GREGS to REGCACHE.  */
39
40static void
41hppabsd_supply_gregset (struct regcache *regcache, const void *gregs)
42{
43  const char *regs = gregs;
44  int regnum;
45
46  for (regnum = HPPA_R1_REGNUM; regnum <= HPPA_R31_REGNUM; regnum++)
47    regcache_raw_supply (regcache, regnum, regs + regnum * 4);
48
49  regcache_raw_supply (regcache, HPPA_SAR_REGNUM, regs);
50  regcache_raw_supply (regcache, HPPA_PCOQ_HEAD_REGNUM, regs + 32 * 4);
51  regcache_raw_supply (regcache, HPPA_PCOQ_TAIL_REGNUM, regs + 33 * 4);
52}
53
54/* Collect the general-purpose registers from REGCACHE and store them
55   in GREGS.  */
56
57static void
58hppabsd_collect_gregset (const struct regcache *regcache,
59			  void *gregs, int regnum)
60{
61  char *regs = gregs;
62  int i;
63
64  for (i = HPPA_R1_REGNUM; i <= HPPA_R31_REGNUM; i++)
65    {
66      if (regnum == -1 || regnum == i)
67	regcache_raw_collect (regcache, i, regs + i * 4);
68    }
69
70  if (regnum == -1 || regnum == HPPA_SAR_REGNUM)
71    regcache_raw_collect (regcache, HPPA_SAR_REGNUM, regs);
72  if (regnum == -1 || regnum == HPPA_PCOQ_HEAD_REGNUM)
73    regcache_raw_collect (regcache, HPPA_PCOQ_HEAD_REGNUM, regs + 32 * 4);
74  if (regnum == -1 || regnum == HPPA_PCOQ_TAIL_REGNUM)
75    regcache_raw_collect (regcache, HPPA_PCOQ_TAIL_REGNUM, regs + 33 * 4);
76}
77
78
79/* Fetch register REGNUM from the inferior.  If REGNUM is -1, do this
80   for all registers (including the floating-point registers).  */
81
82void
83fetch_inferior_registers (int regnum)
84{
85  struct regcache *regcache = current_regcache;
86
87  if (regnum == -1 || hppabsd_gregset_supplies_p (regnum))
88    {
89      struct reg regs;
90
91      if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
92		  (PTRACE_TYPE_ARG3) &regs, 0) == -1)
93	perror_with_name ("Couldn't get registers");
94
95      hppabsd_supply_gregset (regcache, &regs);
96    }
97}
98
99/* Store register REGNUM back into the inferior.  If REGNUM is -1, do
100   this for all registers (including the floating-point registers).  */
101
102void
103store_inferior_registers (int regnum)
104{
105  if (regnum == -1 || hppabsd_gregset_supplies_p (regnum))
106    {
107      struct reg regs;
108
109      if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
110                  (PTRACE_TYPE_ARG3) &regs, 0) == -1)
111        perror_with_name ("Couldn't get registers");
112
113      hppabsd_collect_gregset (current_regcache, &regs, regnum);
114
115      if (ptrace (PT_SETREGS, PIDGET (inferior_ptid),
116	          (PTRACE_TYPE_ARG3) &regs, 0) == -1)
117        perror_with_name ("Couldn't write registers");
118    }
119}
120