blob: 3a6960a6bc3e21611b866a8ac53a8b8db869d6a6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{ %cpu=i386 }
{ Source provided for Free Pascal Bug Report 2631 }
{ Submitted by "Arnstein" on 2003-08-12 }
{ e-mail: Arnstein.Prytz@jcu.edu.au }
{$ifdef fpc}{$mode delphi}{$endif}
function d : int64;
begin
asm
xor ecx,ecx
mov dword ptr Result,$00000000;
mov dword ptr Result+4,$00100000;
mov dword ptr Result[4+ECX*2],$00100000;
end;
end;
begin
WRITELN( d );
if d<>$0010000000000000 then
halt(1);
end.
|
