paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-17 23:09:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* x86: m128 etc. are now vector arrays (giving correct memory alignment) and "use_vectorfpu" will return True for these types

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-04-05 03:47:11 +01:00 committed by FPK
parent 05b73f1523
commit 6ca6666d28
2 changed files with 42 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/psystem.pas
View File

@ -425,13 +425,13 @@ implementation
wordfarpointertype:=tcpupointerdefclass(cpointerdef).createx86(u16inttype,x86pt_far);
longintfarpointertype:=tcpupointerdefclass(cpointerdef).createx86(s32inttype,x86pt_far);
{$endif i8086}
x86_m64type:=carraydef.create(0,1,s32inttype);
x86_m128type:=carraydef.create(0,3,s32inttype);
x86_m128dtype:=carraydef.create(0,1,s32inttype);
x86_m128itype:=carraydef.create(0,3,s32inttype);
x86_m256type:=carraydef.create(0,7,s32inttype);
x86_m256dtype:=carraydef.create(0,3,s32inttype);
x86_m256itype:=carraydef.create(0,7,s32inttype);
x86_m64type:=carraydef.create_vector(0,1,s32inttype);
x86_m128type:=carraydef.create_vector(0,3,s32inttype);
x86_m128dtype:=carraydef.create_vector(0,1,s32inttype);
x86_m128itype:=carraydef.create_vector(0,3,s32inttype);
x86_m256type:=carraydef.create_vector(0,7,s32inttype);
x86_m256dtype:=carraydef.create_vector(0,3,s32inttype);
x86_m256itype:=carraydef.create_vector(0,7,s32inttype);
tarraydef(x86_m64type).elementdef:=s32floattype;
tarraydef(x86_m128type).elementdef:=s32floattype;

36
compiler/symdef.pas
View File

@ -9563,7 +9563,41 @@ implementation
{$ifdef x86}
{$define use_vectorfpuimplemented}
use_vectorfpu:=(is_single(def) and (current_settings.fputype in sse_singlescalar)) or
(is_double(def) and (current_settings.fputype in sse_doublescalar));
(is_double(def) and (current_settings.fputype in sse_doublescalar)) or
{ Check vector types }
(
is_normal_array(def) and
(ado_IsVector in tarraydef(def).arrayoptions) and
(
(
is_single(tarraydef(def).elementdef) and
(
{ SSE or AVX XMM register }
((tarraydef(def).elecount = 4) and (current_settings.fputype in sse_singlescalar)) or
{ AVX YMM register }
((tarraydef(def).elecount = 8) and (current_settings.fputype in fpu_avx_instructionsets))
{$ifndef i8086}
or
{ AVX512 ZMM register }
((tarraydef(def).elecount = 16) and (current_settings.fputype in [fpu_avx512f]))
{$endif not i8086}
)
) or
(
is_double(tarraydef(def).elementdef) and
(
{ SSE or AVX XMM register }
((tarraydef(def).elecount = 2) and (current_settings.fputype in sse_doublescalar)) or
{ AVX YMM register }
((tarraydef(def).elecount = 4) and (current_settings.fputype in fpu_avx_instructionsets))
{$ifndef i8086}
{ AVX512 ZMM register }
or ((tarraydef(def).elecount = 8) and (current_settings.fputype in [fpu_avx512f]))
{$endif not i8086}
)
)
)
);
{$endif x86}
{$ifdef arm}
{$define use_vectorfpuimplemented}