blob: 627c097e268a2e7c62a54e8388cd91dab4f25b76 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ %fail }
{ Source provided for Free Pascal Bug Report 3812 }
{ Submitted by "Sergey@michint" on 2005-03-22 }
{ e-mail: }
type
LARGE_INTEGER = record
LowPart : Cardinal;
HighPart : LongInt;
end;
procedure t(li1: Large_Integer); stdcall;
begin
end;
begin
t(Large_Integer(1111111111111111));
end.
|