mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 20:08:12 +02:00
ac283bb237
forward-declared class, only search the current symtable rather than the
entire symtable stack (to prevent finding types in e.g. nested types)
git-svn-id: trunk@17128 -
24 lines
251 B
ObjectPascal
24 lines
251 B
ObjectPascal
{ %norun }
|
|
|
|
{$mode delphi}
|
|
|
|
type
|
|
tc = class
|
|
type
|
|
tforward = class;
|
|
|
|
tnested = class
|
|
type
|
|
tforward = class;
|
|
|
|
tforward = class
|
|
end;
|
|
end;
|
|
|
|
tforward = class
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
end.
|