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

* test fixed for i386

Browse Source 
git-svn-id: trunk@43193 -
This commit is contained in:
florian 2019-10-13 20:11:55 +00:00
parent 626ef4ae0c
commit e02321029f
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/webtbs/tw35953.pp
View File

@ -5,9 +5,13 @@
function f: longint; assembler; function f: longint; assembler;
asm asm
mov ecx, ebx {shift by initial common exponent e} mov ecx, ebx {shift by initial common exponent e}
{$ifdef cpui386}
vaddpd XMM0 {k1} {z}, XMM0, [EAX + EDI + $10] {1to2}
{$else cpui386}
vaddpd XMM0 {k1} {z}, XMM0, [RAX + RDI + $10] {1to2} vaddpd XMM0 {k1} {z}, XMM0, [RAX + RDI + $10] {1to2}
{$endif cpui386}
end; end;
begin begin
end. end.