From patchwork Wed Jun 13 12:55:49 2018 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: =?utf-8?q?Alex_Benn=C3=A9e?= X-Patchwork-Id: 138467 Delivered-To: patch@linaro.org Received: by 2002:a2e:970d:0:0:0:0:0 with SMTP id r13-v6csp699001lji; Wed, 13 Jun 2018 06:06:29 -0700 (PDT) X-Google-Smtp-Source: ADUXVKIQRnPgCknOLs+w/sfS+NP5ksiO1ejIMikIwp0u7ZJiTehLjG0g5C6kri3MSG3ZApf5tuFA X-Received: by 2002:a0c:93a2:: with SMTP id f31-v6mr4270812qvf.151.1528895189087; Wed, 13 Jun 2018 06:06:29 -0700 (PDT) ARC-Seal: i=1; a=rsa-sha256; t=1528895189; cv=none; d=google.com; s=arc-20160816; b=nmz3n2yrGATEdsX8obVDm13jp5zpvcvGaVEvZCUb0qrGvksQLdHr0SAX51y831HNud vEkOOBgfB/P+jHilxUESTGyTCyKI+zj2LMiybn1A5MenBB14WlindMMMILBkiGQFyVnF KQJ0ZMJG4XfFD2xCeC32LLgZOuqKeilcwmNm8m1KWhKYavVL9arkzFw5lKZqG687O1Jm 3xBzmJqOFFgLum43Z6prFf12q5BdeHc3UbEooXna7zg6piPpfG0N12JMBsiLFl1RGHeW t4cWgKLzCN4HXwx6f20s2wGYsh4ZHbJ3q2shZIHPeFTCn/NcWab0/T1Rzmonm4n0nkRl xD4A== ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=arc-20160816; h=sender:errors-to:cc:list-subscribe:list-help:list-post:list-archive :list-unsubscribe:list-id:precedence:subject :content-transfer-encoding:mime-version:references:in-reply-to :message-id:date:to:from:dkim-signature:arc-authentication-results; bh=eUY/neGXdk4S8JqLBaT3aKaFiB1DXFXQWHVnmZJwCZM=; b=SsNLT6ogF01W28nRdfeoGTdB2tbkqBgFjfLT/7K3sIfGZikYAaZ0nF9lF+CCLynV18 GFu6GAcNRp6PARC25/3ETB1uUDrJRwfQNr0/R/RrBmKk8Hub5Tj+QAVY6D30z06KEIgX FzNSNxeJ1o6/KusUwAygnVXNhKyAknASq8nnQUnnhx+1W/rWyhZ3JDNzvSbGNX5jbnxb 0rCKJxlWbbv0WIakVAT+1CeB7i632J6HISpKyz6OxZrAj9aOZWAH9PABr0i0/Y+ydnWi e99nfoy85wAUc/eCbXpzQQw5VXxC8SHN/6DuyJrdyDMKER0Bcse/BOindqntP/vAZKAU qc/w== ARC-Authentication-Results: i=1; mx.google.com; dkim=fail header.i=@linaro.org header.s=google header.b=NWF1PUaX; spf=pass (google.com: domain of qemu-devel-bounces+patch=linaro.org@nongnu.org designates 2001:4830:134:3::11 as permitted sender) smtp.mailfrom="qemu-devel-bounces+patch=linaro.org@nongnu.org"; dmarc=fail (p=NONE sp=NONE dis=NONE) header.from=linaro.org Return-Path: Received: from lists.gnu.org (lists.gnu.org. [2001:4830:134:3::11]) by mx.google.com with ESMTPS id t5-v6si2682036qvk.190.2018.06.13.06.06.28 for (version=TLS1 cipher=AES128-SHA bits=128/128); Wed, 13 Jun 2018 06:06:29 -0700 (PDT) Received-SPF: pass (google.com: domain of qemu-devel-bounces+patch=linaro.org@nongnu.org designates 2001:4830:134:3::11 as permitted sender) client-ip=2001:4830:134:3::11; Authentication-Results: mx.google.com; dkim=fail header.i=@linaro.org header.s=google header.b=NWF1PUaX; spf=pass (google.com: domain of qemu-devel-bounces+patch=linaro.org@nongnu.org designates 2001:4830:134:3::11 as permitted sender) smtp.mailfrom="qemu-devel-bounces+patch=linaro.org@nongnu.org"; dmarc=fail (p=NONE sp=NONE dis=NONE) header.from=linaro.org Received: from localhost ([::1]:34046 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fT5To-0002TD-D0 for patch@linaro.org; Wed, 13 Jun 2018 09:06:28 -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) 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-Received: by 2002:a1c:20c7:: with SMTP id g190-v6mr3647709wmg.2.1528894571876; Wed, 13 Jun 2018 05:56:11 -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) From: =?utf-8?q?Alex_Benn=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 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_Benn=C3=A9e?= , qemu-arm@nongnu.org, richard.henderson@linaro.org, qemu-devel@nongnu.org Errors-To: qemu-devel-bounces+patch=linaro.org@nongnu.org Sender: "Qemu-devel" From: Richard Henderson Signed-off-by: Alex Bennée --- risugen_arm.pm | 126 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 126 insertions(+) -- 2.17.1 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($$) } } +sub write_addpl_rri($$$) +{ + my ($rd, $rn, $imm) = @_; + 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) = @_; + 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) = @_; + 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) = @_; + 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) = @_; + 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) = @_; + write_madd_rrrr($rd, $rn, $rm, 31); +} + # write random fp value of passed precision (1=single, 2=double, 4=quad) sub write_random_fpreg_var($) { @@ -767,6 +813,86 @@ sub reg_plus_imm($$@) return $base; } +sub reg_plus_imm_pl($$@) +{ + # Handle reg + immediate addressing mode + my ($base, $imm, @trashed) = @_; + if ($imm == 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 = 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 >= -32 && -$imm <= 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 $_ == $base, @trashed) { + return -1; + } + return $base; +} + +sub reg_plus_imm_vl($$@) +{ + # The usual address formulation is + # elements = VL DIV esize + # mbytes = msize DIV 8 + # addr = base + imm * elements * mbytes + # Here we compute + # scale = log2(esize / msize) + # base + (imm * VL) >> scale + my ($base, $imm, $scale, @trashed) = @_; + if ($imm == 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 = 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 = 1 << $scale; + my $imm_div = $imm / $mul; + + if ($imm == $imm_div * $mul && -$imm_div >= -32 && -$imm_div <= 31) { + write_addvl_rri($base, 0, -$imm_div); + } elsif ($imm >= -32 && $imm <= 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 == 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 $_ == $base, @trashed) { + return -1; + } + return $base; +} + sub reg_minus_imm($$@) { my ($base, $imm, @trashed) = @_;