mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-31 21:06:01 +02:00
17 lines
305 B
ObjectPascal
17 lines
305 B
ObjectPascal
{ 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.
|