From patchwork Sat Apr 14 19:09:31 2018 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Pedro Alves X-Patchwork-Id: 26747 Received: (qmail 82399 invoked by alias); 14 Apr 2018 19:30:00 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org Delivered-To: mailing list gdb-patches@sourceware.org Received: (qmail 82388 invoked by uid 89); 14 Apr 2018 19:30:00 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-25.7 required=5.0 tests=AWL, BAYES_00, GIT_PATCH_0, GIT_PATCH_1, GIT_PATCH_2, GIT_PATCH_3 autolearn=ham version=3.3.2 spammy=regarding X-HELO: mx1.redhat.com Received: from mx3-rdu2.redhat.com (HELO mx1.redhat.com) (66.187.233.73) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Sat, 14 Apr 2018 19:29:57 +0000 Received: from smtp.corp.redhat.com (int-mx06.intmail.prod.int.rdu2.redhat.com [10.11.54.6]) (using TLSv1.2 with cipher AECDH-AES256-SHA (256/256 bits)) (No client certificate requested) by mx1.redhat.com (Postfix) with ESMTPS id 47CF38DC3A for ; Sat, 14 Apr 2018 19:10:07 +0000 (UTC) Received: from localhost.localdomain (ovpn04.gateway.prod.ext.ams2.redhat.com [10.39.146.4]) by smtp.corp.redhat.com (Postfix) with ESMTP id EBF71215CDC8 for ; Sat, 14 Apr 2018 19:10:06 +0000 (UTC) From: Pedro Alves To: gdb-patches@sourceware.org Subject: [PATCH 18/40] target_ops/C++: linux_trad_target, MIPS and Alpha GNU/Linux Date: Sat, 14 Apr 2018 20:09:31 +0100 Message-Id: <20180414190953.24481-19-palves@redhat.com> In-Reply-To: <20180414190953.24481-1-palves@redhat.com> References: <20180414190953.24481-1-palves@redhat.com> This converts the code in the new linux-nat-trad.h/c files, that was split off of inf-ptrace.h/c recently, to a C++ base class, and makes the MIPS and Alpha GNU/Linux ports use it. Otherwise, it's a straighforward conversion. I'd checked with a cross compiler that the MIPS port builds. I don't have an Alpha compiler handy. --- gdb/alpha-linux-nat.c | 17 +++-- gdb/linux-nat-trad.c | 54 +++++----------- gdb/linux-nat-trad.h | 24 +++++-- gdb/mips-linux-nat.c | 175 ++++++++++++++++++++++++++------------------------ 4 files changed, 138 insertions(+), 132 deletions(-) diff --git a/gdb/alpha-linux-nat.c b/gdb/alpha-linux-nat.c index 8d46af4176..70997e5f4a 100644 --- a/gdb/alpha-linux-nat.c +++ b/gdb/alpha-linux-nat.c @@ -32,6 +32,15 @@ /* The address of UNIQUE for ptrace. */ #define ALPHA_UNIQUE_PTRACE_ADDR 65 +class alpha_linux_nat_target final : public linux_nat_trad_target +{ +protected: + /* Override linux_nat_trad_target methods. */ + CORE_ADDR register_u_offset (struct gdbarch *gdbarch, + int regno, int store_p) override; +}; + +static alpha_linux_nat_target the_alpha_linux_nat_target; /* See the comment in m68k-tdep.c regarding the utility of these functions. */ @@ -77,9 +86,9 @@ fill_fpregset (const struct regcache *regcache, alpha_fill_fp_regs (regcache, regno, regp, regp + 31); } - -static CORE_ADDR -alpha_linux_register_u_offset (struct gdbarch *gdbarch, int regno, int store_p) +CORE_ADDR +alpha_linux_nat_target::register_u_offset (struct gdbarch *gdbarch, + int regno, int store_p) { if (regno == gdbarch_pc_regnum (gdbarch)) return PC; @@ -94,5 +103,5 @@ alpha_linux_register_u_offset (struct gdbarch *gdbarch, int regno, int store_p) void _initialize_alpha_linux_nat (void) { - linux_nat_add_target (linux_trad_target (alpha_linux_register_u_offset)); + add_target (&the_alpha_linux_nat_target); } diff --git a/gdb/linux-nat-trad.c b/gdb/linux-nat-trad.c index 75130be0f4..066d15a352 100644 --- a/gdb/linux-nat-trad.c +++ b/gdb/linux-nat-trad.c @@ -23,14 +23,10 @@ #include "nat/gdb_ptrace.h" #include "inf-ptrace.h" -/* Pointer to a function that returns the offset within the user area - where a particular register is stored. */ -static CORE_ADDR (*inf_ptrace_register_u_offset)(struct gdbarch *, int, int); - /* Fetch register REGNUM from the inferior. */ -static void -inf_ptrace_fetch_register (struct regcache *regcache, int regnum) +void +linux_nat_trad_target::fetch_register (struct regcache *regcache, int regnum) { struct gdbarch *gdbarch = regcache->arch (); CORE_ADDR addr; @@ -40,7 +36,7 @@ inf_ptrace_fetch_register (struct regcache *regcache, int regnum) int i; /* This isn't really an address, but ptrace thinks of it as one. */ - addr = inf_ptrace_register_u_offset (gdbarch, regnum, 0); + addr = register_u_offset (gdbarch, regnum, 0); if (addr == (CORE_ADDR)-1 || gdbarch_cannot_fetch_register (gdbarch, regnum)) { @@ -72,23 +68,23 @@ inf_ptrace_fetch_register (struct regcache *regcache, int regnum) /* Fetch register REGNUM from the inferior. If REGNUM is -1, do this for all registers. */ -static void -inf_ptrace_fetch_registers (struct target_ops *ops, - struct regcache *regcache, int regnum) +void +linux_nat_trad_target::fetch_registers (struct regcache *regcache, int regnum) { if (regnum == -1) for (regnum = 0; regnum < gdbarch_num_regs (regcache->arch ()); regnum++) - inf_ptrace_fetch_register (regcache, regnum); + fetch_register (regcache, regnum); else - inf_ptrace_fetch_register (regcache, regnum); + fetch_register (regcache, regnum); } /* Store register REGNUM into the inferior. */ -static void -inf_ptrace_store_register (const struct regcache *regcache, int regnum) +void +linux_nat_trad_target::store_register (const struct regcache *regcache, + int regnum) { struct gdbarch *gdbarch = regcache->arch (); CORE_ADDR addr; @@ -98,7 +94,7 @@ inf_ptrace_store_register (const struct regcache *regcache, int regnum) int i; /* This isn't really an address, but ptrace thinks of it as one. */ - addr = inf_ptrace_register_u_offset (gdbarch, regnum, 1); + addr = register_u_offset (gdbarch, regnum, 1); if (addr == (CORE_ADDR)-1 || gdbarch_cannot_store_register (gdbarch, regnum)) return; @@ -127,34 +123,14 @@ inf_ptrace_store_register (const struct regcache *regcache, int regnum) /* Store register REGNUM back into the inferior. If REGNUM is -1, do this for all registers. */ -static void -inf_ptrace_store_registers (struct target_ops *ops, - struct regcache *regcache, int regnum) +void +linux_nat_trad_target::store_registers (struct regcache *regcache, int regnum) { if (regnum == -1) for (regnum = 0; regnum < gdbarch_num_regs (regcache->arch ()); regnum++) - inf_ptrace_store_register (regcache, regnum); + store_register (regcache, regnum); else - inf_ptrace_store_register (regcache, regnum); -} - -/* Create a "traditional" Linux/ptrace target. REGISTER_U_OFFSET - should be a function returning the offset within the user area - where a particular register is stored. */ - -struct target_ops * -linux_trad_target (CORE_ADDR (*register_u_offset)(struct gdbarch *, int, int)) -{ - struct target_ops *t = inf_ptrace_target(); - - gdb_assert (register_u_offset); - inf_ptrace_register_u_offset = register_u_offset; - t->to_fetch_registers = inf_ptrace_fetch_registers; - t->to_store_registers = inf_ptrace_store_registers; - - linux_target_install_ops (t); - - return t; + store_register (regcache, regnum); } diff --git a/gdb/linux-nat-trad.h b/gdb/linux-nat-trad.h index 3b4a6c8595..240a95139c 100644 --- a/gdb/linux-nat-trad.h +++ b/gdb/linux-nat-trad.h @@ -22,9 +22,25 @@ #include "linux-nat.h" -/* Create a generic GNU/Linux target using traditional - ptrace register access. */ -struct target_ops *linux_trad_target - (CORE_ADDR (*register_u_offset)(struct gdbarch *, int, int)); +/* A prototype GNU/Linux target using traditional ptrace register + access. A concrete type should override REGISTER_U_OFFSET. */ + +class linux_nat_trad_target : public linux_nat_target +{ +public: + void fetch_registers (struct regcache *, int) override; + void store_registers (struct regcache *, int) override; + +protected: + /* Return the offset within the user area where a particular + register is stored. */ + virtual CORE_ADDR register_u_offset (struct gdbarch *gdbarch, + int regnum, int store) = 0; + +private: + /* Helpers. See definition. */ + void fetch_register (struct regcache *regcache, int regnum); + void store_register (const struct regcache *regcache, int regnum); +}; #endif /* LINUX_NAT_TRAD_H */ diff --git a/gdb/mips-linux-nat.c b/gdb/mips-linux-nat.c index 17e70b603b..1cd97d53c7 100644 --- a/gdb/mips-linux-nat.c +++ b/gdb/mips-linux-nat.c @@ -42,19 +42,49 @@ #define PTRACE_GET_THREAD_AREA 25 #endif -/* Assume that we have PTRACE_GETREGS et al. support. If we do not, - we'll clear this and use PTRACE_PEEKUSER instead. */ -static int have_ptrace_regsets = 1; +class mips_linux_nat_target final : public linux_nat_trad_target +{ +public: + /* Add our register access methods. */ + void fetch_registers (struct regcache *, int) override; + void store_registers (struct regcache *, int) override; + + void close () override; + + int can_use_hw_breakpoint (enum bptype, int, int) override; + + int remove_watchpoint (CORE_ADDR, int, enum target_hw_bp_type, + struct expression *) override; + + int insert_watchpoint (CORE_ADDR, int, enum target_hw_bp_type, + struct expression *) override; + + int stopped_by_watchpoint () override; + + int stopped_data_address (CORE_ADDR *) override; -/* Saved function pointers to fetch and store a single register using - PTRACE_PEEKUSER and PTRACE_POKEUSER. */ + int region_ok_for_hw_watchpoint (CORE_ADDR, int) override; -static void (*super_fetch_registers) (struct target_ops *, - struct regcache *, int); -static void (*super_store_registers) (struct target_ops *, - struct regcache *, int); + const struct target_desc *read_description () override; -static void (*super_close) (struct target_ops *); +protected: + /* Override linux_nat_trad_target methods. */ + CORE_ADDR register_u_offset (struct gdbarch *gdbarch, + int regno, int store_p) override; + +private: + /* Helpers. See definitions. */ + void mips64_regsets_store_registers (struct regcache *regcache, + int regno); + void mips64_regsets_fetch_registers (struct regcache *regcache, + int regno); +}; + +static mips_linux_nat_target the_mips_linux_nat_target; + +/* Assume that we have PTRACE_GETREGS et al. support. If we do not, + we'll clear this and use PTRACE_PEEKUSER instead. */ +static int have_ptrace_regsets = 1; /* Map gdb internal register number to ptrace ``address''. These ``addresses'' are normally defined in . @@ -208,9 +238,9 @@ fill_fpregset (const struct regcache *regcache, /* Fetch REGNO (or all registers if REGNO == -1) from the target using PTRACE_GETREGS et al. */ -static void -mips64_linux_regsets_fetch_registers (struct target_ops *ops, - struct regcache *regcache, int regno) +void +mips_linux_nat_target::mips64_regsets_fetch_registers + (struct regcache *regcache, int regno) { struct gdbarch *gdbarch = regcache->arch (); int is_fp, is_dsp; @@ -280,23 +310,24 @@ mips64_linux_regsets_fetch_registers (struct target_ops *ops, } if (is_dsp) - super_fetch_registers (ops, regcache, regno); + linux_nat_trad_target::fetch_registers (regcache, regno); else if (regno == -1 && have_dsp) { for (regi = mips_regnum (gdbarch)->dspacc; regi < mips_regnum (gdbarch)->dspacc + 6; regi++) - super_fetch_registers (ops, regcache, regi); - super_fetch_registers (ops, regcache, mips_regnum (gdbarch)->dspctl); + linux_nat_trad_target::fetch_registers (regcache, regi); + linux_nat_trad_target::fetch_registers (regcache, + mips_regnum (gdbarch)->dspctl); } } /* Store REGNO (or all registers if REGNO == -1) to the target using PTRACE_SETREGS et al. */ -static void -mips64_linux_regsets_store_registers (struct target_ops *ops, - struct regcache *regcache, int regno) +void +mips_linux_nat_target::mips64_regsets_store_registers + (struct regcache *regcache, int regno) { struct gdbarch *gdbarch = regcache->arch (); int is_fp, is_dsp; @@ -357,56 +388,56 @@ mips64_linux_regsets_store_registers (struct target_ops *ops, } if (is_dsp) - super_store_registers (ops, regcache, regno); + linux_nat_trad_target::store_registers (regcache, regno); else if (regno == -1 && have_dsp) { for (regi = mips_regnum (gdbarch)->dspacc; regi < mips_regnum (gdbarch)->dspacc + 6; regi++) - super_store_registers (ops, regcache, regi); - super_store_registers (ops, regcache, mips_regnum (gdbarch)->dspctl); + linux_nat_trad_target::store_registers (regcache, regi); + linux_nat_trad_target::store_registers (regcache, + mips_regnum (gdbarch)->dspctl); } } /* Fetch REGNO (or all registers if REGNO == -1) from the target using any working method. */ -static void -mips64_linux_fetch_registers (struct target_ops *ops, - struct regcache *regcache, int regnum) +void +mips_linux_nat_target::fetch_registers (struct regcache *regcache, int regnum) { /* Unless we already know that PTRACE_GETREGS does not work, try it. */ if (have_ptrace_regsets) - mips64_linux_regsets_fetch_registers (ops, regcache, regnum); + mips64_regsets_fetch_registers (regcache, regnum); /* If we know, or just found out, that PTRACE_GETREGS does not work, fall back to PTRACE_PEEKUSER. */ if (!have_ptrace_regsets) - super_fetch_registers (ops, regcache, regnum); + linux_nat_trad_target::fetch_registers (regcache, regnum); } /* Store REGNO (or all registers if REGNO == -1) to the target using any working method. */ -static void -mips64_linux_store_registers (struct target_ops *ops, - struct regcache *regcache, int regnum) +void +mips_linux_nat_target::store_registers (struct regcache *regcache, int regnum) { /* Unless we already know that PTRACE_GETREGS does not work, try it. */ if (have_ptrace_regsets) - mips64_linux_regsets_store_registers (ops, regcache, regnum); + mips64_regsets_store_registers (regcache, regnum); /* If we know, or just found out, that PTRACE_GETREGS does not work, fall back to PTRACE_PEEKUSER. */ if (!have_ptrace_regsets) - super_store_registers (ops, regcache, regnum); + linux_nat_trad_target::store_registers (regcache, regnum); } /* Return the address in the core dump or inferior of register REGNO. */ -static CORE_ADDR -mips_linux_register_u_offset (struct gdbarch *gdbarch, int regno, int store_p) +CORE_ADDR +mips_linux_nat_target::register_u_offset (struct gdbarch *gdbarch, + int regno, int store_p) { if (mips_abi_regsize (gdbarch) == 8) return mips64_linux_register_addr (gdbarch, regno, store_p); @@ -414,8 +445,8 @@ mips_linux_register_u_offset (struct gdbarch *gdbarch, int regno, int store_p) return mips_linux_register_addr (gdbarch, regno, store_p); } -static const struct target_desc * -mips_linux_read_description (struct target_ops *ops) +const struct target_desc * +mips_linux_nat_target::read_description () { static int have_dsp = -1; @@ -499,10 +530,9 @@ mips_show_dr (const char *func, CORE_ADDR addr, /* Target to_can_use_hw_breakpoint implementation. Return 1 if we can handle the specified watch type. */ -static int -mips_linux_can_use_hw_breakpoint (struct target_ops *self, - enum bptype type, - int cnt, int ot) +int +mips_linux_nat_target::can_use_hw_breakpoint (enum bptype type, + int cnt, int ot) { int i; uint32_t wanted_mask, irw_mask; @@ -542,8 +572,8 @@ mips_linux_can_use_hw_breakpoint (struct target_ops *self, stopped by watchpoint. The watchhi R and W bits indicate the watch register triggered. */ -static int -mips_linux_stopped_by_watchpoint (struct target_ops *ops) +int +mips_linux_nat_target::stopped_by_watchpoint () { int n; int num_valid; @@ -566,8 +596,8 @@ mips_linux_stopped_by_watchpoint (struct target_ops *ops) where the watch triggered (if known). Return 1 if the address was known. */ -static int -mips_linux_stopped_data_address (struct target_ops *t, CORE_ADDR *paddr) +int +mips_linux_nat_target::stopped_data_address (CORE_ADDR *paddr) { /* On mips we don't know the low order 3 bits of the data address, so we must return false. */ @@ -577,9 +607,8 @@ mips_linux_stopped_data_address (struct target_ops *t, CORE_ADDR *paddr) /* Target to_region_ok_for_hw_watchpoint implementation. Return 1 if the specified region can be covered by the watch registers. */ -static int -mips_linux_region_ok_for_hw_watchpoint (struct target_ops *self, - CORE_ADDR addr, int len) +int +mips_linux_nat_target::region_ok_for_hw_watchpoint (CORE_ADDR addr, int len) { struct pt_watch_regs dummy_regs; int i; @@ -633,11 +662,10 @@ mips_linux_new_thread (struct lwp_info *lp) /* Target to_insert_watchpoint implementation. Try to insert a new watch. Return zero on success. */ -static int -mips_linux_insert_watchpoint (struct target_ops *self, - CORE_ADDR addr, int len, - enum target_hw_bp_type type, - struct expression *cond) +int +mips_linux_nat_target::insert_watchpoint (CORE_ADDR addr, int len, + enum target_hw_bp_type type, + struct expression *cond) { struct pt_watch_regs regs; struct mips_watchpoint *new_watch; @@ -687,11 +715,10 @@ mips_linux_insert_watchpoint (struct target_ops *self, /* Target to_remove_watchpoint implementation. Try to remove a watch. Return zero on success. */ -static int -mips_linux_remove_watchpoint (struct target_ops *self, - CORE_ADDR addr, int len, - enum target_hw_bp_type type, - struct expression *cond) +int +mips_linux_nat_target::remove_watchpoint (CORE_ADDR addr, int len, + enum target_hw_bp_type type, + struct expression *cond) { int retval; int deleted_one; @@ -736,8 +763,8 @@ mips_linux_remove_watchpoint (struct target_ops *self, /* Target to_close implementation. Free any watches and call the super implementation. */ -static void -mips_linux_close (struct target_ops *self) +void +mips_linux_nat_target::close () { struct mips_watchpoint *w; struct mips_watchpoint *nw; @@ -752,15 +779,12 @@ mips_linux_close (struct target_ops *self) } current_watches = NULL; - if (super_close) - super_close (self); + linux_nat_trad_target::close (); } void _initialize_mips_linux_nat (void) { - struct target_ops *t; - add_setshow_boolean_cmd ("show-debug-regs", class_maintenance, &show_debug_regs, _("\ Set whether to show variables that mirror the mips debug registers."), _("\ @@ -774,26 +798,7 @@ triggers a breakpoint or watchpoint."), &maintenance_set_cmdlist, &maintenance_show_cmdlist); - t = linux_trad_target (mips_linux_register_u_offset); - - super_close = t->to_close; - t->to_close = mips_linux_close; - - super_fetch_registers = t->to_fetch_registers; - super_store_registers = t->to_store_registers; - - t->to_fetch_registers = mips64_linux_fetch_registers; - t->to_store_registers = mips64_linux_store_registers; - - t->to_can_use_hw_breakpoint = mips_linux_can_use_hw_breakpoint; - t->to_remove_watchpoint = mips_linux_remove_watchpoint; - t->to_insert_watchpoint = mips_linux_insert_watchpoint; - t->to_stopped_by_watchpoint = mips_linux_stopped_by_watchpoint; - t->to_stopped_data_address = mips_linux_stopped_data_address; - t->to_region_ok_for_hw_watchpoint = mips_linux_region_ok_for_hw_watchpoint; - - t->to_read_description = mips_linux_read_description; - - linux_nat_add_target (t); - linux_nat_set_new_thread (t, mips_linux_new_thread); + add_target (&the_mips_linux_nat_target); + linux_nat_set_new_thread (&the_mips_linux_nat_target, + mips_linux_new_thread); }