gdb/aarch64-linux-nat.c

   1 /* Native-dependent code for GNU/Linux AArch64.
   2
   3    Copyright (C) 2011-2018 Free Software Foundation, Inc.
   4    Contributed by ARM Ltd.
   5
   6    This file is part of GDB.
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 3 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  20
  21 #include "defs.h"
  22
  23 #include "inferior.h"
  24 #include "gdbcore.h"
  25 #include "regcache.h"
  26 #include "linux-nat.h"
  27 #include "target-descriptions.h"
  28 #include "auxv.h"
  29 #include "gdbcmd.h"
  30 #include "aarch64-tdep.h"
  31 #include "aarch64-linux-tdep.h"
  32 #include "aarch32-linux-nat.h"
  33 #include "nat/aarch64-linux.h"
  34 #include "nat/aarch64-linux-hw-point.h"
  35
  36 #include "elf/external.h"
  37 #include "elf/common.h"
  38
  39 #include "nat/gdb_ptrace.h"
  40 #include <sys/utsname.h>
  41 #include <asm/ptrace.h>
  42
  43 #include "gregset.h"
  44
  45 /* Defines ps_err_e, struct ps_prochandle.  */
  46 #include "gdb_proc_service.h"
  47
  48 #ifndef TRAP_HWBKPT
  49 #define TRAP_HWBKPT 0x0004
  50 #endif
  51
  52 class aarch64_linux_nat_target final : public linux_nat_target
  53 {
  54 public:
  55   /* Add our register access methods.  */
  56   void fetch_registers (struct regcache *, int) override;
  57   void store_registers (struct regcache *, int) override;
  58
  59   const struct target_desc *read_description () override;
  60
  61   /* Add our hardware breakpoint and watchpoint implementation.  */
  62   int can_use_hw_breakpoint (enum bptype, int, int) override;
  63   int insert_hw_breakpoint (struct gdbarch *, struct bp_target_info *) override;
  64   int remove_hw_breakpoint (struct gdbarch *, struct bp_target_info *) override;
  65   int region_ok_for_hw_watchpoint (CORE_ADDR, int) override;
  66   int insert_watchpoint (CORE_ADDR, int, enum target_hw_bp_type,
  67                          struct expression *) override;
  68   int remove_watchpoint (CORE_ADDR, int, enum target_hw_bp_type,
  69                          struct expression *) override;
  70   bool stopped_by_watchpoint () override;
  71   bool stopped_data_address (CORE_ADDR *) override;
  72   bool watchpoint_addr_within_range (CORE_ADDR, CORE_ADDR, int) override;
  73
  74   int can_do_single_step () override;
  75
  76   /* Override the GNU/Linux inferior startup hook.  */
  77   void post_startup_inferior (ptid_t) override;
  78
  79   /* These three defer to common nat/ code.  */
  80   void low_new_thread (struct lwp_info *lp) override
  81   { aarch64_linux_new_thread (lp); }
  82   void low_delete_thread (struct arch_lwp_info *lp) override
  83   { aarch64_linux_delete_thread (lp); }
  84   void low_prepare_to_resume (struct lwp_info *lp) override
  85   { aarch64_linux_prepare_to_resume (lp); }
  86
  87   void low_new_fork (struct lwp_info *parent, pid_t child_pid) override;
  88   void low_forget_process (pid_t pid) override;
  89
  90   /* Add our siginfo layout converter.  */
  91   bool low_siginfo_fixup (siginfo_t *ptrace, gdb_byte *inf, int direction)
  92     override;
  93 };
  94
  95 static aarch64_linux_nat_target the_aarch64_linux_nat_target;
  96
  97 /* Per-process data.  We don't bind this to a per-inferior registry
  98    because of targets like x86 GNU/Linux that need to keep track of
  99    processes that aren't bound to any inferior (e.g., fork children,
 100    checkpoints).  */
 101
 102 struct aarch64_process_info
 103 {
 104   /* Linked list.  */
 105   struct aarch64_process_info *next;
 106
 107   /* The process identifier.  */
 108   pid_t pid;
 109
 110   /* Copy of aarch64 hardware debug registers.  */
 111   struct aarch64_debug_reg_state state;
 112 };
 113
 114 static struct aarch64_process_info *aarch64_process_list = NULL;
 115
 116 /* Find process data for process PID.  */
 117
 118 static struct aarch64_process_info *
 119 aarch64_find_process_pid (pid_t pid)
 120 {
 121   struct aarch64_process_info *proc;
 122
 123   for (proc = aarch64_process_list; proc; proc = proc->next)
 124     if (proc->pid == pid)
 125       return proc;
 126
 127   return NULL;
 128 }
 129
 130 /* Add process data for process PID.  Returns newly allocated info
 131    object.  */
 132
 133 static struct aarch64_process_info *
 134 aarch64_add_process (pid_t pid)
 135 {
 136   struct aarch64_process_info *proc;
 137
 138   proc = XCNEW (struct aarch64_process_info);
 139   proc->pid = pid;
 140
 141   proc->next = aarch64_process_list;
 142   aarch64_process_list = proc;
 143
 144   return proc;
 145 }
 146
 147 /* Get data specific info for process PID, creating it if necessary.
 148    Never returns NULL.  */
 149
 150 static struct aarch64_process_info *
 151 aarch64_process_info_get (pid_t pid)
 152 {
 153   struct aarch64_process_info *proc;
 154
 155   proc = aarch64_find_process_pid (pid);
 156   if (proc == NULL)
 157     proc = aarch64_add_process (pid);
 158
 159   return proc;
 160 }
 161
 162 /* Called whenever GDB is no longer debugging process PID.  It deletes
 163    data structures that keep track of debug register state.  */
 164
 165 void
 166 aarch64_linux_nat_target::low_forget_process (pid_t pid)
 167 {
 168   struct aarch64_process_info *proc, **proc_link;
 169
 170   proc = aarch64_process_list;
 171   proc_link = &aarch64_process_list;
 172
 173   while (proc != NULL)
 174     {
 175       if (proc->pid == pid)
 176         {
 177           *proc_link = proc->next;
 178
 179           xfree (proc);
 180           return;
 181         }
 182
 183       proc_link = &proc->next;
 184       proc = *proc_link;
 185     }
 186 }
 187
 188 /* Get debug registers state for process PID.  */
 189
 190 struct aarch64_debug_reg_state *
 191 aarch64_get_debug_reg_state (pid_t pid)
 192 {
 193   return &aarch64_process_info_get (pid)->state;
 194 }
 195
 196 /* Fill GDB's register array with the general-purpose register values
 197    from the current thread.  */
 198
 199 static void
 200 fetch_gregs_from_thread (struct regcache *regcache)
 201 {
 202   int ret, tid;
 203   struct gdbarch *gdbarch = regcache->arch ();
 204   elf_gregset_t regs;
 205   struct iovec iovec;
 206
 207   /* Make sure REGS can hold all registers contents on both aarch64
 208      and arm.  */
 209   gdb_static_assert (sizeof (regs) >= 18 * 4);
 210
 211   tid = ptid_get_lwp (regcache->ptid ());
 212
 213   iovec.iov_base = &regs;
 214   if (gdbarch_bfd_arch_info (gdbarch)->bits_per_word == 32)
 215     iovec.iov_len = 18 * 4;
 216   else
 217     iovec.iov_len = sizeof (regs);
 218
 219   ret = ptrace (PTRACE_GETREGSET, tid, NT_PRSTATUS, &iovec);
 220   if (ret < 0)
 221     perror_with_name (_("Unable to fetch general registers."));
 222
 223   if (gdbarch_bfd_arch_info (gdbarch)->bits_per_word == 32)
 224     aarch32_gp_regcache_supply (regcache, (uint32_t *) regs, 1);
 225   else
 226     {
 227       int regno;
 228
 229       for (regno = AARCH64_X0_REGNUM; regno <= AARCH64_CPSR_REGNUM; regno++)
 230         regcache->raw_supply (regno, &regs[regno - AARCH64_X0_REGNUM]);
 231     }
 232 }
 233
 234 /* Store to the current thread the valid general-purpose register
 235    values in the GDB's register array.  */
 236
 237 static void
 238 store_gregs_to_thread (const struct regcache *regcache)
 239 {
 240   int ret, tid;
 241   elf_gregset_t regs;
 242   struct iovec iovec;
 243   struct gdbarch *gdbarch = regcache->arch ();
 244
 245   /* Make sure REGS can hold all registers contents on both aarch64
 246      and arm.  */
 247   gdb_static_assert (sizeof (regs) >= 18 * 4);
 248   tid = ptid_get_lwp (regcache->ptid ());
 249
 250   iovec.iov_base = &regs;
 251   if (gdbarch_bfd_arch_info (gdbarch)->bits_per_word == 32)
 252     iovec.iov_len = 18 * 4;
 253   else
 254     iovec.iov_len = sizeof (regs);
 255
 256   ret = ptrace (PTRACE_GETREGSET, tid, NT_PRSTATUS, &iovec);
 257   if (ret < 0)
 258     perror_with_name (_("Unable to fetch general registers."));
 259
 260   if (gdbarch_bfd_arch_info (gdbarch)->bits_per_word == 32)
 261     aarch32_gp_regcache_collect (regcache, (uint32_t *) regs, 1);
 262   else
 263     {
 264       int regno;
 265
 266       for (regno = AARCH64_X0_REGNUM; regno <= AARCH64_CPSR_REGNUM; regno++)
 267         if (REG_VALID == regcache->get_register_status (regno))
 268           regcache->raw_collect (regno, &regs[regno - AARCH64_X0_REGNUM]);
 269     }
 270
 271   ret = ptrace (PTRACE_SETREGSET, tid, NT_PRSTATUS, &iovec);
 272   if (ret < 0)
 273     perror_with_name (_("Unable to store general registers."));
 274 }
 275
 276 /* Fill GDB's register array with the fp/simd register values
 277    from the current thread.  */
 278
 279 static void
 280 fetch_fpregs_from_thread (struct regcache *regcache)
 281 {
 282   int ret, tid;
 283   elf_fpregset_t regs;
 284   struct iovec iovec;
 285   struct gdbarch *gdbarch = regcache->arch ();
 286
 287   /* Make sure REGS can hold all VFP registers contents on both aarch64
 288      and arm.  */
 289   gdb_static_assert (sizeof regs >= VFP_REGS_SIZE);
 290
 291   tid = ptid_get_lwp (regcache->ptid ());
 292
 293   iovec.iov_base = &regs;
 294
 295   if (gdbarch_bfd_arch_info (gdbarch)->bits_per_word == 32)
 296     {
 297       iovec.iov_len = VFP_REGS_SIZE;
 298
 299       ret = ptrace (PTRACE_GETREGSET, tid, NT_ARM_VFP, &iovec);
 300       if (ret < 0)
 301         perror_with_name (_("Unable to fetch VFP registers."));
 302
 303       aarch32_vfp_regcache_supply (regcache, (gdb_byte *) &regs, 32);
 304     }
 305   else
 306     {
 307       int regno;
 308
 309       iovec.iov_len = sizeof (regs);
 310
 311       ret = ptrace (PTRACE_GETREGSET, tid, NT_FPREGSET, &iovec);
 312       if (ret < 0)
 313         perror_with_name (_("Unable to fetch vFP/SIMD registers."));
 314
 315       for (regno = AARCH64_V0_REGNUM; regno <= AARCH64_V31_REGNUM; regno++)
 316         regcache->raw_supply (regno, &regs.vregs[regno - AARCH64_V0_REGNUM]);
 317
 318       regcache->raw_supply (AARCH64_FPSR_REGNUM, &regs.fpsr);
 319       regcache->raw_supply (AARCH64_FPCR_REGNUM, &regs.fpcr);
 320     }
 321 }
 322
 323 /* Store to the current thread the valid fp/simd register
 324    values in the GDB's register array.  */
 325
 326 static void
 327 store_fpregs_to_thread (const struct regcache *regcache)
 328 {
 329   int ret, tid;
 330   elf_fpregset_t regs;
 331   struct iovec iovec;
 332   struct gdbarch *gdbarch = regcache->arch ();
 333
 334   /* Make sure REGS can hold all VFP registers contents on both aarch64
 335      and arm.  */
 336   gdb_static_assert (sizeof regs >= VFP_REGS_SIZE);
 337   tid = ptid_get_lwp (regcache->ptid ());
 338
 339   iovec.iov_base = &regs;
 340
 341   if (gdbarch_bfd_arch_info (gdbarch)->bits_per_word == 32)
 342     {
 343       iovec.iov_len = VFP_REGS_SIZE;
 344
 345       ret = ptrace (PTRACE_GETREGSET, tid, NT_ARM_VFP, &iovec);
 346       if (ret < 0)
 347         perror_with_name (_("Unable to fetch VFP registers."));
 348
 349       aarch32_vfp_regcache_collect (regcache, (gdb_byte *) &regs, 32);
 350     }
 351   else
 352     {
 353       int regno;
 354
 355       iovec.iov_len = sizeof (regs);
 356
 357       ret = ptrace (PTRACE_GETREGSET, tid, NT_FPREGSET, &iovec);
 358       if (ret < 0)
 359         perror_with_name (_("Unable to fetch FP/SIMD registers."));
 360
 361       for (regno = AARCH64_V0_REGNUM; regno <= AARCH64_V31_REGNUM; regno++)
 362         if (REG_VALID == regcache->get_register_status (regno))
 363           regcache->raw_collect
 364             (regno, (char *) &regs.vregs[regno - AARCH64_V0_REGNUM]);
 365
 366       if (REG_VALID == regcache->get_register_status (AARCH64_FPSR_REGNUM))
 367         regcache->raw_collect (AARCH64_FPSR_REGNUM, (char *) &regs.fpsr);
 368       if (REG_VALID == regcache->get_register_status (AARCH64_FPCR_REGNUM))
 369         regcache->raw_collect (AARCH64_FPCR_REGNUM, (char *) &regs.fpcr);
 370     }
 371
 372   if (gdbarch_bfd_arch_info (gdbarch)->bits_per_word == 32)
 373     {
 374       ret = ptrace (PTRACE_SETREGSET, tid, NT_ARM_VFP, &iovec);
 375       if (ret < 0)
 376         perror_with_name (_("Unable to store VFP registers."));
 377     }
 378   else
 379     {
 380       ret = ptrace (PTRACE_SETREGSET, tid, NT_FPREGSET, &iovec);
 381       if (ret < 0)
 382         perror_with_name (_("Unable to store FP/SIMD registers."));
 383     }
 384 }
 385
 386 /* Implement the "fetch_registers" target_ops method.  */
 387
 388 void
 389 aarch64_linux_nat_target::fetch_registers (struct regcache *regcache,
 390                                            int regno)
 391 {
 392   if (regno == -1)
 393     {
 394       fetch_gregs_from_thread (regcache);
 395       fetch_fpregs_from_thread (regcache);
 396     }
 397   else if (regno < AARCH64_V0_REGNUM)
 398     fetch_gregs_from_thread (regcache);
 399   else
 400     fetch_fpregs_from_thread (regcache);
 401 }
 402
 403 /* Implement the "store_registers" target_ops method.  */
 404
 405 void
 406 aarch64_linux_nat_target::store_registers (struct regcache *regcache,
 407                                            int regno)
 408 {
 409   if (regno == -1)
 410     {
 411       store_gregs_to_thread (regcache);
 412       store_fpregs_to_thread (regcache);
 413     }
 414   else if (regno < AARCH64_V0_REGNUM)
 415     store_gregs_to_thread (regcache);
 416   else
 417     store_fpregs_to_thread (regcache);
 418 }
 419
 420 /* Fill register REGNO (if it is a general-purpose register) in
 421    *GREGSETPS with the value in GDB's register array.  If REGNO is -1,
 422    do this for all registers.  */
 423
 424 void
 425 fill_gregset (const struct regcache *regcache,
 426               gdb_gregset_t *gregsetp, int regno)
 427 {
 428   regcache_collect_regset (&aarch64_linux_gregset, regcache,
 429                            regno, (gdb_byte *) gregsetp,
 430                            AARCH64_LINUX_SIZEOF_GREGSET);
 431 }
 432
 433 /* Fill GDB's register array with the general-purpose register values
 434    in *GREGSETP.  */
 435
 436 void
 437 supply_gregset (struct regcache *regcache, const gdb_gregset_t *gregsetp)
 438 {
 439   regcache_supply_regset (&aarch64_linux_gregset, regcache, -1,
 440                           (const gdb_byte *) gregsetp,
 441                           AARCH64_LINUX_SIZEOF_GREGSET);
 442 }
 443
 444 /* Fill register REGNO (if it is a floating-point register) in
 445    *FPREGSETP with the value in GDB's register array.  If REGNO is -1,
 446    do this for all registers.  */
 447
 448 void
 449 fill_fpregset (const struct regcache *regcache,
 450                gdb_fpregset_t *fpregsetp, int regno)
 451 {
 452   regcache_collect_regset (&aarch64_linux_fpregset, regcache,
 453                            regno, (gdb_byte *) fpregsetp,
 454                            AARCH64_LINUX_SIZEOF_FPREGSET);
 455 }
 456
 457 /* Fill GDB's register array with the floating-point register values
 458    in *FPREGSETP.  */
 459
 460 void
 461 supply_fpregset (struct regcache *regcache, const gdb_fpregset_t *fpregsetp)
 462 {
 463   regcache_supply_regset (&aarch64_linux_fpregset, regcache, -1,
 464                           (const gdb_byte *) fpregsetp,
 465                           AARCH64_LINUX_SIZEOF_FPREGSET);
 466 }
 467
 468 /* linux_nat_new_fork hook.   */
 469
 470 void
 471 aarch64_linux_nat_target::low_new_fork (struct lwp_info *parent,
 472                                         pid_t child_pid)
 473 {
 474   pid_t parent_pid;
 475   struct aarch64_debug_reg_state *parent_state;
 476   struct aarch64_debug_reg_state *child_state;
 477
 478   /* NULL means no watchpoint has ever been set in the parent.  In
 479      that case, there's nothing to do.  */
 480   if (parent->arch_private == NULL)
 481     return;
 482
 483   /* GDB core assumes the child inherits the watchpoints/hw
 484      breakpoints of the parent, and will remove them all from the
 485      forked off process.  Copy the debug registers mirrors into the
 486      new process so that all breakpoints and watchpoints can be
 487      removed together.  */
 488
 489   parent_pid = ptid_get_pid (parent->ptid);
 490   parent_state = aarch64_get_debug_reg_state (parent_pid);
 491   child_state = aarch64_get_debug_reg_state (child_pid);
 492   *child_state = *parent_state;
 493 }
 494 \f
 495
 496 /* Called by libthread_db.  Returns a pointer to the thread local
 497    storage (or its descriptor).  */
 498
 499 ps_err_e
 500 ps_get_thread_area (struct ps_prochandle *ph,
 501                     lwpid_t lwpid, int idx, void **base)
 502 {
 503   int is_64bit_p
 504     = (gdbarch_bfd_arch_info (target_gdbarch ())->bits_per_word == 64);
 505
 506   return aarch64_ps_get_thread_area (ph, lwpid, idx, base, is_64bit_p);
 507 }
 508 \f
 509
 510 /* Implement the "post_startup_inferior" target_ops method.  */
 511
 512 void
 513 aarch64_linux_nat_target::post_startup_inferior (ptid_t ptid)
 514 {
 515   low_forget_process (ptid_get_pid (ptid));
 516   aarch64_linux_get_debug_reg_capacity (ptid_get_pid (ptid));
 517   linux_nat_target::post_startup_inferior (ptid);
 518 }
 519
 520 extern struct target_desc *tdesc_arm_with_neon;
 521
 522 /* Implement the "read_description" target_ops method.  */
 523
 524 const struct target_desc *
 525 aarch64_linux_nat_target::read_description ()
 526 {
 527   int ret, tid;
 528   gdb_byte regbuf[VFP_REGS_SIZE];
 529   struct iovec iovec;
 530
 531   tid = ptid_get_lwp (inferior_ptid);
 532
 533   iovec.iov_base = regbuf;
 534   iovec.iov_len = VFP_REGS_SIZE;
 535
 536   ret = ptrace (PTRACE_GETREGSET, tid, NT_ARM_VFP, &iovec);
 537   if (ret == 0)
 538     return tdesc_arm_with_neon;
 539   else
 540     return aarch64_read_description ();
 541 }
 542
 543 /* Convert a native/host siginfo object, into/from the siginfo in the
 544    layout of the inferiors' architecture.  Returns true if any
 545    conversion was done; false otherwise.  If DIRECTION is 1, then copy
 546    from INF to NATIVE.  If DIRECTION is 0, copy from NATIVE to
 547    INF.  */
 548
 549 bool
 550 aarch64_linux_nat_target::low_siginfo_fixup (siginfo_t *native, gdb_byte *inf,
 551                                              int direction)
 552 {
 553   struct gdbarch *gdbarch = get_frame_arch (get_current_frame ());
 554
 555   /* Is the inferior 32-bit?  If so, then do fixup the siginfo
 556      object.  */
 557   if (gdbarch_bfd_arch_info (gdbarch)->bits_per_word == 32)
 558     {
 559       if (direction == 0)
 560         aarch64_compat_siginfo_from_siginfo ((struct compat_siginfo *) inf,
 561                                              native);
 562       else
 563         aarch64_siginfo_from_compat_siginfo (native,
 564                                              (struct compat_siginfo *) inf);
 565
 566       return true;
 567     }
 568
 569   return false;
 570 }
 571
 572 /* Returns the number of hardware watchpoints of type TYPE that we can
 573    set.  Value is positive if we can set CNT watchpoints, zero if
 574    setting watchpoints of type TYPE is not supported, and negative if
 575    CNT is more than the maximum number of watchpoints of type TYPE
 576    that we can support.  TYPE is one of bp_hardware_watchpoint,
 577    bp_read_watchpoint, bp_write_watchpoint, or bp_hardware_breakpoint.
 578    CNT is the number of such watchpoints used so far (including this
 579    one).  OTHERTYPE is non-zero if other types of watchpoints are
 580    currently enabled.  */
 581
 582 int
 583 aarch64_linux_nat_target::can_use_hw_breakpoint (enum bptype type,
 584                                                  int cnt, int othertype)
 585 {
 586   if (type == bp_hardware_watchpoint || type == bp_read_watchpoint
 587       || type == bp_access_watchpoint || type == bp_watchpoint)
 588     {
 589       if (aarch64_num_wp_regs == 0)
 590         return 0;
 591     }
 592   else if (type == bp_hardware_breakpoint)
 593     {
 594       if (aarch64_num_bp_regs == 0)
 595         return 0;
 596     }
 597   else
 598     gdb_assert_not_reached ("unexpected breakpoint type");
 599
 600   /* We always return 1 here because we don't have enough information
 601      about possible overlap of addresses that they want to watch.  As an
 602      extreme example, consider the case where all the watchpoints watch
 603      the same address and the same region length: then we can handle a
 604      virtually unlimited number of watchpoints, due to debug register
 605      sharing implemented via reference counts.  */
 606   return 1;
 607 }
 608
 609 /* Insert a hardware-assisted breakpoint at BP_TGT->reqstd_address.
 610    Return 0 on success, -1 on failure.  */
 611
 612 int
 613 aarch64_linux_nat_target::insert_hw_breakpoint (struct gdbarch *gdbarch,
 614                                                 struct bp_target_info *bp_tgt)
 615 {
 616   int ret;
 617   CORE_ADDR addr = bp_tgt->placed_address = bp_tgt->reqstd_address;
 618   int len;
 619   const enum target_hw_bp_type type = hw_execute;
 620   struct aarch64_debug_reg_state *state
 621     = aarch64_get_debug_reg_state (ptid_get_pid (inferior_ptid));
 622
 623   gdbarch_breakpoint_from_pc (gdbarch, &addr, &len);
 624
 625   if (show_debug_regs)
 626     fprintf_unfiltered
 627       (gdb_stdlog,
 628        "insert_hw_breakpoint on entry (addr=0x%08lx, len=%d))\n",
 629        (unsigned long) addr, len);
 630
 631   ret = aarch64_handle_breakpoint (type, addr, len, 1 /* is_insert */, state);
 632
 633   if (show_debug_regs)
 634     {
 635       aarch64_show_debug_reg_state (state,
 636                                     "insert_hw_breakpoint", addr, len, type);
 637     }
 638
 639   return ret;
 640 }
 641
 642 /* Remove a hardware-assisted breakpoint at BP_TGT->placed_address.
 643    Return 0 on success, -1 on failure.  */
 644
 645 int
 646 aarch64_linux_nat_target::remove_hw_breakpoint (struct gdbarch *gdbarch,
 647                                                 struct bp_target_info *bp_tgt)
 648 {
 649   int ret;
 650   CORE_ADDR addr = bp_tgt->placed_address;
 651   int len = 4;
 652   const enum target_hw_bp_type type = hw_execute;
 653   struct aarch64_debug_reg_state *state
 654     = aarch64_get_debug_reg_state (ptid_get_pid (inferior_ptid));
 655
 656   gdbarch_breakpoint_from_pc (gdbarch, &addr, &len);
 657
 658   if (show_debug_regs)
 659     fprintf_unfiltered
 660       (gdb_stdlog, "remove_hw_breakpoint on entry (addr=0x%08lx, len=%d))\n",
 661        (unsigned long) addr, len);
 662
 663   ret = aarch64_handle_breakpoint (type, addr, len, 0 /* is_insert */, state);
 664
 665   if (show_debug_regs)
 666     {
 667       aarch64_show_debug_reg_state (state,
 668                                     "remove_hw_watchpoint", addr, len, type);
 669     }
 670
 671   return ret;
 672 }
 673
 674 /* Implement the "insert_watchpoint" target_ops method.
 675
 676    Insert a watchpoint to watch a memory region which starts at
 677    address ADDR and whose length is LEN bytes.  Watch memory accesses
 678    of the type TYPE.  Return 0 on success, -1 on failure.  */
 679
 680 int
 681 aarch64_linux_nat_target::insert_watchpoint (CORE_ADDR addr, int len,
 682                                              enum target_hw_bp_type type,
 683                                              struct expression *cond)
 684 {
 685   int ret;
 686   struct aarch64_debug_reg_state *state
 687     = aarch64_get_debug_reg_state (ptid_get_pid (inferior_ptid));
 688
 689   if (show_debug_regs)
 690     fprintf_unfiltered (gdb_stdlog,
 691                         "insert_watchpoint on entry (addr=0x%08lx, len=%d)\n",
 692                         (unsigned long) addr, len);
 693
 694   gdb_assert (type != hw_execute);
 695
 696   ret = aarch64_handle_watchpoint (type, addr, len, 1 /* is_insert */, state);
 697
 698   if (show_debug_regs)
 699     {
 700       aarch64_show_debug_reg_state (state,
 701                                     "insert_watchpoint", addr, len, type);
 702     }
 703
 704   return ret;
 705 }
 706
 707 /* Implement the "remove_watchpoint" target_ops method.
 708    Remove a watchpoint that watched the memory region which starts at
 709    address ADDR, whose length is LEN bytes, and for accesses of the
 710    type TYPE.  Return 0 on success, -1 on failure.  */
 711
 712 int
 713 aarch64_linux_nat_target::remove_watchpoint (CORE_ADDR addr, int len,
 714                                              enum target_hw_bp_type type,
 715                                              struct expression *cond)
 716 {
 717   int ret;
 718   struct aarch64_debug_reg_state *state
 719     = aarch64_get_debug_reg_state (ptid_get_pid (inferior_ptid));
 720
 721   if (show_debug_regs)
 722     fprintf_unfiltered (gdb_stdlog,
 723                         "remove_watchpoint on entry (addr=0x%08lx, len=%d)\n",
 724                         (unsigned long) addr, len);
 725
 726   gdb_assert (type != hw_execute);
 727
 728   ret = aarch64_handle_watchpoint (type, addr, len, 0 /* is_insert */, state);
 729
 730   if (show_debug_regs)
 731     {
 732       aarch64_show_debug_reg_state (state,
 733                                     "remove_watchpoint", addr, len, type);
 734     }
 735
 736   return ret;
 737 }
 738
 739 /* Implement the "region_ok_for_hw_watchpoint" target_ops method.  */
 740
 741 int
 742 aarch64_linux_nat_target::region_ok_for_hw_watchpoint (CORE_ADDR addr, int len)
 743 {
 744   return aarch64_linux_region_ok_for_watchpoint (addr, len);
 745 }
 746
 747 /* Implement the "stopped_data_address" target_ops method.  */
 748
 749 bool
 750 aarch64_linux_nat_target::stopped_data_address (CORE_ADDR *addr_p)
 751 {
 752   siginfo_t siginfo;
 753   int i, tid;
 754   struct aarch64_debug_reg_state *state;
 755
 756   if (!linux_nat_get_siginfo (inferior_ptid, &siginfo))
 757     return false;
 758
 759   /* This must be a hardware breakpoint.  */
 760   if (siginfo.si_signo != SIGTRAP
 761       || (siginfo.si_code & 0xffff) != TRAP_HWBKPT)
 762     return false;
 763
 764   /* Check if the address matches any watched address.  */
 765   state = aarch64_get_debug_reg_state (ptid_get_pid (inferior_ptid));
 766   for (i = aarch64_num_wp_regs - 1; i >= 0; --i)
 767     {
 768       const unsigned int offset
 769         = aarch64_watchpoint_offset (state->dr_ctrl_wp[i]);
 770       const unsigned int len = aarch64_watchpoint_length (state->dr_ctrl_wp[i]);
 771       const CORE_ADDR addr_trap = (CORE_ADDR) siginfo.si_addr;
 772       const CORE_ADDR addr_watch = state->dr_addr_wp[i] + offset;
 773       const CORE_ADDR addr_watch_aligned = align_down (state->dr_addr_wp[i], 8);
 774       const CORE_ADDR addr_orig = state->dr_addr_orig_wp[i];
 775
 776       if (state->dr_ref_count_wp[i]
 777           && DR_CONTROL_ENABLED (state->dr_ctrl_wp[i])
 778           && addr_trap >= addr_watch_aligned
 779           && addr_trap < addr_watch + len)
 780         {
 781           /* ADDR_TRAP reports the first address of the memory range
 782              accessed by the CPU, regardless of what was the memory
 783              range watched.  Thus, a large CPU access that straddles
 784              the ADDR_WATCH..ADDR_WATCH+LEN range may result in an
 785              ADDR_TRAP that is lower than the
 786              ADDR_WATCH..ADDR_WATCH+LEN range.  E.g.:
 787
 788              addr: |   4   |   5   |   6   |   7   |   8   |
 789                                    |---- range watched ----|
 790                    |----------- range accessed ------------|
 791
 792              In this case, ADDR_TRAP will be 4.
 793
 794              To match a watchpoint known to GDB core, we must never
 795              report *ADDR_P outside of any ADDR_WATCH..ADDR_WATCH+LEN
 796              range.  ADDR_WATCH <= ADDR_TRAP < ADDR_ORIG is a false
 797              positive on kernels older than 4.10.  See PR
 798              external/20207.  */
 799           *addr_p = addr_orig;
 800           return true;
 801         }
 802     }
 803
 804   return false;
 805 }
 806
 807 /* Implement the "stopped_by_watchpoint" target_ops method.  */
 808
 809 bool
 810 aarch64_linux_nat_target::stopped_by_watchpoint ()
 811 {
 812   CORE_ADDR addr;
 813
 814   return stopped_data_address (&addr);
 815 }
 816
 817 /* Implement the "watchpoint_addr_within_range" target_ops method.  */
 818
 819 bool
 820 aarch64_linux_nat_target::watchpoint_addr_within_range (CORE_ADDR addr,
 821                                                         CORE_ADDR start, int length)
 822 {
 823   return start <= addr && start + length - 1 >= addr;
 824 }
 825
 826 /* Implement the "can_do_single_step" target_ops method.  */
 827
 828 int
 829 aarch64_linux_nat_target::can_do_single_step ()
 830 {
 831   return 1;
 832 }
 833
 834 /* Define AArch64 maintenance commands.  */
 835
 836 static void
 837 add_show_debug_regs_command (void)
 838 {
 839   /* A maintenance command to enable printing the internal DRi mirror
 840      variables.  */
 841   add_setshow_boolean_cmd ("show-debug-regs", class_maintenance,
 842                            &show_debug_regs, _("\
 843 Set whether to show variables that mirror the AArch64 debug registers."), _("\
 844 Show whether to show variables that mirror the AArch64 debug registers."), _("\
 845 Use \"on\" to enable, \"off\" to disable.\n\
 846 If enabled, the debug registers values are shown when GDB inserts\n\
 847 or removes a hardware breakpoint or watchpoint, and when the inferior\n\
 848 triggers a breakpoint or watchpoint."),
 849                            NULL,
 850                            NULL,
 851                            &maintenance_set_cmdlist,
 852                            &maintenance_show_cmdlist);
 853 }
 854
 855 void
 856 _initialize_aarch64_linux_nat (void)
 857 {
 858   add_show_debug_regs_command ();
 859
 860   /* Register the target.  */
 861   linux_target = &the_aarch64_linux_nat_target;
 862   add_inf_child_target (&the_aarch64_linux_nat_target);
 863 }