1 /* GNU/Linux on ARM native support.
2 Copyright (C) 1999-2019 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 3 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, see <http://www.gnu.org/licenses/>. */
24 #include "linux-nat.h"
25 #include "target-descriptions.h"
27 #include "observable.h"
28 #include "gdbthread.h"
31 #include "arm-linux-tdep.h"
32 #include "aarch32-linux-nat.h"
34 #include <elf/common.h>
36 #include "nat/gdb_ptrace.h"
37 #include <sys/utsname.h>
38 #include <sys/procfs.h>
40 #include "nat/linux-ptrace.h"
41 #include "linux-tdep.h"
43 /* Prototypes for supply_gregset etc. */
46 /* Defines ps_err_e, struct ps_prochandle. */
47 #include "gdb_proc_service.h"
49 #ifndef PTRACE_GET_THREAD_AREA
50 #define PTRACE_GET_THREAD_AREA 22
53 #ifndef PTRACE_GETWMMXREGS
54 #define PTRACE_GETWMMXREGS 18
55 #define PTRACE_SETWMMXREGS 19
58 #ifndef PTRACE_GETVFPREGS
59 #define PTRACE_GETVFPREGS 27
60 #define PTRACE_SETVFPREGS 28
63 #ifndef PTRACE_GETHBPREGS
64 #define PTRACE_GETHBPREGS 29
65 #define PTRACE_SETHBPREGS 30
68 extern int arm_apcs_32;
70 class arm_linux_nat_target final : public linux_nat_target
73 /* Add our register access methods. */
74 void fetch_registers (struct regcache *, int) override;
75 void store_registers (struct regcache *, int) override;
77 /* Add our hardware breakpoint and watchpoint implementation. */
78 int can_use_hw_breakpoint (enum bptype, int, int) override;
80 int insert_hw_breakpoint (struct gdbarch *, struct bp_target_info *) override;
82 int remove_hw_breakpoint (struct gdbarch *, struct bp_target_info *) override;
84 int region_ok_for_hw_watchpoint (CORE_ADDR, int) override;
86 int insert_watchpoint (CORE_ADDR, int, enum target_hw_bp_type,
87 struct expression *) override;
89 int remove_watchpoint (CORE_ADDR, int, enum target_hw_bp_type,
90 struct expression *) override;
91 bool stopped_by_watchpoint () override;
93 bool stopped_data_address (CORE_ADDR *) override;
95 bool watchpoint_addr_within_range (CORE_ADDR, CORE_ADDR, int) override;
97 const struct target_desc *read_description () override;
99 /* Override linux_nat_target low methods. */
101 /* Handle thread creation and exit. */
102 void low_new_thread (struct lwp_info *lp) override;
103 void low_delete_thread (struct arch_lwp_info *lp) override;
104 void low_prepare_to_resume (struct lwp_info *lp) override;
106 /* Handle process creation and exit. */
107 void low_new_fork (struct lwp_info *parent, pid_t child_pid) override;
108 void low_forget_process (pid_t pid) override;
111 static arm_linux_nat_target the_arm_linux_nat_target;
113 /* Get the whole floating point state of the process and store it
117 fetch_fpregs (struct regcache *regcache)
120 gdb_byte fp[ARM_LINUX_SIZEOF_NWFPE];
122 /* Get the thread id for the ptrace call. */
123 tid = regcache->ptid ().lwp ();
125 /* Read the floating point state. */
126 if (have_ptrace_getregset == TRIBOOL_TRUE)
131 iov.iov_len = ARM_LINUX_SIZEOF_NWFPE;
133 ret = ptrace (PTRACE_GETREGSET, tid, NT_FPREGSET, &iov);
136 ret = ptrace (PT_GETFPREGS, tid, 0, fp);
139 perror_with_name (_("Unable to fetch the floating point registers."));
142 regcache->raw_supply (ARM_FPS_REGNUM, fp + NWFPE_FPSR_OFFSET);
144 /* Fetch the floating point registers. */
145 for (regno = ARM_F0_REGNUM; regno <= ARM_F7_REGNUM; regno++)
146 supply_nwfpe_register (regcache, regno, fp);
149 /* Save the whole floating point state of the process using
150 the contents from regcache. */
153 store_fpregs (const struct regcache *regcache)
156 gdb_byte fp[ARM_LINUX_SIZEOF_NWFPE];
158 /* Get the thread id for the ptrace call. */
159 tid = regcache->ptid ().lwp ();
161 /* Read the floating point state. */
162 if (have_ptrace_getregset == TRIBOOL_TRUE)
164 elf_fpregset_t fpregs;
167 iov.iov_base = &fpregs;
168 iov.iov_len = sizeof (fpregs);
170 ret = ptrace (PTRACE_GETREGSET, tid, NT_FPREGSET, &iov);
173 ret = ptrace (PT_GETFPREGS, tid, 0, fp);
176 perror_with_name (_("Unable to fetch the floating point registers."));
179 if (REG_VALID == regcache->get_register_status (ARM_FPS_REGNUM))
180 regcache->raw_collect (ARM_FPS_REGNUM, fp + NWFPE_FPSR_OFFSET);
182 /* Store the floating point registers. */
183 for (regno = ARM_F0_REGNUM; regno <= ARM_F7_REGNUM; regno++)
184 if (REG_VALID == regcache->get_register_status (regno))
185 collect_nwfpe_register (regcache, regno, fp);
187 if (have_ptrace_getregset == TRIBOOL_TRUE)
192 iov.iov_len = ARM_LINUX_SIZEOF_NWFPE;
194 ret = ptrace (PTRACE_SETREGSET, tid, NT_FPREGSET, &iov);
197 ret = ptrace (PTRACE_SETFPREGS, tid, 0, fp);
200 perror_with_name (_("Unable to store floating point registers."));
203 /* Fetch all general registers of the process and store into
207 fetch_regs (struct regcache *regcache)
212 /* Get the thread id for the ptrace call. */
213 tid = regcache->ptid ().lwp ();
215 if (have_ptrace_getregset == TRIBOOL_TRUE)
219 iov.iov_base = ®s;
220 iov.iov_len = sizeof (regs);
222 ret = ptrace (PTRACE_GETREGSET, tid, NT_PRSTATUS, &iov);
225 ret = ptrace (PTRACE_GETREGS, tid, 0, ®s);
228 perror_with_name (_("Unable to fetch general registers."));
230 aarch32_gp_regcache_supply (regcache, (uint32_t *) regs, arm_apcs_32);
234 store_regs (const struct regcache *regcache)
239 /* Get the thread id for the ptrace call. */
240 tid = regcache->ptid ().lwp ();
242 /* Fetch the general registers. */
243 if (have_ptrace_getregset == TRIBOOL_TRUE)
247 iov.iov_base = ®s;
248 iov.iov_len = sizeof (regs);
250 ret = ptrace (PTRACE_GETREGSET, tid, NT_PRSTATUS, &iov);
253 ret = ptrace (PTRACE_GETREGS, tid, 0, ®s);
256 perror_with_name (_("Unable to fetch general registers."));
258 aarch32_gp_regcache_collect (regcache, (uint32_t *) regs, arm_apcs_32);
260 if (have_ptrace_getregset == TRIBOOL_TRUE)
264 iov.iov_base = ®s;
265 iov.iov_len = sizeof (regs);
267 ret = ptrace (PTRACE_SETREGSET, tid, NT_PRSTATUS, &iov);
270 ret = ptrace (PTRACE_SETREGS, tid, 0, ®s);
273 perror_with_name (_("Unable to store general registers."));
276 /* Fetch all WMMX registers of the process and store into
279 #define IWMMXT_REGS_SIZE (16 * 8 + 6 * 4)
282 fetch_wmmx_regs (struct regcache *regcache)
284 char regbuf[IWMMXT_REGS_SIZE];
287 /* Get the thread id for the ptrace call. */
288 tid = regcache->ptid ().lwp ();
290 ret = ptrace (PTRACE_GETWMMXREGS, tid, 0, regbuf);
292 perror_with_name (_("Unable to fetch WMMX registers."));
294 for (regno = 0; regno < 16; regno++)
295 regcache->raw_supply (regno + ARM_WR0_REGNUM, ®buf[regno * 8]);
297 for (regno = 0; regno < 2; regno++)
298 regcache->raw_supply (regno + ARM_WCSSF_REGNUM,
299 ®buf[16 * 8 + regno * 4]);
301 for (regno = 0; regno < 4; regno++)
302 regcache->raw_supply (regno + ARM_WCGR0_REGNUM,
303 ®buf[16 * 8 + 2 * 4 + regno * 4]);
307 store_wmmx_regs (const struct regcache *regcache)
309 char regbuf[IWMMXT_REGS_SIZE];
312 /* Get the thread id for the ptrace call. */
313 tid = regcache->ptid ().lwp ();
315 ret = ptrace (PTRACE_GETWMMXREGS, tid, 0, regbuf);
317 perror_with_name (_("Unable to fetch WMMX registers."));
319 for (regno = 0; regno < 16; regno++)
320 if (REG_VALID == regcache->get_register_status (regno + ARM_WR0_REGNUM))
321 regcache->raw_collect (regno + ARM_WR0_REGNUM, ®buf[regno * 8]);
323 for (regno = 0; regno < 2; regno++)
324 if (REG_VALID == regcache->get_register_status (regno + ARM_WCSSF_REGNUM))
325 regcache->raw_collect (regno + ARM_WCSSF_REGNUM,
326 ®buf[16 * 8 + regno * 4]);
328 for (regno = 0; regno < 4; regno++)
329 if (REG_VALID == regcache->get_register_status (regno + ARM_WCGR0_REGNUM))
330 regcache->raw_collect (regno + ARM_WCGR0_REGNUM,
331 ®buf[16 * 8 + 2 * 4 + regno * 4]);
333 ret = ptrace (PTRACE_SETWMMXREGS, tid, 0, regbuf);
336 perror_with_name (_("Unable to store WMMX registers."));
340 fetch_vfp_regs (struct regcache *regcache)
342 gdb_byte regbuf[VFP_REGS_SIZE];
344 struct gdbarch *gdbarch = regcache->arch ();
345 struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
347 /* Get the thread id for the ptrace call. */
348 tid = regcache->ptid ().lwp ();
350 if (have_ptrace_getregset == TRIBOOL_TRUE)
354 iov.iov_base = regbuf;
355 iov.iov_len = VFP_REGS_SIZE;
356 ret = ptrace (PTRACE_GETREGSET, tid, NT_ARM_VFP, &iov);
359 ret = ptrace (PTRACE_GETVFPREGS, tid, 0, regbuf);
362 perror_with_name (_("Unable to fetch VFP registers."));
364 aarch32_vfp_regcache_supply (regcache, regbuf,
365 tdep->vfp_register_count);
369 store_vfp_regs (const struct regcache *regcache)
371 gdb_byte regbuf[VFP_REGS_SIZE];
373 struct gdbarch *gdbarch = regcache->arch ();
374 struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
376 /* Get the thread id for the ptrace call. */
377 tid = regcache->ptid ().lwp ();
379 if (have_ptrace_getregset == TRIBOOL_TRUE)
383 iov.iov_base = regbuf;
384 iov.iov_len = VFP_REGS_SIZE;
385 ret = ptrace (PTRACE_GETREGSET, tid, NT_ARM_VFP, &iov);
388 ret = ptrace (PTRACE_GETVFPREGS, tid, 0, regbuf);
391 perror_with_name (_("Unable to fetch VFP registers (for update)."));
393 aarch32_vfp_regcache_collect (regcache, regbuf,
394 tdep->vfp_register_count);
396 if (have_ptrace_getregset == TRIBOOL_TRUE)
400 iov.iov_base = regbuf;
401 iov.iov_len = VFP_REGS_SIZE;
402 ret = ptrace (PTRACE_SETREGSET, tid, NT_ARM_VFP, &iov);
405 ret = ptrace (PTRACE_SETVFPREGS, tid, 0, regbuf);
408 perror_with_name (_("Unable to store VFP registers."));
411 /* Fetch registers from the child process. Fetch all registers if
412 regno == -1, otherwise fetch all general registers or all floating
413 point registers depending upon the value of regno. */
416 arm_linux_nat_target::fetch_registers (struct regcache *regcache, int regno)
418 struct gdbarch *gdbarch = regcache->arch ();
419 struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
423 fetch_regs (regcache);
424 if (tdep->have_wmmx_registers)
425 fetch_wmmx_regs (regcache);
426 if (tdep->vfp_register_count > 0)
427 fetch_vfp_regs (regcache);
428 if (tdep->have_fpa_registers)
429 fetch_fpregs (regcache);
433 if (regno < ARM_F0_REGNUM || regno == ARM_PS_REGNUM)
434 fetch_regs (regcache);
435 else if (regno >= ARM_F0_REGNUM && regno <= ARM_FPS_REGNUM)
436 fetch_fpregs (regcache);
437 else if (tdep->have_wmmx_registers
438 && regno >= ARM_WR0_REGNUM && regno <= ARM_WCGR7_REGNUM)
439 fetch_wmmx_regs (regcache);
440 else if (tdep->vfp_register_count > 0
441 && regno >= ARM_D0_REGNUM
442 && (regno < ARM_D0_REGNUM + tdep->vfp_register_count
443 || regno == ARM_FPSCR_REGNUM))
444 fetch_vfp_regs (regcache);
448 /* Store registers back into the inferior. Store all registers if
449 regno == -1, otherwise store all general registers or all floating
450 point registers depending upon the value of regno. */
453 arm_linux_nat_target::store_registers (struct regcache *regcache, int regno)
455 struct gdbarch *gdbarch = regcache->arch ();
456 struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
460 store_regs (regcache);
461 if (tdep->have_wmmx_registers)
462 store_wmmx_regs (regcache);
463 if (tdep->vfp_register_count > 0)
464 store_vfp_regs (regcache);
465 if (tdep->have_fpa_registers)
466 store_fpregs (regcache);
470 if (regno < ARM_F0_REGNUM || regno == ARM_PS_REGNUM)
471 store_regs (regcache);
472 else if ((regno >= ARM_F0_REGNUM) && (regno <= ARM_FPS_REGNUM))
473 store_fpregs (regcache);
474 else if (tdep->have_wmmx_registers
475 && regno >= ARM_WR0_REGNUM && regno <= ARM_WCGR7_REGNUM)
476 store_wmmx_regs (regcache);
477 else if (tdep->vfp_register_count > 0
478 && regno >= ARM_D0_REGNUM
479 && (regno < ARM_D0_REGNUM + tdep->vfp_register_count
480 || regno == ARM_FPSCR_REGNUM))
481 store_vfp_regs (regcache);
485 /* Wrapper functions for the standard regset handling, used by
489 fill_gregset (const struct regcache *regcache,
490 gdb_gregset_t *gregsetp, int regno)
492 arm_linux_collect_gregset (NULL, regcache, regno, gregsetp, 0);
496 supply_gregset (struct regcache *regcache, const gdb_gregset_t *gregsetp)
498 arm_linux_supply_gregset (NULL, regcache, -1, gregsetp, 0);
502 fill_fpregset (const struct regcache *regcache,
503 gdb_fpregset_t *fpregsetp, int regno)
505 arm_linux_collect_nwfpe (NULL, regcache, regno, fpregsetp, 0);
508 /* Fill GDB's register array with the floating-point register values
512 supply_fpregset (struct regcache *regcache, const gdb_fpregset_t *fpregsetp)
514 arm_linux_supply_nwfpe (NULL, regcache, -1, fpregsetp, 0);
517 /* Fetch the thread-local storage pointer for libthread_db. */
520 ps_get_thread_area (struct ps_prochandle *ph,
521 lwpid_t lwpid, int idx, void **base)
523 if (ptrace (PTRACE_GET_THREAD_AREA, lwpid, NULL, base) != 0)
526 /* IDX is the bias from the thread pointer to the beginning of the
527 thread descriptor. It has to be subtracted due to implementation
528 quirks in libthread_db. */
529 *base = (void *) ((char *)*base - idx);
534 const struct target_desc *
535 arm_linux_nat_target::read_description ()
537 CORE_ADDR arm_hwcap = linux_get_hwcap (this);
539 if (have_ptrace_getregset == TRIBOOL_UNKNOWN)
541 elf_gregset_t gpregs;
543 int tid = inferior_ptid.lwp ();
545 iov.iov_base = &gpregs;
546 iov.iov_len = sizeof (gpregs);
548 /* Check if PTRACE_GETREGSET works. */
549 if (ptrace (PTRACE_GETREGSET, tid, NT_PRSTATUS, &iov) < 0)
550 have_ptrace_getregset = TRIBOOL_FALSE;
552 have_ptrace_getregset = TRIBOOL_TRUE;
555 if (arm_hwcap & HWCAP_IWMMXT)
556 return tdesc_arm_with_iwmmxt;
558 if (arm_hwcap & HWCAP_VFP)
562 const struct target_desc * result = NULL;
564 /* NEON implies VFPv3-D32 or no-VFP unit. Say that we only support
565 Neon with VFPv3-D32. */
566 if (arm_hwcap & HWCAP_NEON)
567 result = tdesc_arm_with_neon;
568 else if ((arm_hwcap & (HWCAP_VFPv3 | HWCAP_VFPv3D16)) == HWCAP_VFPv3)
569 result = tdesc_arm_with_vfpv3;
571 result = tdesc_arm_with_vfpv2;
573 /* Now make sure that the kernel supports reading these
574 registers. Support was added in 2.6.30. */
575 pid = inferior_ptid.lwp ();
577 buf = (char *) alloca (VFP_REGS_SIZE);
578 if (ptrace (PTRACE_GETVFPREGS, pid, 0, buf) < 0
585 return this->beneath ()->read_description ();
588 /* Information describing the hardware breakpoint capabilities. */
589 struct arm_linux_hwbp_cap
592 gdb_byte max_wp_length;
597 /* Since we cannot dynamically allocate subfields of arm_linux_process_info,
598 assume a maximum number of supported break-/watchpoints. */
602 /* Get hold of the Hardware Breakpoint information for the target we are
603 attached to. Returns NULL if the kernel doesn't support Hardware
604 breakpoints at all, or a pointer to the information structure. */
605 static const struct arm_linux_hwbp_cap *
606 arm_linux_get_hwbp_cap (void)
608 /* The info structure we return. */
609 static struct arm_linux_hwbp_cap info;
611 /* Is INFO in a good state? -1 means that no attempt has been made to
612 initialize INFO; 0 means an attempt has been made, but it failed; 1
613 means INFO is in an initialized state. */
614 static int available = -1;
621 tid = inferior_ptid.lwp ();
622 if (ptrace (PTRACE_GETHBPREGS, tid, 0, &val) < 0)
626 info.arch = (gdb_byte)((val >> 24) & 0xff);
627 info.max_wp_length = (gdb_byte)((val >> 16) & 0xff);
628 info.wp_count = (gdb_byte)((val >> 8) & 0xff);
629 info.bp_count = (gdb_byte)(val & 0xff);
631 if (info.wp_count > MAX_WPTS)
633 warning (_("arm-linux-gdb supports %d hardware watchpoints but target \
634 supports %d"), MAX_WPTS, info.wp_count);
635 info.wp_count = MAX_WPTS;
638 if (info.bp_count > MAX_BPTS)
640 warning (_("arm-linux-gdb supports %d hardware breakpoints but target \
641 supports %d"), MAX_BPTS, info.bp_count);
642 info.bp_count = MAX_BPTS;
644 available = (info.arch != 0);
648 return available == 1 ? &info : NULL;
651 /* How many hardware breakpoints are available? */
653 arm_linux_get_hw_breakpoint_count (void)
655 const struct arm_linux_hwbp_cap *cap = arm_linux_get_hwbp_cap ();
656 return cap != NULL ? cap->bp_count : 0;
659 /* How many hardware watchpoints are available? */
661 arm_linux_get_hw_watchpoint_count (void)
663 const struct arm_linux_hwbp_cap *cap = arm_linux_get_hwbp_cap ();
664 return cap != NULL ? cap->wp_count : 0;
667 /* Have we got a free break-/watch-point available for use? Returns -1 if
668 there is not an appropriate resource available, otherwise returns 1. */
670 arm_linux_nat_target::can_use_hw_breakpoint (enum bptype type,
673 if (type == bp_hardware_watchpoint || type == bp_read_watchpoint
674 || type == bp_access_watchpoint || type == bp_watchpoint)
676 int count = arm_linux_get_hw_watchpoint_count ();
680 else if (cnt + ot > count)
683 else if (type == bp_hardware_breakpoint)
685 int count = arm_linux_get_hw_breakpoint_count ();
689 else if (cnt > count)
698 /* Enum describing the different types of ARM hardware break-/watch-points. */
707 /* Type describing an ARM Hardware Breakpoint Control register value. */
708 typedef unsigned int arm_hwbp_control_t;
710 /* Structure used to keep track of hardware break-/watch-points. */
711 struct arm_linux_hw_breakpoint
713 /* Address to break on, or being watched. */
714 unsigned int address;
715 /* Control register for break-/watch- point. */
716 arm_hwbp_control_t control;
719 /* Structure containing arrays of per process hardware break-/watchpoints
720 for caching address and control information.
722 The Linux ptrace interface to hardware break-/watch-points presents the
723 values in a vector centred around 0 (which is used fo generic information).
724 Positive indicies refer to breakpoint addresses/control registers, negative
725 indices to watchpoint addresses/control registers.
727 The Linux vector is indexed as follows:
728 -((i << 1) + 2): Control register for watchpoint i.
729 -((i << 1) + 1): Address register for watchpoint i.
730 0: Information register.
731 ((i << 1) + 1): Address register for breakpoint i.
732 ((i << 1) + 2): Control register for breakpoint i.
734 This structure is used as a per-thread cache of the state stored by the
735 kernel, so that we don't need to keep calling into the kernel to find a
738 We treat break-/watch-points with their enable bit clear as being deleted.
740 struct arm_linux_debug_reg_state
742 /* Hardware breakpoints for this process. */
743 struct arm_linux_hw_breakpoint bpts[MAX_BPTS];
744 /* Hardware watchpoints for this process. */
745 struct arm_linux_hw_breakpoint wpts[MAX_WPTS];
748 /* Per-process arch-specific data we want to keep. */
749 struct arm_linux_process_info
752 struct arm_linux_process_info *next;
753 /* The process identifier. */
755 /* Hardware break-/watchpoints state information. */
756 struct arm_linux_debug_reg_state state;
760 /* Per-thread arch-specific data we want to keep. */
763 /* Non-zero if our copy differs from what's recorded in the thread. */
764 char bpts_changed[MAX_BPTS];
765 char wpts_changed[MAX_WPTS];
768 static struct arm_linux_process_info *arm_linux_process_list = NULL;
770 /* Find process data for process PID. */
772 static struct arm_linux_process_info *
773 arm_linux_find_process_pid (pid_t pid)
775 struct arm_linux_process_info *proc;
777 for (proc = arm_linux_process_list; proc; proc = proc->next)
778 if (proc->pid == pid)
784 /* Add process data for process PID. Returns newly allocated info
787 static struct arm_linux_process_info *
788 arm_linux_add_process (pid_t pid)
790 struct arm_linux_process_info *proc;
792 proc = XCNEW (struct arm_linux_process_info);
795 proc->next = arm_linux_process_list;
796 arm_linux_process_list = proc;
801 /* Get data specific info for process PID, creating it if necessary.
802 Never returns NULL. */
804 static struct arm_linux_process_info *
805 arm_linux_process_info_get (pid_t pid)
807 struct arm_linux_process_info *proc;
809 proc = arm_linux_find_process_pid (pid);
811 proc = arm_linux_add_process (pid);
816 /* Called whenever GDB is no longer debugging process PID. It deletes
817 data structures that keep track of debug register state. */
820 arm_linux_nat_target::low_forget_process (pid_t pid)
822 struct arm_linux_process_info *proc, **proc_link;
824 proc = arm_linux_process_list;
825 proc_link = &arm_linux_process_list;
829 if (proc->pid == pid)
831 *proc_link = proc->next;
837 proc_link = &proc->next;
842 /* Get hardware break-/watchpoint state for process PID. */
844 static struct arm_linux_debug_reg_state *
845 arm_linux_get_debug_reg_state (pid_t pid)
847 return &arm_linux_process_info_get (pid)->state;
850 /* Initialize an ARM hardware break-/watch-point control register value.
851 BYTE_ADDRESS_SELECT is the mask of bytes to trigger on; HWBP_TYPE is the
852 type of break-/watch-point; ENABLE indicates whether the point is enabled.
854 static arm_hwbp_control_t
855 arm_hwbp_control_initialize (unsigned byte_address_select,
856 arm_hwbp_type hwbp_type,
859 gdb_assert ((byte_address_select & ~0xffU) == 0);
860 gdb_assert (hwbp_type != arm_hwbp_break
861 || ((byte_address_select & 0xfU) != 0));
863 return (byte_address_select << 5) | (hwbp_type << 3) | (3 << 1) | enable;
866 /* Does the breakpoint control value CONTROL have the enable bit set? */
868 arm_hwbp_control_is_enabled (arm_hwbp_control_t control)
870 return control & 0x1;
873 /* Change a breakpoint control word so that it is in the disabled state. */
874 static arm_hwbp_control_t
875 arm_hwbp_control_disable (arm_hwbp_control_t control)
877 return control & ~0x1;
880 /* Initialise the hardware breakpoint structure P. The breakpoint will be
881 enabled, and will point to the placed address of BP_TGT. */
883 arm_linux_hw_breakpoint_initialize (struct gdbarch *gdbarch,
884 struct bp_target_info *bp_tgt,
885 struct arm_linux_hw_breakpoint *p)
888 CORE_ADDR address = bp_tgt->placed_address = bp_tgt->reqstd_address;
890 /* We have to create a mask for the control register which says which bits
891 of the word pointed to by address to break on. */
892 if (arm_pc_is_thumb (gdbarch, address))
903 p->address = (unsigned int) address;
904 p->control = arm_hwbp_control_initialize (mask, arm_hwbp_break, 1);
907 /* Get the ARM hardware breakpoint type from the TYPE value we're
908 given when asked to set a watchpoint. */
910 arm_linux_get_hwbp_type (enum target_hw_bp_type type)
913 return arm_hwbp_load;
914 else if (type == hw_write)
915 return arm_hwbp_store;
917 return arm_hwbp_access;
920 /* Initialize the hardware breakpoint structure P for a watchpoint at ADDR
921 to LEN. The type of watchpoint is given in RW. */
923 arm_linux_hw_watchpoint_initialize (CORE_ADDR addr, int len,
924 enum target_hw_bp_type type,
925 struct arm_linux_hw_breakpoint *p)
927 const struct arm_linux_hwbp_cap *cap = arm_linux_get_hwbp_cap ();
930 gdb_assert (cap != NULL);
931 gdb_assert (cap->max_wp_length != 0);
933 mask = (1 << len) - 1;
935 p->address = (unsigned int) addr;
936 p->control = arm_hwbp_control_initialize (mask,
937 arm_linux_get_hwbp_type (type), 1);
940 /* Are two break-/watch-points equal? */
942 arm_linux_hw_breakpoint_equal (const struct arm_linux_hw_breakpoint *p1,
943 const struct arm_linux_hw_breakpoint *p2)
945 return p1->address == p2->address && p1->control == p2->control;
948 /* Callback to mark a watch-/breakpoint to be updated in all threads of
949 the current process. */
952 update_registers_callback (struct lwp_info *lwp, int watch, int index)
954 if (lwp->arch_private == NULL)
955 lwp->arch_private = XCNEW (struct arch_lwp_info);
957 /* The actual update is done later just before resuming the lwp,
958 we just mark that the registers need updating. */
960 lwp->arch_private->wpts_changed[index] = 1;
962 lwp->arch_private->bpts_changed[index] = 1;
964 /* If the lwp isn't stopped, force it to momentarily pause, so
965 we can update its breakpoint registers. */
967 linux_stop_lwp (lwp);
972 /* Insert the hardware breakpoint (WATCHPOINT = 0) or watchpoint (WATCHPOINT
973 =1) BPT for thread TID. */
975 arm_linux_insert_hw_breakpoint1 (const struct arm_linux_hw_breakpoint* bpt,
981 struct arm_linux_hw_breakpoint* bpts;
983 pid = inferior_ptid.pid ();
984 pid_ptid = ptid_t (pid);
988 count = arm_linux_get_hw_watchpoint_count ();
989 bpts = arm_linux_get_debug_reg_state (pid)->wpts;
993 count = arm_linux_get_hw_breakpoint_count ();
994 bpts = arm_linux_get_debug_reg_state (pid)->bpts;
997 for (i = 0; i < count; ++i)
998 if (!arm_hwbp_control_is_enabled (bpts[i].control))
1001 iterate_over_lwps (pid_ptid,
1002 [=] (struct lwp_info *info)
1004 return update_registers_callback (info, watchpoint,
1010 gdb_assert (i != count);
1013 /* Remove the hardware breakpoint (WATCHPOINT = 0) or watchpoint
1014 (WATCHPOINT = 1) BPT for thread TID. */
1016 arm_linux_remove_hw_breakpoint1 (const struct arm_linux_hw_breakpoint *bpt,
1022 struct arm_linux_hw_breakpoint* bpts;
1024 pid = inferior_ptid.pid ();
1025 pid_ptid = ptid_t (pid);
1029 count = arm_linux_get_hw_watchpoint_count ();
1030 bpts = arm_linux_get_debug_reg_state (pid)->wpts;
1034 count = arm_linux_get_hw_breakpoint_count ();
1035 bpts = arm_linux_get_debug_reg_state (pid)->bpts;
1038 for (i = 0; i < count; ++i)
1039 if (arm_linux_hw_breakpoint_equal (bpt, bpts + i))
1041 bpts[i].control = arm_hwbp_control_disable (bpts[i].control);
1042 iterate_over_lwps (pid_ptid,
1043 [=] (struct lwp_info *info)
1045 return update_registers_callback (info, watchpoint,
1051 gdb_assert (i != count);
1054 /* Insert a Hardware breakpoint. */
1056 arm_linux_nat_target::insert_hw_breakpoint (struct gdbarch *gdbarch,
1057 struct bp_target_info *bp_tgt)
1059 struct arm_linux_hw_breakpoint p;
1061 if (arm_linux_get_hw_breakpoint_count () == 0)
1064 arm_linux_hw_breakpoint_initialize (gdbarch, bp_tgt, &p);
1066 arm_linux_insert_hw_breakpoint1 (&p, 0);
1071 /* Remove a hardware breakpoint. */
1073 arm_linux_nat_target::remove_hw_breakpoint (struct gdbarch *gdbarch,
1074 struct bp_target_info *bp_tgt)
1076 struct arm_linux_hw_breakpoint p;
1078 if (arm_linux_get_hw_breakpoint_count () == 0)
1081 arm_linux_hw_breakpoint_initialize (gdbarch, bp_tgt, &p);
1083 arm_linux_remove_hw_breakpoint1 (&p, 0);
1088 /* Are we able to use a hardware watchpoint for the LEN bytes starting at
1091 arm_linux_nat_target::region_ok_for_hw_watchpoint (CORE_ADDR addr, int len)
1093 const struct arm_linux_hwbp_cap *cap = arm_linux_get_hwbp_cap ();
1094 CORE_ADDR max_wp_length, aligned_addr;
1096 /* Can not set watchpoints for zero or negative lengths. */
1100 /* Need to be able to use the ptrace interface. */
1101 if (cap == NULL || cap->wp_count == 0)
1104 /* Test that the range [ADDR, ADDR + LEN) fits into the largest address
1105 range covered by a watchpoint. */
1106 max_wp_length = (CORE_ADDR)cap->max_wp_length;
1107 aligned_addr = addr & ~(max_wp_length - 1);
1109 if (aligned_addr + max_wp_length < addr + len)
1112 /* The current ptrace interface can only handle watchpoints that are a
1114 if ((len & (len - 1)) != 0)
1117 /* All tests passed so we must be able to set a watchpoint. */
1121 /* Insert a Hardware breakpoint. */
1123 arm_linux_nat_target::insert_watchpoint (CORE_ADDR addr, int len,
1124 enum target_hw_bp_type rw,
1125 struct expression *cond)
1127 struct arm_linux_hw_breakpoint p;
1129 if (arm_linux_get_hw_watchpoint_count () == 0)
1132 arm_linux_hw_watchpoint_initialize (addr, len, rw, &p);
1134 arm_linux_insert_hw_breakpoint1 (&p, 1);
1139 /* Remove a hardware breakpoint. */
1141 arm_linux_nat_target::remove_watchpoint (CORE_ADDR addr,
1142 int len, enum target_hw_bp_type rw,
1143 struct expression *cond)
1145 struct arm_linux_hw_breakpoint p;
1147 if (arm_linux_get_hw_watchpoint_count () == 0)
1150 arm_linux_hw_watchpoint_initialize (addr, len, rw, &p);
1152 arm_linux_remove_hw_breakpoint1 (&p, 1);
1157 /* What was the data address the target was stopped on accessing. */
1159 arm_linux_nat_target::stopped_data_address (CORE_ADDR *addr_p)
1164 if (!linux_nat_get_siginfo (inferior_ptid, &siginfo))
1167 /* This must be a hardware breakpoint. */
1168 if (siginfo.si_signo != SIGTRAP
1169 || (siginfo.si_code & 0xffff) != 0x0004 /* TRAP_HWBKPT */)
1172 /* We must be able to set hardware watchpoints. */
1173 if (arm_linux_get_hw_watchpoint_count () == 0)
1176 slot = siginfo.si_errno;
1178 /* If we are in a positive slot then we're looking at a breakpoint and not
1183 *addr_p = (CORE_ADDR) (uintptr_t) siginfo.si_addr;
1187 /* Has the target been stopped by hitting a watchpoint? */
1189 arm_linux_nat_target::stopped_by_watchpoint ()
1192 return stopped_data_address (&addr);
1196 arm_linux_nat_target::watchpoint_addr_within_range (CORE_ADDR addr,
1200 return start <= addr && start + length - 1 >= addr;
1203 /* Handle thread creation. We need to copy the breakpoints and watchpoints
1204 in the parent thread to the child thread. */
1206 arm_linux_nat_target::low_new_thread (struct lwp_info *lp)
1209 struct arch_lwp_info *info = XCNEW (struct arch_lwp_info);
1211 /* Mark that all the hardware breakpoint/watchpoint register pairs
1212 for this thread need to be initialized. */
1214 for (i = 0; i < MAX_BPTS; i++)
1216 info->bpts_changed[i] = 1;
1217 info->wpts_changed[i] = 1;
1220 lp->arch_private = info;
1223 /* Function to call when a thread is being deleted. */
1226 arm_linux_nat_target::low_delete_thread (struct arch_lwp_info *arch_lwp)
1231 /* Called when resuming a thread.
1232 The hardware debug registers are updated when there is any change. */
1235 arm_linux_nat_target::low_prepare_to_resume (struct lwp_info *lwp)
1238 struct arm_linux_hw_breakpoint *bpts, *wpts;
1239 struct arch_lwp_info *arm_lwp_info = lwp->arch_private;
1241 pid = lwp->ptid.lwp ();
1242 bpts = arm_linux_get_debug_reg_state (lwp->ptid.pid ())->bpts;
1243 wpts = arm_linux_get_debug_reg_state (lwp->ptid.pid ())->wpts;
1245 /* NULL means this is the main thread still going through the shell,
1246 or, no watchpoint has been set yet. In that case, there's
1248 if (arm_lwp_info == NULL)
1251 for (i = 0; i < arm_linux_get_hw_breakpoint_count (); i++)
1252 if (arm_lwp_info->bpts_changed[i])
1255 if (arm_hwbp_control_is_enabled (bpts[i].control))
1256 if (ptrace (PTRACE_SETHBPREGS, pid,
1257 (PTRACE_TYPE_ARG3) ((i << 1) + 1), &bpts[i].address) < 0)
1258 perror_with_name (_("Unexpected error setting breakpoint"));
1260 if (bpts[i].control != 0)
1261 if (ptrace (PTRACE_SETHBPREGS, pid,
1262 (PTRACE_TYPE_ARG3) ((i << 1) + 2), &bpts[i].control) < 0)
1263 perror_with_name (_("Unexpected error setting breakpoint"));
1265 arm_lwp_info->bpts_changed[i] = 0;
1268 for (i = 0; i < arm_linux_get_hw_watchpoint_count (); i++)
1269 if (arm_lwp_info->wpts_changed[i])
1272 if (arm_hwbp_control_is_enabled (wpts[i].control))
1273 if (ptrace (PTRACE_SETHBPREGS, pid,
1274 (PTRACE_TYPE_ARG3) -((i << 1) + 1), &wpts[i].address) < 0)
1275 perror_with_name (_("Unexpected error setting watchpoint"));
1277 if (wpts[i].control != 0)
1278 if (ptrace (PTRACE_SETHBPREGS, pid,
1279 (PTRACE_TYPE_ARG3) -((i << 1) + 2), &wpts[i].control) < 0)
1280 perror_with_name (_("Unexpected error setting watchpoint"));
1282 arm_lwp_info->wpts_changed[i] = 0;
1286 /* linux_nat_new_fork hook. */
1289 arm_linux_nat_target::low_new_fork (struct lwp_info *parent, pid_t child_pid)
1292 struct arm_linux_debug_reg_state *parent_state;
1293 struct arm_linux_debug_reg_state *child_state;
1295 /* NULL means no watchpoint has ever been set in the parent. In
1296 that case, there's nothing to do. */
1297 if (parent->arch_private == NULL)
1300 /* GDB core assumes the child inherits the watchpoints/hw
1301 breakpoints of the parent, and will remove them all from the
1302 forked off process. Copy the debug registers mirrors into the
1303 new process so that all breakpoints and watchpoints can be
1304 removed together. */
1306 parent_pid = parent->ptid.pid ();
1307 parent_state = arm_linux_get_debug_reg_state (parent_pid);
1308 child_state = arm_linux_get_debug_reg_state (child_pid);
1309 *child_state = *parent_state;
1313 _initialize_arm_linux_nat (void)
1315 /* Register the target. */
1316 linux_target = &the_arm_linux_nat_target;
1317 add_inf_child_target (&the_arm_linux_nat_target);