paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 17:29:33 +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).elementdef.typ=floatdef) and
( (
(tarraydef(p).lowrange=0) 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) (tfloatdef(tarraydef(p).elementdef).floattype=s32real)
) )
) or ) or
@ -1367,7 +1370,10 @@ implementation
(tarraydef(p).elementdef.typ=floatdef) and (tarraydef(p).elementdef.typ=floatdef) and
( (
(tarraydef(p).lowrange=0) 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) (tfloatdef(tarraydef(p).elementdef).floattype=s64real)
) )
) {or ) {or