mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
31 lines
359 B
ObjectPascal
31 lines
359 B
ObjectPascal
{ %norun }
|
|
|
|
{$ifdef fpc}
|
|
{$mode objfpc}
|
|
{$endif}
|
|
|
|
type
|
|
tc = class
|
|
end;
|
|
tcc = class of tc;
|
|
tc3 = class;
|
|
|
|
tprec = ^trec;
|
|
|
|
tc2 = class
|
|
constructor create(c: tcc = nil; c3: tc3 = nil; r: tprec = nil);
|
|
end;
|
|
|
|
trec = record
|
|
end;
|
|
|
|
tc3 = class
|
|
end;
|
|
|
|
constructor tc2.create(c: tcc = nil; c3: tc3 = nil; r: tprec = nil);
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end.
|