blob: 86e9bfddd34748f97dd2cd577111d366834ddf62 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
{ %target=win64, linux, freebsd }
{ %cpu=x86_64 }
{ %opt=-Aas }
{$asmmode att}
procedure test_gas;
var
test : qword;
begin
test:=$5ffffffff;
if (test < qword($2ffffffff)) then
runerror(1);
if (test < qword($ffffffff)) then
runerror(2);
asm
movq $0xffffffff,test
end;
if test <> $ffffffff then
runerror(5);
end ;
var
test : qword;
begin
test:=$5ffffffff;
if (test < qword($2ffffffff)) then
runerror(3);
if (test < qword($ffffffff)) then
runerror(4);
test_gas;
end.
|
