1 /* Intel 386 native support for SYSV systems (pre-SVR4).
2 Copyright (C) 1988, 1989, 1991, 1992, 1994 Free Software Foundation, Inc.
4 This file is part of GDB.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
27 #include <sys/types.h>
30 #include <sys/param.h>
34 #include <sys/ioctl.h>
37 #ifdef TARGET_CAN_USE_HARDWARE_WATCHPOINT
38 #include <sys/debugreg.h>
48 #include "floatformat.h"
53 /* this table must line up with REGISTER_NAMES in tm-i386v.h */
54 /* symbols like 'EAX' come from <sys/reg.h> */
63 /* blockend is the value of u.u_ar0, and points to the
64 * place where GS is stored
68 i386_register_u_addr (blockend
, regnum
)
73 /* this will be needed if fp registers are reinstated */
74 /* for now, you can look at them with 'info float'
75 * sys5 wont let you change them with ptrace anyway
77 if (regnum
>= FP0_REGNUM
&& regnum
<= FP7_REGNUM
)
81 ubase
= blockend
+ 4 * (SS
+ 1) - KSTKSZ
;
82 fpstate
= ubase
+ ((char *)&u
.u_fpstate
- (char *)&u
);
83 return (fpstate
+ 0x1c + 10 * (regnum
- FP0_REGNUM
));
87 return (blockend
+ 4 * regmap
[regnum
]);
91 #ifdef TARGET_CAN_USE_HARDWARE_WATCHPOINT
93 #if !defined (offsetof)
94 #define offsetof(TYPE, MEMBER) ((unsigned long) &((TYPE *)0)->MEMBER)
97 /* Record the value of the debug control register. */
98 static int debug_control_mirror
;
100 /* Record which address associates with which register. */
101 static CORE_ADDR address_lookup
[DR_LASTADDR
- DR_FIRSTADDR
+ 1];
104 i386_insert_nonaligned_watchpoint
PARAMS ((int, CORE_ADDR
, CORE_ADDR
, int,
108 i386_insert_aligned_watchpoint
PARAMS ((pid
, addr
, len
, rw
));
110 /* Insert a watchpoint. */
113 i386_insert_watchpoint (pid
, addr
, len
, rw
)
119 return i386_insert_aligned_watchpoint (pid
, addr
, addr
, len
, rw
);
123 i386_insert_aligned_watchpoint (pid
, waddr
, addr
, len
, rw
)
131 int read_write_bits
, len_bits
;
132 int free_debug_register
;
135 /* Look for a free debug register. */
136 for (i
= DR_FIRSTADDR
; i
<= DR_LASTADDR
; i
++)
138 if (address_lookup
[i
- DR_FIRSTADDR
] == 0)
142 /* No more debug registers! */
146 read_write_bits
= ((rw
& 1) ? DR_RW_READ
: 0) | ((rw
& 2) ? DR_RW_WRITE
: 0);
153 return i386_insert_nonaligned_watchpoint (pid
, waddr
, addr
, len
, rw
);
160 return i386_insert_nonaligned_watchpoint (pid
, waddr
, addr
, len
, rw
);
164 return i386_insert_nonaligned_watchpoint (pid
, waddr
, addr
, len
, rw
);
166 free_debug_register
= i
;
167 register_number
= free_debug_register
- DR_FIRSTADDR
;
168 debug_control_mirror
|=
169 ((read_write_bits
| len_bits
)
170 << (DR_CONTROL_SHIFT
+ DR_CONTROL_SIZE
* register_number
));
171 debug_control_mirror
|=
172 (1 << (DR_LOCAL_ENABLE_SHIFT
+ DR_ENABLE_SIZE
* register_number
));
173 debug_control_mirror
|= DR_LOCAL_SLOWDOWN
;
174 debug_control_mirror
&= ~DR_CONTROL_RESERVED
;
176 ptrace (6, pid
, offsetof (struct user
, u_debugreg
[DR_CONTROL
]),
177 debug_control_mirror
);
178 ptrace (6, pid
, offsetof (struct user
, u_debugreg
[free_debug_register
]),
181 /* Record where we came from. */
182 address_lookup
[register_number
] = addr
;
187 i386_insert_nonaligned_watchpoint (pid
, waddr
, addr
, len
, rw
)
198 static int size_try_array
[16] = {
199 1, 1, 1, 1, /* trying size one */
200 2, 1, 2, 1, /* trying size two */
201 2, 1, 2, 1, /* trying size three */
202 4, 1, 2, 1 /* trying size four */
209 /* Four is the maximum length for 386. */
210 size
= (len
> 4) ? 3 : len
- 1;
211 size
= size_try_array
[size
* 4 + align
];
213 rv
= i386_insert_watchpoint (pid
, waddr
, addr
, size
, rw
);
216 i386_remove_watchpoint (pid
, waddr
, size
);
225 /* Remove a watchpoint. */
228 i386_remove_watchpoint (pid
, addr
, len
)
236 for (i
= DR_FIRSTADDR
; i
<= DR_LASTADDR
; i
++)
238 register_number
= i
- DR_FIRSTADDR
;
239 if (address_lookup
[register_number
] == addr
)
241 debug_control_mirror
&=
242 ~(1 << (DR_LOCAL_ENABLE_SHIFT
+ DR_ENABLE_SIZE
* register_number
));
243 address_lookup
[register_number
] = 0;
246 ptrace (6, pid
, offsetof (struct user
, u_debugreg
[DR_CONTROL
]),
247 debug_control_mirror
);
248 ptrace (6, pid
, offsetof (struct user
, u_debugreg
[DR_STATUS
]), 0);
253 /* Check if stopped by a watchpoint. */
256 i386_stopped_by_watchpoint (pid
)
262 status
= ptrace (3, pid
, offsetof (struct user
, u_debugreg
[DR_STATUS
]), 0);
263 ptrace (6, pid
, offsetof (struct user
, u_debugreg
[DR_STATUS
]), 0);
265 for (i
= DR_FIRSTADDR
; i
<= DR_LASTADDR
; i
++)
267 if (status
& (1 << (i
- DR_FIRSTADDR
)))
268 return address_lookup
[i
- DR_FIRSTADDR
];
274 #endif /* TARGET_CAN_USE_HARDWARE_WATCHPOINT */
277 /* using FLOAT_INFO as is would be a problem. FLOAT_INFO is called
278 via a command xxx and eventually calls ptrace without ever having
279 traversed the target vector. This would be terribly impolite
280 behaviour for a sun4 hosted remote gdb.
282 A fix might be to move this code into the "info registers" command.
283 rich@cygnus.com 15 Sept 92. */
286 struct user u
; /* just for address computations */
288 /* fpstate defined in <sys/user.h> */
289 struct fpstate
*fpstatep
;
290 char buf
[sizeof (struct fpstate
) + 2 * sizeof (int)];
293 unsigned int rounded_addr
;
294 unsigned int rounded_size
;
298 uaddr
= (char *)&u
.u_fpvalid
- (char *)&u
;
299 if (target_has_execution
)
304 rounded_addr
= uaddr
& -sizeof (int);
305 data
= ptrace (3, inferior_pid
, (PTRACE_ARG3_TYPE
) rounded_addr
, 0);
306 mask
= 0xff << ((uaddr
- rounded_addr
) * 8);
308 fpvalid
= ((data
& mask
) != 0);
313 if (lseek (corechan
, uaddr
, 0) < 0)
314 perror ("seek on core file");
315 if (myread (corechan
, &fpvalid
, 1) < 0)
316 perror ("read on core file");
319 #endif /* no core support yet */
323 printf_unfiltered ("no floating point status saved\n");
327 uaddr
= (char *)&U_FPSTATE(u
) - (char *)&u
;
328 if (target_has_execution
)
332 rounded_addr
= uaddr
& -sizeof (int);
333 rounded_size
= (((uaddr
+ sizeof (struct fpstate
)) - uaddr
) +
334 sizeof (int) - 1) / sizeof (int);
335 skip
= uaddr
- rounded_addr
;
338 for (i
= 0; i
< rounded_size
; i
++)
340 *ip
++ = ptrace (3, inferior_pid
, (PTRACE_ARG3_TYPE
) rounded_addr
, 0);
341 rounded_addr
+= sizeof (int);
347 if (lseek (corechan
, uaddr
, 0) < 0)
348 perror_with_name ("seek on core file");
349 if (myread (corechan
, buf
, sizeof (struct fpstate
)) < 0)
350 perror_with_name ("read from core file");
355 fpstatep
= (struct fpstate
*)(buf
+ skip
);
356 print_387_status (fpstatep
->status
, (struct env387
*)fpstatep
->state
);