From patchwork Tue Jan 11 21:01:38 2011 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Aurelien Jarno X-Patchwork-Id: 78440 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from lists.gnu.org (lists.gnu.org [199.232.76.165]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (Client did not present a certificate) by ozlabs.org (Postfix) with ESMTPS id DAC18B6EF2 for ; Wed, 12 Jan 2011 08:18:01 +1100 (EST) Received: from localhost ([127.0.0.1]:45184 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PclbL-0000mF-0m for incoming@patchwork.ozlabs.org; Tue, 11 Jan 2011 16:17:59 -0500 Received: from [140.186.70.92] (port=35697 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PclMq-0000rk-LA for qemu-devel@nongnu.org; Tue, 11 Jan 2011 16:03:59 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PclLd-0001N0-Pr for qemu-devel@nongnu.org; Tue, 11 Jan 2011 16:02:55 -0500 Received: from hall.aurel32.net ([88.191.126.93]:47322) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PclLd-0001Mc-LK for qemu-devel@nongnu.org; Tue, 11 Jan 2011 16:01:45 -0500 Received: from [2001:470:d4ed:0:5e26:aff:fe2b:6f5b] (helo=volta.aurel32.net) by hall.aurel32.net with esmtpsa (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.69) (envelope-from ) id 1PclLd-0001nx-1a; Tue, 11 Jan 2011 22:01:45 +0100 Received: from aurel32 by volta.aurel32.net with local (Exim 4.72) (envelope-from ) id 1PclLd-0004fK-K5; Tue, 11 Jan 2011 22:01:45 +0100 From: Aurelien Jarno To: qemu-devel@nongnu.org Date: Tue, 11 Jan 2011 22:01:38 +0100 Message-Id: <1294779698-17694-10-git-send-email-aurelien@aurel32.net> X-Mailer: git-send-email 1.7.2.3 In-Reply-To: <1294779698-17694-1-git-send-email-aurelien@aurel32.net> References: <1294779698-17694-1-git-send-email-aurelien@aurel32.net> X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) Cc: Aurelien Jarno Subject: [Qemu-devel] [PATCH 9/9] target-sh4: add ftrv instruction X-BeenThere: qemu-devel@nongnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: qemu-devel.nongnu.org List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: qemu-devel-bounces+incoming=patchwork.ozlabs.org@nongnu.org Errors-To: qemu-devel-bounces+incoming=patchwork.ozlabs.org@nongnu.org Add the ftrv XMTRX,FVn instruction, which computes the 4-row x 4-column matrix XMTRX by the 4-dimensional vector FVn. Signed-off-by: Aurelien Jarno --- target-sh4/helper.h | 1 + target-sh4/op_helper.c | 26 ++++++++++++++++++++++++++ target-sh4/translate.c | 11 +++++++++++ 3 files changed, 38 insertions(+), 0 deletions(-) diff --git a/target-sh4/helper.h b/target-sh4/helper.h index 74d839f..2e52768 100644 --- a/target-sh4/helper.h +++ b/target-sh4/helper.h @@ -49,5 +49,6 @@ DEF_HELPER_1(fsqrt_DT, i64, i64) DEF_HELPER_1(ftrc_FT, i32, i32) DEF_HELPER_1(ftrc_DT, i32, i64) DEF_HELPER_2(fipr, void, i32, i32) +DEF_HELPER_1(ftrv, void, i32) #include "def-helper.h" diff --git a/target-sh4/op_helper.c b/target-sh4/op_helper.c index d7df3fe..267166b 100644 --- a/target-sh4/op_helper.c +++ b/target-sh4/op_helper.c @@ -787,3 +787,29 @@ void helper_fipr(uint32_t m, uint32_t n) env->fregs[bank + n + 3] = r; } + +void helper_ftrv(uint32_t n) +{ + int bank_matrix, bank_vector; + int i, j; + float32 r[4]; + float32 p; + + bank_matrix = (env->sr & FPSCR_FR) ? 0 : 16; + bank_vector = (env->sr & FPSCR_FR) ? 16 : 0; + set_float_exception_flags(0, &env->fp_status); + for (i = 0 ; i < 4 ; i++) { + r[i] = float32_zero; + for (j = 0 ; j < 4 ; j++) { + p = float32_mul(env->fregs[bank_matrix + 4 * j + i], + env->fregs[bank_vector + j], + &env->fp_status); + r[i] = float32_add(r[i], p, &env->fp_status); + } + } + update_fpscr(GETPC()); + + for (i = 0 ; i < 4 ; i++) { + env->fregs[bank_vector + i] = r[i]; + } +} diff --git a/target-sh4/translate.c b/target-sh4/translate.c index 566ce23..9460a32 100644 --- a/target-sh4/translate.c +++ b/target-sh4/translate.c @@ -1881,6 +1881,17 @@ static void _decode_opc(DisasContext * ctx) return; } break; + case 0xf0fd: /* ftrv XMTRX,FVn */ + CHECK_FPU_ENABLED + if ((ctx->opcode & 0x0300) == 0x0100 && + (ctx->fpscr & FPSCR_PR) == 0) { + TCGv n; + n = tcg_const_i32((ctx->opcode >> 18) & 3); + gen_helper_ftrv(n); + tcg_temp_free(n); + return; + } + break; } #if 0 fprintf(stderr, "unknown instruction 0x%04x at pc 0x%08x\n",