mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 10:59:29 +02:00
1ee8207ffa
to complex types (caused a lot of internal errors later on, and
was also Delphi-incompatible)
git-svn-id: trunk@8369 -
19 lines
316 B
ObjectPascal
19 lines
316 B
ObjectPascal
{ %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.
|