mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:07:58 +02:00
5fd47d5e00
symtable.pas, is_visible_for_object: * if the symtable belongs to a specialization we need to ignore any owning local- or parasymtable as well to determine which unit it belongs to + added test git-svn-id: trunk@29482 -
25 lines
283 B
ObjectPascal
25 lines
283 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw26483;
|
|
|
|
{$MODE DELPHI}
|
|
|
|
type
|
|
TA<T> = class
|
|
private
|
|
F: Integer;
|
|
end;
|
|
|
|
TB<T> = class
|
|
procedure Foo(A: TObject);
|
|
end;
|
|
|
|
procedure TB<T>.Foo(A: TObject);
|
|
begin
|
|
WriteLn(TA<T>(A).F); // p004.Error: identifier idents no member "F"
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|