paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 01:29:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix test for x86_64 targets using the SysV abi

Browse Source 
git-svn-id: trunk@47638 -
This commit is contained in:
florian 2020-11-29 21:21:34 +00:00
parent b7e2b751cf
commit 8ddcb34e60
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/webtbs/tw29957.pp
View File

@ -45,8 +45,13 @@ type
function _VectorDotProductAVX(Vector1, Vector2: TVector4): Single; assembler; function _VectorDotProductAVX(Vector1, Vector2: TVector4): Single; assembler;
asm asm
{$if defined(cpux86_64) and not(defined(win64))}
VMOVLHPS XMM0,XMM0,XMM1
VMOVLHPS XMM1,XMM2,XMM3
{$else defined(cpux86_64) and not(defined(win64))}
VMOVUPS XMM0, [Vector1] VMOVUPS XMM0, [Vector1]
VMOVUPS XMM1, [Vector2] VMOVUPS XMM1, [Vector2]
{$endif defined(cpux86_64) and not(defined(win64))}
VDPPS XMM0, XMM0, XMM1, $71 { Only perform calculations on the X, Y and Z coordinates; only store result in the first element } VDPPS XMM0, XMM0, XMM1, $71 { Only perform calculations on the X, Y and Z coordinates; only store result in the first element }
VMOVSS Result, XMM0 { Store result - first element of XMM0 } VMOVSS Result, XMM0 { Store result - first element of XMM0 }
end; end;