From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 15082 invoked by alias); 2 May 2013 12:03:54 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org Received: (qmail 15038 invoked by uid 89); 2 May 2013 12:03:54 -0000 X-Spam-SWARE-Status: No, score=-8.5 required=5.0 tests=AWL,BAYES_00,KHOP_RCVD_UNTRUST,KHOP_THREADED,RCVD_IN_HOSTKARMA_W,RCVD_IN_HOSTKARMA_WL,RP_MATCHES_RCVD,TW_EG autolearn=ham version=3.3.1 Received: from mga14.intel.com (HELO mga14.intel.com) (143.182.124.37) by sourceware.org (qpsmtpd/0.84/v0.84-167-ge50287c) with ESMTP; Thu, 02 May 2013 12:03:53 +0000 Received: from fmsmga001.fm.intel.com ([10.253.24.23]) by azsmga102.ch.intel.com with ESMTP; 02 May 2013 05:03:51 -0700 X-ExtLoop1: 1 Received: from irvmail001.ir.intel.com ([163.33.26.43]) by fmsmga001.fm.intel.com with ESMTP; 02 May 2013 05:03:42 -0700 Received: from ulslx001.iul.intel.com (ulslx001.iul.intel.com [172.28.207.63]) by irvmail001.ir.intel.com (8.14.3/8.13.6/MailSET/Hub) with ESMTP id r42C3eGb019539; Thu, 2 May 2013 13:03:41 +0100 Received: from ulslx001.iul.intel.com (localhost [127.0.0.1]) by ulslx001.iul.intel.com with ESMTP id r42C3drg021535; Thu, 2 May 2013 14:03:39 +0200 Received: (from mmetzger@localhost) by ulslx001.iul.intel.com with id r42C3d0e021531; Thu, 2 May 2013 14:03:39 +0200 From: Markus Metzger To: jan.kratochvil@redhat.com Cc: gdb-patches@sourceware.org Subject: [PATCH 09/15] record-btrace: supply register target methods Date: Thu, 02 May 2013 12:03:00 -0000 Message-Id: <1367496216-21217-10-git-send-email-markus.t.metzger@intel.com> In-Reply-To: <1367496216-21217-1-git-send-email-markus.t.metzger@intel.com> References: <1367496216-21217-1-git-send-email-markus.t.metzger@intel.com> X-SW-Source: 2013-05/txt/msg00020.txt.bz2 Supply target methods to allow reading the PC. Forbid anything else. 2013-05-02 Markus Metzger * record-btrace.c (record_btrace_fetch_registers, record_btrace_store_registers, record_btrace_to_prepare_to_store): New. (init_record_btrace_ops): Add the above. --- gdb/record-btrace.c | 97 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 files changed, 97 insertions(+), 0 deletions(-) diff --git a/gdb/record-btrace.c b/gdb/record-btrace.c index 56eccab..2299899 100644 --- a/gdb/record-btrace.c +++ b/gdb/record-btrace.c @@ -32,6 +32,7 @@ #include "ui-out.h" #include "symtab.h" #include "filenames.h" +#include "regcache.h" /* The target_ops of record-btrace. */ static struct target_ops record_btrace_ops; @@ -789,6 +790,99 @@ record_btrace_is_replaying (void) return 0; } +/* The to_fetch_registers method of target record-btrace. */ + +static void +record_btrace_fetch_registers (struct target_ops *ops, + struct regcache *regcache, int regno) +{ + struct btrace_insn_iterator *replay; + struct thread_info *tp; + + tp = find_thread_ptid (inferior_ptid); + if (tp == NULL) + return; + + replay = tp->btrace.replay; + if (replay != NULL) + { + const struct btrace_insn *insn; + struct gdbarch *gdbarch; + int pcreg; + + gdbarch = get_regcache_arch (regcache); + pcreg = gdbarch_pc_regnum (gdbarch); + if (pcreg < 0) + error (_("Failed to determine PC register number.")); + + /* We can only provide the PC register. */ + if (regno >= 0 && regno != pcreg) + throw_error (NOT_AVAILABLE_ERROR, + _("This record target does not trace registers.")); + + insn = btrace_insn_get (replay); + if (insn == NULL) + error (_("Failed to determine the current replay position.")); + + regcache_raw_supply (regcache, regno, &insn->pc); + } + else + { + struct target_ops *t; + + for (t = ops->beneath; t != NULL; t = t->beneath) + if (t->to_fetch_registers != NULL) + { + t->to_fetch_registers (t, regcache, regno); + break; + } + } +} + +/* The to_store_registers method of target record-btrace. */ + +static void +record_btrace_store_registers (struct target_ops *ops, + struct regcache *regcache, int regno) +{ + struct target_ops *t; + + if (record_btrace_is_replaying ()) + throw_error (NOT_AVAILABLE_ERROR, + _("This record target does not trace registers.")); + + if (may_write_registers == 0) + error (_("Writing to registers is not allowed (regno %d)"), regno); + + for (t = ops->beneath; t != NULL; t = t->beneath) + if (t->to_store_registers != NULL) + { + t->to_store_registers (t, regcache, regno); + return; + } + + noprocess (); +} + +/* The to_prepare_to_store method of target record-btrace. */ + +static void +record_btrace_prepare_to_store (struct target_ops *ops, + struct regcache *regcache) +{ + struct target_ops *t; + + if (record_btrace_is_replaying ()) + return; + + for (t = ops->beneath; t != NULL; t = t->beneath) + if (t->to_prepare_to_store != NULL) + { + t->to_prepare_to_store (t, regcache); + return; + } +} + /* Initialize the record-btrace target ops. */ static void @@ -816,6 +910,9 @@ init_record_btrace_ops (void) ops->to_call_history_from = record_btrace_call_history_from; ops->to_call_history_range = record_btrace_call_history_range; ops->to_record_is_replaying = record_btrace_is_replaying; + ops->to_fetch_registers = record_btrace_fetch_registers; + ops->to_store_registers = record_btrace_store_registers; + ops->to_prepare_to_store = record_btrace_prepare_to_store; ops->to_stratum = record_stratum; ops->to_magic = OPS_MAGIC; } -- 1.7.1