From 1d474f822e015968b3a0a5b592a454cad726ffc4 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 21 Nov 2020 22:30:33 +0000
Subject: [PATCH] * fits_in_mm_register takes care of avx(512) support
git-svn-id: trunk@47523 -
---
compiler/defutil.pas | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/compiler/defutil.pas b/compiler/defutil.pas
index d5e4c31ace..e31893e5bb 100644
--- a/compiler/defutil.pas
+++ b/compiler/defutil.pas
@@ -1358,7 +1358,10 @@ implementation
(tarraydef(p).elementdef.typ=floatdef) and
(
(tarraydef(p).lowrange=0) and
- (tarraydef(p).highrange=3) and
+ ((tarraydef(p).highrange=3) or
+ (UseAVX and (tarraydef(p).highrange=7)) or
+ (UseAVX512 and (tarraydef(p).highrange=15))
+ ) and
(tfloatdef(tarraydef(p).elementdef).floattype=s32real)
)
) or
@@ -1367,7 +1370,10 @@ implementation
(tarraydef(p).elementdef.typ=floatdef) and
(
(tarraydef(p).lowrange=0) and
- (tarraydef(p).highrange=1) and
+ ((tarraydef(p).highrange=1) or
+ (UseAVX and (tarraydef(p).highrange=3)) or
+ (UseAVX512 and (tarraydef(p).highrange=7))
+ )and
(tfloatdef(tarraydef(p).elementdef).floattype=s64real)
)
) {or