Commit | Line | Data |
---|---|---|
c906108c SS |
1 | /* Machine-dependent hooks for the unix child process stratum. This |
2 | code is for the HP PA-RISC cpu. | |
3 | ||
b6ba6518 KB |
4 | Copyright 1986, 1987, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1998, |
5 | 1999, 2000, 2001 Free Software Foundation, Inc. | |
c906108c SS |
6 | |
7 | Contributed by the Center for Software Science at the | |
8 | University of Utah (pa-gdb-bugs@cs.utah.edu). | |
9 | ||
c5aa993b | 10 | This file is part of GDB. |
c906108c | 11 | |
c5aa993b JM |
12 | This program is free software; you can redistribute it and/or modify |
13 | it under the terms of the GNU General Public License as published by | |
14 | the Free Software Foundation; either version 2 of the License, or | |
15 | (at your option) any later version. | |
c906108c | 16 | |
c5aa993b JM |
17 | This program is distributed in the hope that it will be useful, |
18 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 | GNU General Public License for more details. | |
c906108c | 21 | |
c5aa993b JM |
22 | You should have received a copy of the GNU General Public License |
23 | along with this program; if not, write to the Free Software | |
24 | Foundation, Inc., 59 Temple Place - Suite 330, | |
25 | Boston, MA 02111-1307, USA. */ | |
c906108c SS |
26 | |
27 | #include "defs.h" | |
28 | #include "inferior.h" | |
29 | #include "target.h" | |
4e052eda | 30 | #include "regcache.h" |
c906108c SS |
31 | #include <sys/ptrace.h> |
32 | ||
33 | /* Use an extra level of indirection for ptrace calls. | |
34 | This lets us breakpoint usefully on call_ptrace. It also | |
35 | allows us to pass an extra argument to ptrace without | |
36 | using an ANSI-C specific macro. */ | |
37 | ||
38 | #define ptrace call_ptrace | |
39 | ||
40 | #if !defined (offsetof) | |
41 | #define offsetof(TYPE, MEMBER) ((unsigned long) &((TYPE *)0)->MEMBER) | |
42 | #endif | |
43 | ||
44 | /* U_REGS_OFFSET is the offset of the registers within the u area. */ | |
45 | #if !defined (U_REGS_OFFSET) | |
46 | #define U_REGS_OFFSET \ | |
39f77062 | 47 | ptrace (PT_READ_U, PIDGET (inferior_ptid), \ |
c906108c SS |
48 | (PTRACE_ARG3_TYPE) (offsetof (struct user, u_ar0)), 0) \ |
49 | - KERNEL_U_ADDR | |
50 | #endif | |
51 | ||
52 | /* Fetch one register. */ | |
53 | ||
54 | static void | |
fba45db2 | 55 | fetch_register (int regno) |
c906108c SS |
56 | { |
57 | register unsigned int regaddr; | |
58 | char buf[MAX_REGISTER_RAW_SIZE]; | |
59 | register int i; | |
60 | ||
61 | /* Offset of registers within the u area. */ | |
62 | unsigned int offset; | |
63 | ||
64 | offset = U_REGS_OFFSET; | |
65 | ||
66 | regaddr = register_addr (regno, offset); | |
67 | for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int)) | |
68 | { | |
69 | errno = 0; | |
39f77062 | 70 | *(int *) &buf[i] = ptrace (PT_RUREGS, PIDGET (inferior_ptid), |
c906108c SS |
71 | (PTRACE_ARG3_TYPE) regaddr, 0); |
72 | regaddr += sizeof (int); | |
73 | if (errno != 0) | |
74 | { | |
75 | /* Warning, not error, in case we are attached; sometimes the | |
76 | kernel doesn't let us at the registers. */ | |
77 | char *err = safe_strerror (errno); | |
78 | char *msg = alloca (strlen (err) + 128); | |
79 | sprintf (msg, "reading register %s: %s", REGISTER_NAME (regno), err); | |
80 | warning (msg); | |
81 | goto error_exit; | |
82 | } | |
83 | } | |
84 | supply_register (regno, buf); | |
c5aa993b | 85 | error_exit:; |
c906108c SS |
86 | } |
87 | ||
88 | /* Fetch all registers, or just one, from the child process. */ | |
89 | ||
90 | void | |
fba45db2 | 91 | fetch_inferior_registers (int regno) |
c906108c SS |
92 | { |
93 | if (regno == -1) | |
94 | for (regno = 0; regno < NUM_REGS; regno++) | |
95 | fetch_register (regno); | |
96 | else | |
97 | fetch_register (regno); | |
98 | } | |
99 | ||
100 | /* Store our register values back into the inferior. | |
101 | If REGNO is -1, do this for all registers. | |
102 | Otherwise, REGNO specifies which register (so we can save time). */ | |
103 | ||
104 | void | |
fba45db2 | 105 | store_inferior_registers (int regno) |
c906108c SS |
106 | { |
107 | register unsigned int regaddr; | |
108 | char buf[80]; | |
c906108c SS |
109 | register int i; |
110 | unsigned int offset = U_REGS_OFFSET; | |
111 | int scratch; | |
112 | ||
113 | if (regno >= 0) | |
114 | { | |
115 | if (CANNOT_STORE_REGISTER (regno)) | |
116 | return; | |
117 | regaddr = register_addr (regno, offset); | |
118 | errno = 0; | |
119 | if (regno == PCOQ_HEAD_REGNUM || regno == PCOQ_TAIL_REGNUM) | |
c5aa993b JM |
120 | { |
121 | scratch = *(int *) ®isters[REGISTER_BYTE (regno)] | 0x3; | |
39f77062 | 122 | ptrace (PT_WUREGS, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) regaddr, |
c5aa993b JM |
123 | scratch); |
124 | if (errno != 0) | |
125 | { | |
c906108c | 126 | /* Error, even if attached. Failing to write these two |
c5aa993b JM |
127 | registers is pretty serious. */ |
128 | sprintf (buf, "writing register number %d", regno); | |
129 | perror_with_name (buf); | |
130 | } | |
131 | } | |
c906108c | 132 | else |
c5aa993b | 133 | for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int)) |
c906108c SS |
134 | { |
135 | errno = 0; | |
39f77062 KB |
136 | ptrace (PT_WUREGS, PIDGET (inferior_ptid), |
137 | (PTRACE_ARG3_TYPE) regaddr, | |
c906108c SS |
138 | *(int *) ®isters[REGISTER_BYTE (regno) + i]); |
139 | if (errno != 0) | |
140 | { | |
141 | /* Warning, not error, in case we are attached; sometimes the | |
142 | kernel doesn't let us at the registers. */ | |
143 | char *err = safe_strerror (errno); | |
144 | char *msg = alloca (strlen (err) + 128); | |
145 | sprintf (msg, "writing register %s: %s", | |
146 | REGISTER_NAME (regno), err); | |
147 | warning (msg); | |
148 | return; | |
149 | } | |
c5aa993b | 150 | regaddr += sizeof (int); |
c906108c SS |
151 | } |
152 | } | |
153 | else | |
154 | for (regno = 0; regno < NUM_REGS; regno++) | |
155 | store_inferior_registers (regno); | |
156 | } | |
157 | ||
158 | /* PT_PROT is specific to the PA BSD kernel and isn't documented | |
159 | anywhere (except here). | |
160 | ||
161 | PT_PROT allows one to enable/disable the data memory break bit | |
162 | for pages of memory in an inferior process. This bit is used | |
163 | to cause "Data memory break traps" to occur when the appropriate | |
164 | page is written to. | |
165 | ||
166 | The arguments are as follows: | |
167 | ||
c5aa993b JM |
168 | PT_PROT -- The ptrace action to perform. |
169 | ||
170 | INFERIOR_PID -- The pid of the process who's page table entries | |
171 | will be modified. | |
c906108c | 172 | |
c5aa993b JM |
173 | PT_ARGS -- The *address* of a 3 word block of memory which has |
174 | additional information: | |
c906108c | 175 | |
c5aa993b JM |
176 | word 0 -- The start address to watch. This should be a page-aligned |
177 | address. | |
c906108c | 178 | |
c5aa993b JM |
179 | word 1 -- The ending address to watch. Again, this should be a |
180 | page aligned address. | |
c906108c | 181 | |
c5aa993b JM |
182 | word 2 -- Nonzero to enable the data memory break bit on the |
183 | given address range or zero to disable the data memory break | |
184 | bit on the given address range. | |
c906108c | 185 | |
c5aa993b JM |
186 | This call may fail if the given addresses are not valid in the inferior |
187 | process. This most often happens when restarting a program which | |
7e73cedf | 188 | has watchpoints inserted on heap or stack memory. */ |
c906108c | 189 | |
c906108c SS |
190 | #define PT_PROT 21 |
191 | ||
192 | int | |
fba45db2 | 193 | hppa_set_watchpoint (int addr, int len, int flag) |
c906108c SS |
194 | { |
195 | int pt_args[3]; | |
196 | pt_args[0] = addr; | |
197 | pt_args[1] = addr + len; | |
198 | pt_args[2] = flag; | |
199 | ||
200 | /* Mask off the lower 12 bits since we want to work on a page basis. */ | |
c5aa993b JM |
201 | pt_args[0] >>= 12; |
202 | pt_args[1] >>= 12; | |
c906108c SS |
203 | |
204 | /* Rounding adjustments. */ | |
c5aa993b JM |
205 | pt_args[1] -= pt_args[0]; |
206 | pt_args[1]++; | |
c906108c SS |
207 | |
208 | /* Put the lower 12 bits back as zero. */ | |
c5aa993b JM |
209 | pt_args[0] <<= 12; |
210 | pt_args[1] <<= 12; | |
c906108c SS |
211 | |
212 | /* Do it. */ | |
39f77062 | 213 | return ptrace (PT_PROT, PIDGET (inferior_ptid), (PTRACE_ARG3_TYPE) pt_args, 0); |
c906108c | 214 | } |