paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 10:07:54 +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;
asm
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}
{$endif cpui386}
end;
begin
end.
end.