From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2078) id EA737385842D; Mon, 8 Nov 2021 01:31:17 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org EA737385842D MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: hongtao Liu To: gcc-cvs@gcc.gnu.org Subject: [gcc r12-4984] [Gimple] Simplify (trunc)fma ((extend)a, (extend)b, (extend)c) to IFN_FMA (a, b, c). X-Act-Checkin: gcc X-Git-Author: liuhongt X-Git-Refname: refs/heads/master X-Git-Oldrev: 3cb25fd1adb26cddc57cd9ae356f72de96ec2daa X-Git-Newrev: 2ad1e8081f4797a99a96b513ffe14c7305e9b3d8 Message-Id: <20211108013117.EA737385842D@sourceware.org> Date: Mon, 8 Nov 2021 01:31:17 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Mon, 08 Nov 2021 01:31:18 -0000 https://gcc.gnu.org/g:2ad1e8081f4797a99a96b513ffe14c7305e9b3d8 commit r12-4984-g2ad1e8081f4797a99a96b513ffe14c7305e9b3d8 Author: liuhongt Date: Mon Nov 8 09:19:29 2021 +0800 [Gimple] Simplify (trunc)fma ((extend)a, (extend)b, (extend)c) to IFN_FMA (a,b, c). a, b, c are same type as truncation type and has less precision than extend type, the optimization is guarded under flag_unsafe_math_optimizations. gcc/ChangeLog: PR target/102464 * match.pd: Simplify (trunc)fma ((extend)a, (extend)b, (extend)c) to IFN_FMA (a, b, c) under flag_unsafe_math_optimizations. gcc/testsuite/ChangeLog: * gcc.target/i386/pr102464-fma.c: New test. Diff: --- gcc/match.pd | 15 +++++++++++++ gcc/testsuite/gcc.target/i386/pr102464-fma.c | 32 ++++++++++++++++++++++++++++ 2 files changed, 47 insertions(+) diff --git a/gcc/match.pd b/gcc/match.pd index 917833dd14b..869b26d16a0 100644 --- a/gcc/match.pd +++ b/gcc/match.pd @@ -6217,6 +6217,21 @@ DEFINE_INT_AND_FLOAT_ROUND_FN (RINT) type, OPTIMIZE_FOR_BOTH)) (IFN_COPYSIGN @0 @1)))) +(for froms (BUILT_IN_FMAF BUILT_IN_FMA BUILT_IN_FMAL) + tos (IFN_FMA IFN_FMA IFN_FMA) + (simplify + (convert (froms (convert@3 @0) (convert @1) (convert @2))) + (if (flag_unsafe_math_optimizations + && optimize + && FLOAT_TYPE_P (type) + && FLOAT_TYPE_P (TREE_TYPE (@3)) + && types_match (type, TREE_TYPE (@0)) + && types_match (type, TREE_TYPE (@1)) + && types_match (type, TREE_TYPE (@2)) + && TYPE_PRECISION (type) < TYPE_PRECISION (TREE_TYPE (@3)) + && direct_internal_fn_supported_p (as_internal_fn (tos), + type, OPTIMIZE_FOR_BOTH)) + (tos @0 @1 @2)))) #endif (for froms (XFLOORL XCEILL XROUNDL XRINTL) diff --git a/gcc/testsuite/gcc.target/i386/pr102464-fma.c b/gcc/testsuite/gcc.target/i386/pr102464-fma.c new file mode 100644 index 00000000000..9c70d93d980 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/pr102464-fma.c @@ -0,0 +1,32 @@ +/* PR target/102464. */ +/* { dg-do compile } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl -ffast-math -ftree-vectorize -mtune=generic -mfpmath=sse" } */ +/* { dg-final { scan-assembler-times "vfmadd...ph" 3 } } */ +/* { dg-final { scan-assembler-times "vfmadd...sh" 3 } } */ +/* { dg-final { scan-assembler-times "vfmadd...ps" 2 } } */ +/* { dg-final { scan-assembler-times "vfmadd...ss" 2 } } */ +/* { dg-final { scan-assembler-times "vfmadd...pd" 1 } } */ +/* { dg-final { scan-assembler-times "vfmadd...sd" 1 } } */ + +#include +#define FOO(TYPE,SUFFIX) \ + void \ + foo_vect_##TYPE##SUFFIX (TYPE* __restrict a, TYPE* b, TYPE* c, TYPE* d) \ + { \ + for (int i = 0; i != 8; i++) \ + a[i] = fma##SUFFIX (b[i], c[i], d[i]); \ + } \ + TYPE \ + foo_##TYPE##SUFFIX (TYPE b, TYPE c, TYPE d) \ + { \ + return fma##l (b, c, d); \ + } + +FOO (_Float16, f); +FOO (_Float16,); +FOO (_Float16, l); + +FOO (float,); +FOO (float, l); + +FOO (double, l);