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

* Values outside signed 32-bit can only be assigned to a 64-bit register in one instruction, not to memory

Browse Source 
git-svn-id: trunk@19512 -
This commit is contained in:
pierre 2011-10-19 10:16:08 +00:00
parent f5d2c3a446
commit d3e50e9aa8
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/webtbs/tw17337.pp
View File

@ -4,7 +4,7 @@
{$asmmode att} {$asmmode att}
procedure test_gas; procedure test_gas;
var var
test : qword; test : qword;
begin begin
@ -14,12 +14,13 @@ begin
if (test < qword($ffffffff)) then if (test < qword($ffffffff)) then
runerror(2); runerror(2);
asm asm
movq $0xffffffff,test movq $0xffffffff,%rax
movq %rax,test
end; end;
if test <> $ffffffff then if test <> $ffffffff then
runerror(5); runerror(5);
end ; end ;
var var
test : qword; test : qword;
begin begin