paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-27 18:13:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use V* instructions if possible

Browse Source 
* fix i386 compilation

git-svn-id: trunk@47076 -
This commit is contained in:
florian 2020-10-10 13:50:35 +00:00
parent 00c6d530b5
commit c2684c0dc3
2 changed files with 29 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/i386/aoptcpu.pas
View File

@ -203,9 +203,7 @@ unit aoptcpu;
A_VANDPD,
A_VANDPS,
A_VORPD,
A_VORPS,
A_VXORPD,
A_VXORPS:
A_VORPS:
Result:=OptPass1VOP(p);
A_MULSD,
A_MULSS,

34
compiler/x86/cgx86.pas
View File

@ -1851,6 +1851,27 @@ unit cgx86;
)
)
);
opmm2asmop_avx : array[0..1,OS_F32..OS_F64,topcg] of tasmop = (
( { scalar }
( { OS_F32 }
A_NOP,A_NOP,A_VADDSS,A_NOP,A_VDIVSS,A_NOP,A_NOP,A_VMULSS,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_VSUBSS,A_VXORPS,A_NOP,A_NOP
),
( { OS_F64 }
A_NOP,A_NOP,A_VADDSD,A_NOP,A_VDIVSD,A_NOP,A_NOP,A_VMULSD,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_VSUBSD,A_VXORPD,A_NOP,A_NOP
)
),
( { vectorized/packed }
{ because the logical packed single instructions have shorter op codes, we use always
these
}
( { OS_F32 }
A_NOP,A_NOP,A_VADDPS,A_NOP,A_VDIVPS,A_NOP,A_NOP,A_VMULPS,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_VSUBPS,A_VXORPS,A_NOP,A_NOP
),
( { OS_F64 }
A_NOP,A_NOP,A_VADDPD,A_NOP,A_VDIVPD,A_NOP,A_NOP,A_VMULPD,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_VSUBPD,A_VXORPD,A_NOP,A_NOP
)
)
);
opmm2asmop_full : array[topcg] of tasmop = (
A_NOP,A_NOP,A_NOP,A_PAND,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_NOP,A_POR,A_NOP,A_NOP,A_NOP,A_NOP,A_PXOR,A_NOP,A_NOP
);
@ -1886,13 +1907,14 @@ unit cgx86;
end
else if shufflescalar(shuffle) then
begin
asmop:=opmm2asmop[0,size,op];
{ no scalar operation available? }
if asmop=A_NOP then
if UseAVX then
begin
{ do vectorized and shuffle finally }
internalerror(2010060102);
end;
asmop:=opmm2asmop_avx[0,size,op];
if size in [OS_M256,OS_M512] then
Include(current_procinfo.flags,pi_uses_ymm);
end
else
asmop:=opmm2asmop[0,size,op];
end
else
internalerror(200312211);