From: Richard Sandiford <richard.sandiford@arm.com>
To: "Andre Vieira \(lists\)" <andre.simoesdiasvieira@arm.com>
Cc: "gcc-patches\@gcc.gnu.org" <gcc-patches@gcc.gnu.org>,
Kyrylo Tkachov <Kyrylo.Tkachov@arm.com>
Subject: Re: [PATCH][AArch64] Implement ACLE Data Intrinsics
Date: Wed, 29 Jun 2022 08:18:02 +0100 [thread overview]
Message-ID: <mpt5ykkvsyd.fsf@arm.com> (raw)
In-Reply-To: <11918543-8a40-211d-771d-4e2dbaeb9eb6@arm.com> (Andre Vieira's message of "Tue, 28 Jun 2022 15:04:02 +0100")
"Andre Vieira (lists)" <andre.simoesdiasvieira@arm.com> writes:
> On 17/06/2022 11:54, Richard Sandiford wrote:
>> "Andre Vieira (lists)" <andre.simoesdiasvieira@arm.com> writes:
>>> Hi,
>>>
>>> This patch adds support for the ACLE Data Intrinsics to the AArch64 port.
>>>
>>> Bootstrapped and regression tested on aarch64-none-linux.
>>>
>>> OK for trunk?
>> Sorry for the slow review.
> No worries :)
>>
>>> +{ \
>>> + size_t size = sizeof (TYPE) * __CHAR_BIT__; \
>>> + rotate = rotate % size; \
>>> + return value >> rotate | value << (size - rotate); \
>> This runs into UB for rotate == 0.
> I assume it's because of the value << size no?
Yeah.
> I added a modulo, I assume it's legal to shift by 0?
Thanks, and yeah, shifting by zero is fine.
> This OK?
>
> diff --git a/gcc/config/aarch64/aarch64-builtins.cc b/gcc/config/aarch64/aarch64-builtins.cc
> index e0a741ac663188713e21f457affa57217d074783..69f1fb3604a481fa378d105cf3ee98edec1ba619 100644
> --- a/gcc/config/aarch64/aarch64-builtins.cc
> +++ b/gcc/config/aarch64/aarch64-builtins.cc
> @@ -613,6 +613,12 @@ enum aarch64_builtins
> AARCH64_LS64_BUILTIN_ST64B,
> AARCH64_LS64_BUILTIN_ST64BV,
> AARCH64_LS64_BUILTIN_ST64BV0,
> + AARCH64_REV16,
> + AARCH64_REV16L,
> + AARCH64_REV16LL,
> + AARCH64_RBIT,
> + AARCH64_RBITL,
> + AARCH64_RBITLL,
> AARCH64_BUILTIN_MAX
> };
>
> @@ -1664,10 +1670,41 @@ aarch64_init_ls64_builtins (void)
> = aarch64_general_add_builtin (data[i].name, data[i].type, data[i].code);
> }
>
> +static void
> +aarch64_init_data_intrinsics (void)
> +{
> + tree uint32_fntype = build_function_type_list (uint32_type_node,
> + uint32_type_node, NULL_TREE);
> + tree ulong_fntype = build_function_type_list (long_unsigned_type_node,
> + long_unsigned_type_node,
> + NULL_TREE);
> + tree uint64_fntype = build_function_type_list (uint64_type_node,
> + uint64_type_node, NULL_TREE);
> + aarch64_builtin_decls[AARCH64_REV16]
> + = aarch64_general_add_builtin ("__builtin_aarch64_rev16", uint32_fntype,
> + AARCH64_REV16);
> + aarch64_builtin_decls[AARCH64_REV16L]
> + = aarch64_general_add_builtin ("__builtin_aarch64_rev16l", ulong_fntype,
> + AARCH64_REV16L);
> + aarch64_builtin_decls[AARCH64_REV16LL]
> + = aarch64_general_add_builtin ("__builtin_aarch64_rev16ll", uint64_fntype,
> + AARCH64_REV16LL);
> + aarch64_builtin_decls[AARCH64_RBIT]
> + = aarch64_general_add_builtin ("__builtin_aarch64_rbit", uint32_fntype,
> + AARCH64_RBIT);
> + aarch64_builtin_decls[AARCH64_RBITL]
> + = aarch64_general_add_builtin ("__builtin_aarch64_rbitl", ulong_fntype,
> + AARCH64_RBITL);
> + aarch64_builtin_decls[AARCH64_RBITLL]
> + = aarch64_general_add_builtin ("__builtin_aarch64_rbitll", uint64_fntype,
> + AARCH64_RBITLL);
> +}
> +
> /* Implement #pragma GCC aarch64 "arm_acle.h". */
> void
> handle_arm_acle_h (void)
> {
> + aarch64_init_data_intrinsics ();
> if (TARGET_LS64)
> aarch64_init_ls64_builtins ();
> }
> @@ -2393,6 +2430,40 @@ aarch64_expand_builtin_memtag (int fcode, tree exp, rtx target)
> emit_insn (pat);
> return target;
> }
Nit: missing blank line here.
> +/* Function to expand an expression EXP which calls one of the ACLE Data
> + Intrinsic builtins FCODE with the result going to TARGET. */
> +static rtx
> +aarch64_expand_builtin_data_intrinsic (unsigned int fcode, tree exp, rtx target)
> +{
> + expand_operand ops[2];
> + machine_mode mode = GET_MODE (target);
> + create_output_operand (&ops[0], target, mode);
> + create_input_operand (&ops[1], expand_normal (CALL_EXPR_ARG (exp, 0)), mode);
> + enum insn_code icode;
> + switch (fcode)
> + {
> + case AARCH64_REV16:
> + case AARCH64_REV16L:
> + case AARCH64_REV16LL:
> + if (mode == SImode)
> + icode = CODE_FOR_aarch64_rev16si;
> + else
> + icode = CODE_FOR_aarch64_rev16di;
You should be able to do:
icode = code_for_aarch64_rev (mode);
instead. Same for the next cases.
> + break;
> + case AARCH64_RBIT:
> + case AARCH64_RBITL:
> + case AARCH64_RBITLL:
> + if (mode == SImode)
> + icode = CODE_FOR_aarch64_rbitsi;
> + else
> + icode = CODE_FOR_aarch64_rbitdi;
> + break;
> + default:
> + gcc_unreachable ();
> + }
> + expand_insn (icode, 2, ops);
> + return target;
This needs to return ops[0].value instead, since "target" just suggests
a possible location.
Could you add tests for a memory source and memory destination, e.g.:
void test_clz_mem (uint32_t *a)
{
*a = __clz (*a);
}
Without tests like that, these comments probably just sound like a paper
exercise, but they should make a difference for memory sources (previous
review) and memory destinations (this round).
> +}
>
> /* Expand an expression EXP as fpsr or fpcr setter (depending on
> UNSPEC) using MODE. */
> @@ -2551,6 +2622,9 @@ aarch64_general_expand_builtin (unsigned int fcode, tree exp, rtx target,
> if (fcode >= AARCH64_MEMTAG_BUILTIN_START
> && fcode <= AARCH64_MEMTAG_BUILTIN_END)
> return aarch64_expand_builtin_memtag (fcode, exp, target);
> + if (fcode >= AARCH64_REV16
> + && fcode <= AARCH64_RBITLL)
> + return aarch64_expand_builtin_data_intrinsic (fcode, exp, target);
>
> gcc_unreachable ();
> }
> diff --git a/gcc/config/aarch64/aarch64.md b/gcc/config/aarch64/aarch64.md
> index acec8c1146765c0fac73c15351853324b8f03209..ef0aed25c6b26eff61f9f6030dc5921a534e3d19 100644
> --- a/gcc/config/aarch64/aarch64.md
> +++ b/gcc/config/aarch64/aarch64.md
> @@ -4950,7 +4950,7 @@ (define_expand "ffs<mode>2"
> rtx ccreg = aarch64_gen_compare_reg (EQ, operands[1], const0_rtx);
> rtx x = gen_rtx_NE (VOIDmode, ccreg, const0_rtx);
>
> - emit_insn (gen_rbit<mode>2 (operands[0], operands[1]));
> + emit_insn (gen_aarch64_rbit (<MODE>mode, operands[0], operands[1]));
> emit_insn (gen_clz<mode>2 (operands[0], operands[0]));
> emit_insn (gen_csinc3<mode>_insn (operands[0], x, operands[0], const0_rtx));
> DONE;
> @@ -4996,7 +4996,7 @@ (define_insn "clrsb<mode>2"
> [(set_attr "type" "clz")]
> )
>
> -(define_insn "rbit<mode>2"
> +(define_insn "@aarch64_rbit<mode>"
> [(set (match_operand:GPI 0 "register_operand" "=r")
> (unspec:GPI [(match_operand:GPI 1 "register_operand" "r")] UNSPEC_RBIT))]
> ""
> @@ -5017,7 +5017,7 @@ (define_insn_and_split "ctz<mode>2"
> "reload_completed"
> [(const_int 0)]
> "
> - emit_insn (gen_rbit<mode>2 (operands[0], operands[1]));
> + emit_insn (gen_aarch64_rbit (<MODE>mode, operands[0], operands[1]));
> emit_insn (gen_clz<mode>2 (operands[0], operands[0]));
> DONE;
> ")
> @@ -6022,6 +6022,13 @@ (define_insn "bswaphi2"
> [(set_attr "type" "rev")]
> )
>
> +(define_insn "@aarch64_rev16<mode>"
> + [(set (match_operand:GPI 0 "register_operand" "=r")
> + (unspec:GPI [(match_operand:GPI 1 "register_operand" "r")] UNSPEC_REV))]
> + ""
> + "rev16\\t%<w>0, %<w>1"
> + [(set_attr "type" "rev")])
> +
> (define_insn "*aarch64_bfxil<mode>"
> [(set (match_operand:GPI 0 "register_operand" "=r,r")
> (ior:GPI (and:GPI (match_operand:GPI 1 "register_operand" "r,0")
> diff --git a/gcc/config/aarch64/arm_acle.h b/gcc/config/aarch64/arm_acle.h
> index 9775a48c65825b424d3eb442384f5ab87b734fd7..a044bc74553fcf2a49b71290083f3f072fd5a2ce 100644
> --- a/gcc/config/aarch64/arm_acle.h
> +++ b/gcc/config/aarch64/arm_acle.h
> @@ -28,6 +28,7 @@
> #define _GCC_ARM_ACLE_H
>
> #include <stdint.h>
> +#include <stddef.h>
>
> #pragma GCC aarch64 "arm_acle.h"
>
> @@ -35,6 +36,58 @@
> extern "C" {
> #endif
>
> +#define _GCC_ARM_ACLE_ROR_FN(NAME, TYPE) \
> +__extension__ extern __inline TYPE \
> +__attribute__ ((__always_inline__, __gnu_inline__, __artificial__)) \
> +NAME (TYPE __value, uint32_t __rotate) \
> +{ \
> + size_t __size = sizeof (TYPE) * __CHAR_BIT__; \
> + __rotate = __rotate % __size; \
> + return __value >> __rotate | __value << ((__size - __rotate) % __size); \
> +}
> +
> +_GCC_ARM_ACLE_ROR_FN (__ror, uint32_t)
> +_GCC_ARM_ACLE_ROR_FN (__rorl, unsigned long)
> +_GCC_ARM_ACLE_ROR_FN (__rorll, uint64_t)
> +
> +#undef _GCC_ARM_ACLE_ROR_FN
> +
> +#define _GCC_ARM_ACLE_DATA_FN(NAME, BUILTIN, ITYPE, RTYPE) \
> +__extension__ extern __inline RTYPE \
> +__attribute__ ((__always_inline__, __gnu_inline__, __artificial__)) \
> +__##NAME (ITYPE __value) \
> +{ \
> + return __builtin_##BUILTIN (__value); \
> +}
> +
> +_GCC_ARM_ACLE_DATA_FN (clz, clz, uint32_t, unsigned int)
> +_GCC_ARM_ACLE_DATA_FN (clzl, clzl, unsigned long, unsigned int)
> +_GCC_ARM_ACLE_DATA_FN (clzll, clzll, uint64_t, unsigned int)
> +_GCC_ARM_ACLE_DATA_FN (cls, clrsb, uint32_t, unsigned int)
> +_GCC_ARM_ACLE_DATA_FN (clsl, clrsbl, unsigned long, unsigned int)
> +_GCC_ARM_ACLE_DATA_FN (clsll, clrsbll, uint64_t, unsigned int)
> +_GCC_ARM_ACLE_DATA_FN (rev16, aarch64_rev16, uint32_t, uint32_t)
> +_GCC_ARM_ACLE_DATA_FN (rev16l, aarch64_rev16l, unsigned long, unsigned long)
> +_GCC_ARM_ACLE_DATA_FN (rev16ll, aarch64_rev16ll, uint64_t, uint64_t)
> +_GCC_ARM_ACLE_DATA_FN (rbit, aarch64_rbit, uint32_t, uint32_t)
> +_GCC_ARM_ACLE_DATA_FN (rbitl, aarch64_rbitl, unsigned long, unsigned long)
> +_GCC_ARM_ACLE_DATA_FN (rbitll, aarch64_rbitll, uint64_t, uint64_t)
> +_GCC_ARM_ACLE_DATA_FN (revsh, bswap16, int16_t, uint16_t)
The return type should be int16_t.
The clz and cls tests have the old return types (same as the argument
types), but I guess that's a good thing, since it shows that we avoid
the redundant zero-extend in clzll and clsll.
Thanks,
Richard
> +_GCC_ARM_ACLE_DATA_FN (rev, bswap32, uint32_t, uint32_t)
> +_GCC_ARM_ACLE_DATA_FN (revll, bswap64, uint64_t, uint64_t)
> +
> +#undef _GCC_ARM_ACLE_DATA_FN
> +
> +__extension__ extern __inline unsigned long
> +__attribute__ ((__always_inline__, __gnu_inline__, __artificial__))
> +__revl (unsigned long __value)
> +{
> + if (sizeof (unsigned long) == 8)
> + return __revll (__value);
> + else
> + return __rev (__value);
> +}
> +
> #pragma GCC push_options
> #pragma GCC target ("arch=armv8.3-a")
> __extension__ extern __inline int32_t
> diff --git a/gcc/testsuite/gcc.target/aarch64/acle/data-intrinsics.c b/gcc/testsuite/gcc.target/aarch64/acle/data-intrinsics.c
> new file mode 100644
> index 0000000000000000000000000000000000000000..90813184704dfcdaf2d24d523ff744aa6cbedf1a
> --- /dev/null
> +++ b/gcc/testsuite/gcc.target/aarch64/acle/data-intrinsics.c
> @@ -0,0 +1,215 @@
> +/* Test the ACLE data intrinsics. */
> +/* { dg-do assemble } */
> +/* { dg-additional-options "--save-temps -O1" } */
> +/* { dg-final { check-function-bodies "**" "" "" } } */
> +
> +#include "arm_acle.h"
> +
> +/*
> +** test_clz:
> +** clz w0, w0
> +** ret
> +*/
> +
> +uint32_t test_clz (uint32_t a)
> +{
> + return __clz (a);
> +}
> +
> +/*
> +** test_clzl:
> +** clz [wx]0, [wx]0
> +** ret
> +*/
> +
> +unsigned long test_clzl (unsigned long a)
> +{
> + return __clzl (a);
> +}
> +
> +/*
> +** test_clzll:
> +** clz x0, x0
> +** ret
> +*/
> +
> +uint64_t test_clzll (uint64_t a)
> +{
> + return __clzll (a);
> +}
> +
> +/*
> +** test_cls:
> +** cls w0, w0
> +** ret
> +*/
> +
> +uint32_t test_cls (uint32_t a)
> +{
> + return __cls (a);
> +}
> +
> +/*
> +** test_clsl:
> +** cls [wx]0, [wx]0
> +** ret
> +*/
> +
> +unsigned long test_clsl (unsigned long a)
> +{
> + return __clsl (a);
> +}
> +
> +/*
> +** test_clsll:
> +** cls x0, x0
> +** ret
> +*/
> +
> +uint64_t test_clsll (uint64_t a)
> +{
> + return __clsll (a);
> +}
> +
> +/*
> +** test_rbit:
> +** rbit w0, w0
> +** ret
> +*/
> +
> +uint32_t test_rbit (uint32_t a)
> +{
> + return __rbit (a);
> +}
> +
> +/*
> +** test_rbitl:
> +** rbit [wx]0, [wx]0
> +** ret
> +*/
> +
> +unsigned long test_rbitl (unsigned long a)
> +{
> + return __rbitl (a);
> +}
> +
> +/*
> +** test_rbitll:
> +** rbit x0, x0
> +** ret
> +*/
> +
> +uint64_t test_rbitll (uint64_t a)
> +{
> + return __rbitll (a);
> +}
> +
> +/*
> +** test_rev:
> +** rev w0, w0
> +** ret
> +*/
> +
> +uint32_t test_rev (uint32_t a)
> +{
> + return __builtin_bswap32 (a);
> +}
> +
> +/*
> +** test_revl:
> +** rev [wx]0, [wx]0
> +** ret
> +*/
> +
> +unsigned long test_revl (unsigned long a)
> +{
> + return __revl (a);
> +}
> +
> +/*
> +** test_revll:
> +** rev x0, x0
> +** ret
> +*/
> +
> +uint64_t test_revll (uint64_t a)
> +{
> + return __revll (a);
> +}
> +
> +/*
> +** test_rev16:
> +** rev16 w0, w0
> +** ret
> +*/
> +
> +uint32_t test_rev16 (uint32_t a)
> +{
> + return __rev16 (a);
> +}
> +
> +/*
> +** test_rev16l:
> +** rev16 [wx]0, [wx]0
> +** ret
> +*/
> +
> +unsigned long test_rev16l (unsigned long a)
> +{
> + return __rev16l (a);
> +}
> +
> +/*
> +** test_rev16ll:
> +** rev16 x0, x0
> +** ret
> +*/
> +
> +uint64_t test_rev16ll (uint64_t a)
> +{
> + return __rev16ll (a);
> +}
> +
> +/*
> +** test_ror:
> +** ror w0, w0, w1
> +** ret
> +*/
> +
> +uint32_t test_ror (uint32_t a, uint32_t r)
> +{
> + return __ror (a, r);
> +}
> +
> +/*
> +** test_rorl:
> +** ror [wx]0, [wx]0, [wx]1
> +** ret
> +*/
> +
> +unsigned long test_rorl (unsigned long a, uint32_t r)
> +{
> + return __rorl (a, r);
> +}
> +
> +/*
> +** test_rorll:
> +** ror x0, x0, x1
> +** ret
> +*/
> +
> +uint64_t test_rorll (uint64_t a, uint32_t r)
> +{
> + return __rorll (a, r);
> +}
> +
> +/*
> +** test_revsh:
> +** rev16 w0, w0
> +** ret
> +*/
> +
> +int16_t test_revsh (int16_t a)
> +{
> + return __revsh (a);
> +}
next prev parent reply other threads:[~2022-06-29 7:18 UTC|newest]
Thread overview: 11+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-06-10 13:37 Andre Vieira (lists)
2022-06-17 10:54 ` Richard Sandiford
2022-06-28 14:04 ` Andre Vieira (lists)
2022-06-29 7:18 ` Richard Sandiford [this message]
2022-07-01 10:25 ` Andre Vieira (lists)
2022-07-01 11:26 ` Richard Sandiford
2022-08-11 15:11 ` Andre Vieira (lists)
2022-08-11 15:21 ` Kyrylo Tkachov
2022-10-04 10:33 ` Andre Vieira (lists)
2022-10-05 8:47 ` Kyrylo Tkachov
2022-10-06 7:23 ` Richard Biener
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=mpt5ykkvsyd.fsf@arm.com \
--to=richard.sandiford@arm.com \
--cc=Kyrylo.Tkachov@arm.com \
--cc=andre.simoesdiasvieira@arm.com \
--cc=gcc-patches@gcc.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).