paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 14:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fits_in_mm_register takes care of avx(512) support

Browse Source 
git-svn-id: trunk@47523 -
This commit is contained in:
florian 2020-11-21 22:30:33 +00:00
parent d5dcf5cd7a
commit 1d474f822e
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/defutil.pas
View File

@ -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