From patchwork Tue Nov 20 07:56:26 2018 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: John Darrington X-Patchwork-Id: 30218 Received: (qmail 43496 invoked by alias); 20 Nov 2018 07:56:33 -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 43469 invoked by uid 89); 20 Nov 2018 07:56:31 -0000 Authentication-Results: sourceware.org; auth=none X-Spam-SWARE-Status: No, score=-25.1 required=5.0 tests=AWL, BAYES_00, GIT_PATCH_0, GIT_PATCH_1, GIT_PATCH_2, GIT_PATCH_3, SPF_PASS autolearn=ham version=3.3.2 spammy=physical, gdbs X-HELO: jocasta.intra Received: from de.cellform.com (HELO jocasta.intra) (88.217.224.109) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Tue, 20 Nov 2018 07:56:30 +0000 Received: from jocasta.intra (localhost [127.0.0.1]) by jocasta.intra (8.15.2/8.15.2/Debian-8) with ESMTPS id wAK7uRwN005436 (version=TLSv1.2 cipher=ECDHE-RSA-AES256-GCM-SHA384 bits=256 verify=NOT); Tue, 20 Nov 2018 08:56:27 +0100 Received: (from john@localhost) by jocasta.intra (8.15.2/8.15.2/Submit) id wAK7uRSg005435; Tue, 20 Nov 2018 08:56:27 +0100 From: John Darrington To: gdb-patches@sourceware.org Cc: John Darrington Subject: [PATCH] GDB: S12Z: new function s12z_extract_return_value Date: Tue, 20 Nov 2018 08:56:26 +0100 Message-Id: <20181120075626.5385-1-john@darrington.wattle.id.au> In-Reply-To: <20181117233550.09353eeb@pinnacle.lan> References: <20181117233550.09353eeb@pinnacle.lan> Make gdb aware of the return values of functions which return in registers. gdb/ChangeLog: * s12z-tdep.c (s12z_extract_return_value): New function. (inv_reg_perm) New array. (s12z_return_value): Populate readbuf if non-null. --- gdb/s12z-tdep.c | 59 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 58 insertions(+), 1 deletion(-) diff --git a/gdb/s12z-tdep.c b/gdb/s12z-tdep.c index bd0bd7c001..b358b2fbe9 100644 --- a/gdb/s12z-tdep.c +++ b/gdb/s12z-tdep.c @@ -37,7 +37,9 @@ #define N_PHYSICAL_REGISTERS (S12Z_N_REGISTERS - 2) -/* A permutation of all the physical registers. */ +/* A permutation of all the physical registers. Indexing this array + with an integer from gdb's internal representation will return the + register enum. */ static const int reg_perm[N_PHYSICAL_REGISTERS] = { REG_D0, @@ -55,6 +57,16 @@ static const int reg_perm[N_PHYSICAL_REGISTERS] = REG_CCW }; +/* The inverse of the above permutation. Indexing this + array with a register enum (e.g. REG_D2) will return the register + number in gdb's internal representation. */ +static const int inv_reg_perm[N_PHYSICAL_REGISTERS] = + { + 2, 3, 4, 5, /* d2, d3, d4, d5 */ + 0, 1, /* d0, d1 */ + 6, 7, /* d6, d7 */ + 8, 9, 10, 11, 12 /* x, y, s, p, ccw */ + }; /* Return the name of the register REGNUM. */ static const char * @@ -467,11 +479,56 @@ s12z_print_registers_info (struct gdbarch *gdbarch, + +static void +s12z_extract_return_value (struct type *type, struct regcache *regcache, + void *valbuf) +{ + int reg = -1; + + switch (TYPE_LENGTH (type)) + { + case 0: /* Nothing to do */ + return; + + case 1: + reg = REG_D0; + break; + + case 2: + reg = REG_D2; + break; + + case 3: + reg = REG_X; + break; + + case 4: + reg = REG_D6; + break; + + default: + error (_("bad size for return value")); + return; + } + + regcache->cooked_read (inv_reg_perm[reg], (gdb_byte *) valbuf); +} + static enum return_value_convention s12z_return_value (struct gdbarch *gdbarch, struct value *function, struct type *type, struct regcache *regcache, gdb_byte *readbuf, const gdb_byte *writebuf) { + if (TYPE_CODE (type) == TYPE_CODE_STRUCT + || TYPE_CODE (type) == TYPE_CODE_UNION + || TYPE_CODE (type) == TYPE_CODE_ARRAY + || TYPE_LENGTH (type) > 4) + return RETURN_VALUE_STRUCT_CONVENTION; + + if (readbuf) + s12z_extract_return_value (type, regcache, readbuf); + return RETURN_VALUE_REGISTER_CONVENTION; }