mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 13:08:13 +02:00
5115c3e680
nutils.pas, handle_staticfield_access: * generics don't have staticvarsyms for their static fieldvarsyms so we need to simulate a non-static access to avoid 1) an exception and 2) incorrect errors that instance methods can't be accessed + added tests git-svn-id: trunk@29484 -
23 lines
195 B
ObjectPascal
23 lines
195 B
ObjectPascal
{ %FAIL }
|
|
|
|
program tb0250;
|
|
|
|
{$mode delphi}
|
|
|
|
type
|
|
TTest<T> = class
|
|
class var
|
|
fTest: TClass;
|
|
procedure Test;
|
|
end;
|
|
|
|
procedure TTest<T>.Test;
|
|
begin
|
|
fTest.ToString;
|
|
end;
|
|
|
|
begin
|
|
|
|
end.
|
|
|