From patchwork Sun Feb 7 14:02:31 2016 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: =?utf-8?q?Marcin_Ko=C5=9Bcielnicki?= X-Patchwork-Id: 10754 Received: (qmail 66838 invoked by alias); 7 Feb 2016 14:02:35 -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 66818 invoked by uid 89); 7 Feb 2016 14:02:34 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-1.5 required=5.0 tests=AWL, BAYES_00, RP_MATCHES_RCVD, SPF_PASS autolearn=ham version=3.3.2 spammy=HContent-Transfer-Encoding:8bit X-HELO: xyzzy.0x04.net Received: from xyzzy.0x04.net (HELO xyzzy.0x04.net) (109.74.193.254) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Sun, 07 Feb 2016 14:02:34 +0000 Received: from hogfather.0x04.net (89-65-66-135.dynamic.chello.pl [89.65.66.135]) by xyzzy.0x04.net (Postfix) with ESMTPS id B72433FE0F for ; Sun, 7 Feb 2016 15:03:20 +0100 (CET) Received: by hogfather.0x04.net (Postfix, from userid 1000) id DA5D258008E; Sun, 7 Feb 2016 15:02:31 +0100 (CET) From: =?UTF-8?q?Marcin=20Ko=C5=9Bcielnicki?= To: gdb-patches@sourceware.org Cc: =?UTF-8?q?Marcin=20Ko=C5=9Bcielnicki?= Subject: [PATCH 4/8] gdb/s390: Fill gen_return_address hook. Date: Sun, 7 Feb 2016 15:02:31 +0100 Message-Id: <1454853751-18455-1-git-send-email-koriakin@0x04.net> In-Reply-To: <1453637529-26972-5-git-send-email-koriakin@0x04.net> References: <1453637529-26972-5-git-send-email-koriakin@0x04.net> MIME-Version: 1.0 X-IsSubscribed: yes gdb/ChangeLog: * s390-linux-tdep.c (s390_gen_return_address): New function. (s390_gdbarch_init): Fill gen_return_address hook. --- Added missing comment. gdb/ChangeLog | 5 +++++ gdb/s390-linux-tdep.c | 13 +++++++++++++ 2 files changed, 18 insertions(+) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 6260040..0cf8bfc 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,10 @@ 2016-02-07 Marcin Kościelnicki + * s390-linux-tdep.c (s390_gen_return_address): New function. + (s390_gdbarch_init): Fill gen_return_address hook. + +2016-02-07 Marcin Kościelnicki + * s390-linux-tdep.c (s390_ax_pseudo_register_collect): New function. (s390_ax_pseudo_register_push_stack): New function. (s390_gdbarch_init): Fill ax_pseudo_register_collect and diff --git a/gdb/s390-linux-tdep.c b/gdb/s390-linux-tdep.c index 97bd564..0b91ed1 100644 --- a/gdb/s390-linux-tdep.c +++ b/gdb/s390-linux-tdep.c @@ -627,6 +627,18 @@ s390_ax_pseudo_register_push_stack (struct gdbarch *gdbarch, return 0; } +/* The "gen_return_address" gdbarch method. */ + +static void +s390_gen_return_address (struct gdbarch *gdbarch, + struct agent_expr *ax, struct axs_value *value, + CORE_ADDR scope) +{ + value->type = register_type (gdbarch, S390_R14_REGNUM); + value->kind = axs_lvalue_register; + value->u.reg = S390_R14_REGNUM; +} + /* A helper for s390_software_single_step, decides if an instruction is a partial-execution instruction that needs to be executed until @@ -7970,6 +7982,7 @@ s390_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches) s390_ax_pseudo_register_collect); set_gdbarch_ax_pseudo_register_push_stack (gdbarch, s390_ax_pseudo_register_push_stack); + set_gdbarch_gen_return_address (gdbarch, s390_gen_return_address); tdesc_use_registers (gdbarch, tdesc, tdesc_data); set_gdbarch_register_name (gdbarch, s390_register_name);