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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
27 #include <sys/types.h>
30 #include <sys/param.h>
34 #include <sys/ioctl.h>
37 #ifdef TARGET_HAS_HARDWARE_WATCHPOINTS
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
)
77 /* FIXME: Should have better way to test floating point range */
78 if (regnum
>= FP0_REGNUM
&& regnum
<= (FP0_REGNUM
+ 7))
80 #ifdef KSTKSZ /* SCO, and others? */
81 ubase
+= 4 * (SS
+ 1) - KSTKSZ
;
82 fpstate
= ubase
+ ((char *)&u
.u_fps
.u_fpstate
- (char *)&u
);
83 return (fpstate
+ 0x1c + 10 * (regnum
- FP0_REGNUM
));
85 fpstate
= ubase
+ ((char *)&u
.i387
.st_space
- (char *)&u
);
86 return (fpstate
+ 10 * (regnum
- FP0_REGNUM
));
91 return (ubase
+ 4 * regmap
[regnum
]);
96 #ifdef TARGET_HAS_HARDWARE_WATCHPOINTS
98 #if !defined (offsetof)
99 #define offsetof(TYPE, MEMBER) ((unsigned long) &((TYPE *)0)->MEMBER)
102 /* Record the value of the debug control register. */
103 static int debug_control_mirror
;
105 /* Record which address associates with which register. */
106 static CORE_ADDR address_lookup
[DR_LASTADDR
- DR_FIRSTADDR
+ 1];
109 i386_insert_aligned_watchpoint
PARAMS ((int, CORE_ADDR
, CORE_ADDR
, int,
113 i386_insert_nonaligned_watchpoint
PARAMS ((int, CORE_ADDR
, CORE_ADDR
, int,
116 /* Insert a watchpoint. */
119 i386_insert_watchpoint (pid
, addr
, len
, rw
)
125 return i386_insert_aligned_watchpoint (pid
, addr
, addr
, len
, rw
);
129 i386_insert_aligned_watchpoint (pid
, waddr
, addr
, len
, rw
)
137 int read_write_bits
, len_bits
;
138 int free_debug_register
;
141 /* Look for a free debug register. */
142 for (i
= DR_FIRSTADDR
; i
<= DR_LASTADDR
; i
++)
144 if (address_lookup
[i
- DR_FIRSTADDR
] == 0)
148 /* No more debug registers! */
152 read_write_bits
= ((rw
& 1) ? DR_RW_READ
: 0) | ((rw
& 2) ? DR_RW_WRITE
: 0);
159 return i386_insert_nonaligned_watchpoint (pid
, waddr
, addr
, len
, rw
);
166 return i386_insert_nonaligned_watchpoint (pid
, waddr
, addr
, len
, rw
);
170 return i386_insert_nonaligned_watchpoint (pid
, waddr
, addr
, len
, rw
);
172 free_debug_register
= i
;
173 register_number
= free_debug_register
- DR_FIRSTADDR
;
174 debug_control_mirror
|=
175 ((read_write_bits
| len_bits
)
176 << (DR_CONTROL_SHIFT
+ DR_CONTROL_SIZE
* register_number
));
177 debug_control_mirror
|=
178 (1 << (DR_LOCAL_ENABLE_SHIFT
+ DR_ENABLE_SIZE
* register_number
));
179 debug_control_mirror
|= DR_LOCAL_SLOWDOWN
;
180 debug_control_mirror
&= ~DR_CONTROL_RESERVED
;
182 ptrace (6, pid
, offsetof (struct user
, u_debugreg
[DR_CONTROL
]),
183 debug_control_mirror
);
184 ptrace (6, pid
, offsetof (struct user
, u_debugreg
[free_debug_register
]),
187 /* Record where we came from. */
188 address_lookup
[register_number
] = addr
;
193 i386_insert_nonaligned_watchpoint (pid
, waddr
, addr
, len
, rw
)
204 static int size_try_array
[16] = {
205 1, 1, 1, 1, /* trying size one */
206 2, 1, 2, 1, /* trying size two */
207 2, 1, 2, 1, /* trying size three */
208 4, 1, 2, 1 /* trying size four */
215 /* Four is the maximum length for 386. */
216 size
= (len
> 4) ? 3 : len
- 1;
217 size
= size_try_array
[size
* 4 + align
];
219 rv
= i386_insert_aligned_watchpoint (pid
, waddr
, addr
, size
, rw
);
222 i386_remove_watchpoint (pid
, waddr
, size
);
231 /* Remove a watchpoint. */
234 i386_remove_watchpoint (pid
, addr
, len
)
242 for (i
= DR_FIRSTADDR
; i
<= DR_LASTADDR
; i
++)
244 register_number
= i
- DR_FIRSTADDR
;
245 if (address_lookup
[register_number
] == addr
)
247 debug_control_mirror
&=
248 ~(1 << (DR_LOCAL_ENABLE_SHIFT
+ DR_ENABLE_SIZE
* register_number
));
249 address_lookup
[register_number
] = 0;
252 ptrace (6, pid
, offsetof (struct user
, u_debugreg
[DR_CONTROL
]),
253 debug_control_mirror
);
254 ptrace (6, pid
, offsetof (struct user
, u_debugreg
[DR_STATUS
]), 0);
259 /* Check if stopped by a watchpoint. */
262 i386_stopped_by_watchpoint (pid
)
268 status
= ptrace (3, pid
, offsetof (struct user
, u_debugreg
[DR_STATUS
]), 0);
269 ptrace (6, pid
, offsetof (struct user
, u_debugreg
[DR_STATUS
]), 0);
271 for (i
= DR_FIRSTADDR
; i
<= DR_LASTADDR
; i
++)
273 if (status
& (1 << (i
- DR_FIRSTADDR
)))
274 return address_lookup
[i
- DR_FIRSTADDR
];
280 #endif /* TARGET_HAS_HARDWARE_WATCHPOINTS */
283 /* using FLOAT_INFO as is would be a problem. FLOAT_INFO is called
284 via a command xxx and eventually calls ptrace without ever having
285 traversed the target vector. This would be terribly impolite
286 behaviour for a sun4 hosted remote gdb.
288 A fix might be to move this code into the "info registers" command.
289 rich@cygnus.com 15 Sept 92. */
292 struct user u
; /* just for address computations */
294 /* fpstate defined in <sys/user.h> */
295 struct fpstate
*fpstatep
;
296 char buf
[sizeof (struct fpstate
) + 2 * sizeof (int)];
299 unsigned int rounded_addr
;
300 unsigned int rounded_size
;
304 uaddr
= (char *)&u
.u_fpvalid
- (char *)&u
;
305 if (target_has_execution
)
310 rounded_addr
= uaddr
& -sizeof (int);
311 data
= ptrace (3, inferior_pid
, (PTRACE_ARG3_TYPE
) rounded_addr
, 0);
312 mask
= 0xff << ((uaddr
- rounded_addr
) * 8);
314 fpvalid
= ((data
& mask
) != 0);
319 if (lseek (corechan
, uaddr
, 0) < 0)
320 perror ("seek on core file");
321 if (myread (corechan
, &fpvalid
, 1) < 0)
322 perror ("read on core file");
325 #endif /* no core support yet */
329 printf_unfiltered ("no floating point status saved\n");
333 uaddr
= (char *)&U_FPSTATE(u
) - (char *)&u
;
334 if (target_has_execution
)
338 rounded_addr
= uaddr
& -sizeof (int);
339 rounded_size
= (((uaddr
+ sizeof (struct fpstate
)) - uaddr
) +
340 sizeof (int) - 1) / sizeof (int);
341 skip
= uaddr
- rounded_addr
;
344 for (i
= 0; i
< rounded_size
; i
++)
346 *ip
++ = ptrace (3, inferior_pid
, (PTRACE_ARG3_TYPE
) rounded_addr
, 0);
347 rounded_addr
+= sizeof (int);
353 if (lseek (corechan
, uaddr
, 0) < 0)
354 perror_with_name ("seek on core file");
355 if (myread (corechan
, buf
, sizeof (struct fpstate
)) < 0)
356 perror_with_name ("read from core file");
361 fpstatep
= (struct fpstate
*)(buf
+ skip
);
362 print_387_status (fpstatep
->status
, (struct env387
*)fpstatep
->state
);