Przeglądaj źródła

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

git-svn-id: trunk@19512 -
pierre 13 lat temu
rodzic
commit
d3e50e9aa8
1 zmienionych plików z 4 dodań i 3 usunięć
  1. 4 3
      tests/webtbs/tw17337.pp

+ 4 - 3
tests/webtbs/tw17337.pp

@@ -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