mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 20:33:13 +02:00
8e788c6fa5
declared inside the the current structdef hierarchy: properly deal with
multiple types of the same name nested into each other, by keeping track
of at which point in the hierarchy we found the first type (and afterwards
continuing from there, instead of from any point in the hierarchy where
a type with this name can be found)
git-svn-id: trunk@17126 -
18 lines
170 B
ObjectPascal
18 lines
170 B
ObjectPascal
{ %norun }
|
|
{$mode delphi}
|
|
|
|
type
|
|
tc = class
|
|
type
|
|
tnest = class
|
|
end;
|
|
end;
|
|
td = class(tc)
|
|
type
|
|
tnest = class(tc.tnest)
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
end.
|