From nobody Mon Feb 9 08:00:09 2026 Delivered-To: importer@patchew.org Received-SPF: pass (zoho.com: domain of gnu.org designates 208.118.235.17 as permitted sender) client-ip=208.118.235.17; envelope-from=qemu-devel-bounces+importer=patchew.org@nongnu.org; helo=lists.gnu.org; Authentication-Results: mx.zohomail.com; dkim=fail; spf=pass (zoho.com: domain of gnu.org designates 208.118.235.17 as permitted sender) smtp.mailfrom=qemu-devel-bounces+importer=patchew.org@nongnu.org; dmarc=fail(p=none dis=none) header.from=linaro.org Return-Path: Received: from lists.gnu.org (lists.gnu.org [208.118.235.17]) by mx.zohomail.com with SMTPS id 1528895300083738.1819294379986; Wed, 13 Jun 2018 06:08:20 -0700 (PDT) Received: from localhost ([::1]:34080 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fT5VX-0003fE-52 for importer@patchew.org; Wed, 13 Jun 2018 09:08:15 -0400 Received: from eggs.gnu.org ([2001:4830:134:3::10]:50527) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fT5Jx-0002kr-Dm for qemu-devel@nongnu.org; Wed, 13 Jun 2018 08:56:18 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fT5Jt-0005FA-BP for qemu-devel@nongnu.org; Wed, 13 Jun 2018 08:56:17 -0400 Received: from mail-wm0-x244.google.com ([2a00:1450:400c:c09::244]:38727) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fT5Jt-0005DV-1e for qemu-devel@nongnu.org; Wed, 13 Jun 2018 08:56:13 -0400 Received: by mail-wm0-x244.google.com with SMTP id 69-v6so5208138wmf.3 for ; Wed, 13 Jun 2018 05:56:12 -0700 (PDT) Received: from zen.linaro.local ([81.128.185.34]) by smtp.gmail.com with ESMTPSA id p6-v6sm4253243wrq.19.2018.06.13.05.56.04 (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Wed, 13 Jun 2018 05:56:07 -0700 (PDT) Received: from zen.linaroharston (localhost [127.0.0.1]) by zen.linaro.local (Postfix) with ESMTP id AC9403E1228; Wed, 13 Jun 2018 13:56:01 +0100 (BST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=linaro.org; s=google; h=from:to:cc:subject:date:message-id:in-reply-to:references :mime-version:content-transfer-encoding; bh=eUY/neGXdk4S8JqLBaT3aKaFiB1DXFXQWHVnmZJwCZM=; b=NWF1PUaXkYiQ0Vy49OxvZ/+A36WYg5LbpzZVtnUtzc1A9Bu2lJT+ZohiQufXV1R+pU 0FdIWDKmmv49RsVICPl1XKic8HR3C2icfNq3+C87zarj10eCJ6V3Yyv4A1hC02ERMrKS Iuja2RhDAR23O0LPM/QgutXj/jB4fSwJNpxP0= X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:date:message-id:in-reply-to :references:mime-version:content-transfer-encoding; bh=eUY/neGXdk4S8JqLBaT3aKaFiB1DXFXQWHVnmZJwCZM=; b=Txe9rezYTRm4mLMa9ngA6ID4BzzGd+yqzZ357Xirg3y91L5czCFNAqTcYL/dP9Ntt9 DZvU3b0M1yzJ/reBdw1aBJ27O6iq1005e6IbJM6gbKMJ835RqKigTXMQpSsgQ3NpUe5Q kvxB0mE5QDx+6HbGxqqrRG+MufSmm8jr2Rj1F0mR2KX+5JQuoZI+HLWXQAUeuZTPgUpa s24oWdRNuTfz8uaDbKjWpn//5iNQ9pwEilStwDwwN3yY+toacSpCHqGl3p5ulRVDxkhs C/z27Msc4ZW8FxqRaOM69zjXoNUS/oyGqKAWICEGBGS96TyvrBGTDMtBCYbOgmJraGS5 VTGg== X-Gm-Message-State: APt69E1ri6wG6AXGwJfXjc0QplKma1anbamfO1KCGTF7hMAnanYyendJ +Qi4U4H4zDAmwkgHQkB4WuYeedsb8Bo= X-Google-Smtp-Source: ADUXVKI6ykHA4MqGIWi/1WlrE4uQfO/3rCl4cH3FBgHdIHVDN1k+0UPdue0KmKKtu0VzqY7KmClI6w== X-Received: by 2002:a1c:20c7:: with SMTP id g190-v6mr3647709wmg.2.1528894571876; Wed, 13 Jun 2018 05:56:11 -0700 (PDT) From: =?UTF-8?q?Alex=20Benn=C3=A9e?= To: peter.maydell@linaro.org Date: Wed, 13 Jun 2018 13:55:49 +0100 Message-Id: <20180613125601.14371-11-alex.bennee@linaro.org> X-Mailer: git-send-email 2.17.1 In-Reply-To: <20180613125601.14371-1-alex.bennee@linaro.org> References: <20180613125601.14371-1-alex.bennee@linaro.org> MIME-Version: 1.0 Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 2a00:1450:400c:c09::244 Subject: [Qemu-devel] [RISU PATCH v3 10/22] risugen: add reg_plus_imm_pl and reg_plus_imm_vl address helpers X-BeenThere: qemu-devel@nongnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Cc: =?UTF-8?q?Alex=20Benn=C3=A9e?= , qemu-arm@nongnu.org, richard.henderson@linaro.org, qemu-devel@nongnu.org Errors-To: qemu-devel-bounces+importer=patchew.org@nongnu.org Sender: "Qemu-devel" X-ZohoMail-DKIM: fail (Header signature does not verify) X-ZohoMail: RDKM_2 RSF_0 Z_629925259 SPT_0 From: Richard Henderson Signed-off-by: Alex Benn=C3=A9e --- risugen_arm.pm | 126 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 126 insertions(+) diff --git a/risugen_arm.pm b/risugen_arm.pm index 485e94e..696bf5f 100644 --- a/risugen_arm.pm +++ b/risugen_arm.pm @@ -306,6 +306,52 @@ sub write_mov_ri($$) } } =20 +sub write_addpl_rri($$$) +{ + my ($rd, $rn, $imm) =3D @_; + die "write_addpl: invalid operation for this arch.\n" if (!$is_aarch64= ); + + insn32(0x04605000 | ($rn << 16) | (($imm & 0x3f) << 5) | $rd); +} + +sub write_addvl_rri($$$) +{ + my ($rd, $rn, $imm) =3D @_; + die "write_addvl: invalid operation for this arch.\n" if (!$is_aarch64= ); + + insn32(0x04205000 | ($rn << 16) | (($imm & 0x3f) << 5) | $rd); +} + +sub write_rdvl_ri($$) +{ + my ($rd, $imm) =3D @_; + die "write_rdvl: invalid operation for this arch.\n" if (!$is_aarch64); + + insn32(0x04bf5000 | (($imm & 0x3f) << 5) | $rd); +} + +sub write_madd_rrrr($$$$) +{ + my ($rd, $rn, $rm, $ra) =3D @_; + die "write_madd: invalid operation for this arch.\n" if (!$is_aarch64); + + insn32(0x9b000000 | ($rm << 16) | ($ra << 10) | ($rn << 5) | $rd); +} + +sub write_msub_rrrr($$$$) +{ + my ($rd, $rn, $rm, $ra) =3D @_; + die "write_msub: invalid operation for this arch.\n" if (!$is_aarch64); + + insn32(0x9b008000 | ($rm << 16) | ($ra << 10) | ($rn << 5) | $rd); +} + +sub write_mul_rrr($$$) +{ + my ($rd, $rn, $rm) =3D @_; + write_madd_rrrr($rd, $rn, $rm, 31); +} + # write random fp value of passed precision (1=3Dsingle, 2=3Ddouble, 4=3Dq= uad) sub write_random_fpreg_var($) { @@ -767,6 +813,86 @@ sub reg_plus_imm($$@) return $base; } =20 +sub reg_plus_imm_pl($$@) +{ + # Handle reg + immediate addressing mode + my ($base, $imm, @trashed) =3D @_; + if ($imm =3D=3D 0) { + return reg($base, @trashed); + } + write_get_offset(); + + # Now r0 is the address we want to do the access to, + # so set the basereg by doing the inverse of the + # addressing mode calculation, ie base =3D r0 - imm + # + # Note that addpl has a 6-bit immediate, but ldr has a 9-bit + # immediate, so we need to be able to support larger immediates. + + if (-$imm >=3D -32 && -$imm <=3D 31) { + write_addpl_rri($base, 0, -$imm); + } else { + # We borrow r1 and r2 as a temporaries (not a problem + # as long as we don't leave anything in a register + # which depends on the location of the memory block) + write_mov_ri(1, 0); + write_mov_ri(2, $imm); + write_addpl_rri(1, 1, 1); + write_msub_rrrr($base, 1, 2, 0); + } + if (grep $_ =3D=3D $base, @trashed) { + return -1; + } + return $base; +} + +sub reg_plus_imm_vl($$@) +{ + # The usual address formulation is + # elements =3D VL DIV esize + # mbytes =3D msize DIV 8 + # addr =3D base + imm * elements * mbytes + # Here we compute + # scale =3D log2(esize / msize) + # base + (imm * VL) >> scale + my ($base, $imm, $scale, @trashed) =3D @_; + if ($imm =3D=3D 0) { + return reg($base, @trashed); + } + write_get_offset(); + + # Now r0 is the address we want to do the access to, + # so set the basereg by doing the inverse of the + # addressing mode calculation, ie base =3D r0 - imm + # + # Note that rdvl/addvl have a 6-bit immediate, but ldr has a 9-bit + # immediate, so we need to be able to support larger immediates. + + use integer; + my $mul =3D 1 << $scale; + my $imm_div =3D $imm / $mul; + + if ($imm =3D=3D $imm_div * $mul && -$imm_div >=3D -32 && -$imm_div <= =3D 31) { + write_addvl_rri($base, 0, -$imm_div); + } elsif ($imm >=3D -32 && $imm <=3D 31) { + write_rdvl_ri(1, $imm); + write_sub_rrrs($base, 0, 1, $SHIFT_ASR, $scale); + } else { + write_rdvl_ri(1, 1); + write_mov_ri(2, $imm); + if ($scale =3D=3D 0) { + write_msub_rrrr($base, 1, 2, 0); + } else { + write_mul_rrr(1, 1, 2); + write_sub_rrrs($base, 0, 1, $SHIFT_ASR, $scale); + } + } + if (grep $_ =3D=3D $base, @trashed) { + return -1; + } + return $base; +} + sub reg_minus_imm($$@) { my ($base, $imm, @trashed) =3D @_; --=20 2.17.1