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

* use variables of correct size with movd (test checks whether movd only

Browse Source 
reads 32 bit even when destination is xmm register) (mantis #35701,
    as noted by J. Gareth Moreton)

git-svn-id: trunk@42268 -
This commit is contained in:
Jonas Maebe 2019-06-22 13:31:02 +00:00
parent 67172ef705
commit fb387da807
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tests/webtbs/tw13294.pp
View File

@ -6,14 +6,17 @@ program movdtest;
var var
a: int64 = 128133443 or (int64(123455) shl 32); a: int64 = 128133443 or (int64(123455) shl 32);
b: int64; b: int64;
al: longint absolute a;
bl: longint absolute b;
begin begin
b:=0;
asm asm
{$ifdef cpui386} {$ifdef cpui386}
movd a, %xmm0 movd al, %xmm0
movd %xmm0, b movd %xmm0, bl
{$else} {$else}
movd a(%rip), %xmm0 movd al(%rip), %xmm0
movd %xmm0, b(%rip) movd %xmm0, bl(%rip)
{$endif} {$endif}
end; end;
if b<>128133443 then if b<>128133443 then