1/* Native-dependent code for modern VAX 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#include "target.h"
26
27#include <sys/types.h>
28#include <sys/ptrace.h>
29#include <machine/reg.h>
30
31#include "vax-tdep.h"
32#include "inf-ptrace.h"
33
34/* Supply the general-purpose registers stored in GREGS to REGCACHE.  */
35
36static void
37vaxbsd_supply_gregset (struct regcache *regcache, const void *gregs)
38{
39  const char *regs = gregs;
40  int regnum;
41
42  for (regnum = 0; regnum < VAX_NUM_REGS; regnum++)
43    regcache_raw_supply (regcache, regnum, regs + regnum * 4);
44}
45
46/* Collect the general-purpose registers from REGCACHE and store them
47   in GREGS.  */
48
49static void
50vaxbsd_collect_gregset (const struct regcache *regcache,
51			void *gregs, int regnum)
52{
53  char *regs = gregs;
54  int i;
55
56  for (i = 0; i <= VAX_NUM_REGS; i++)
57    {
58      if (regnum == -1 || regnum == i)
59	regcache_raw_collect (regcache, i, regs + i * 4);
60    }
61}
62
63
64/* Fetch register REGNUM from the inferior.  If REGNUM is -1, do this
65   for all registers.  */
66
67static void
68vaxbsd_fetch_inferior_registers (int regnum)
69{
70  struct reg regs;
71
72  if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
73	      (PTRACE_TYPE_ARG3) &regs, 0) == -1)
74    perror_with_name ("Couldn't get registers");
75
76  vaxbsd_supply_gregset (current_regcache, &regs);
77}
78
79/* Store register REGNUM back into the inferior.  If REGNUM is -1, do
80   this for all registers.  */
81
82static void
83vaxbsd_store_inferior_registers (int regnum)
84{
85  struct reg regs;
86
87  if (ptrace (PT_GETREGS, PIDGET (inferior_ptid),
88	      (PTRACE_TYPE_ARG3) &regs, 0) == -1)
89    perror_with_name ("Couldn't get registers");
90
91  vaxbsd_collect_gregset (current_regcache, &regs, regnum);
92
93  if (ptrace (PT_SETREGS, PIDGET (inferior_ptid),
94	      (PTRACE_TYPE_ARG3) &regs, 0) == -1)
95    perror_with_name ("Couldn't write registers");
96}
97
98
99/* Support for debugging kernel virtual memory images.  */
100
101#include <sys/types.h>
102#include <machine/pcb.h>
103
104#include "bsd-kvm.h"
105
106static int
107vaxbsd_supply_pcb (struct regcache *regcache, struct pcb *pcb)
108{
109  int regnum;
110
111  /* The following is true for OpenBSD 3.5:
112
113     The pcb contains the register state at the context switch inside
114     cpu_switch().  */
115
116  /* The stack pointer shouldn't be zero.  */
117  if (pcb->KSP == 0)
118    return 0;
119
120  for (regnum = VAX_R0_REGNUM; regnum < VAX_AP_REGNUM; regnum++)
121    regcache_raw_supply (regcache, regnum, &pcb->R[regnum - VAX_R0_REGNUM]);
122  regcache_raw_supply (regcache, VAX_AP_REGNUM, &pcb->AP);
123  regcache_raw_supply (regcache, VAX_FP_REGNUM, &pcb->FP);
124  regcache_raw_supply (regcache, VAX_SP_REGNUM, &pcb->KSP);
125  regcache_raw_supply (regcache, VAX_PC_REGNUM, &pcb->PC);
126  regcache_raw_supply (regcache, VAX_PS_REGNUM, &pcb->PSL);
127
128  return 1;
129}
130
131
132/* Provide a prototype to silence -Wmissing-prototypes.  */
133void _initialize_vaxbsd_nat (void);
134
135void
136_initialize_vaxbsd_nat (void)
137{
138  struct target_ops *t;
139
140  t = inf_ptrace_target ();
141  t->to_fetch_registers = vaxbsd_fetch_inferior_registers;
142  t->to_store_registers = vaxbsd_store_inferior_registers;
143  add_target (t);
144
145  /* Support debugging kernel virtual memory images.  */
146  bsd_kvm_add_target (vaxbsd_supply_pcb);
147}
148