mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 18:47:54 +02:00
fb8b0e7a27
pgenutil.pas, generate_specialization: * use "is_generic" instead of "df_generic in defoptions" as nested non generic types will have that flag set as well and thus would be acceptable for the "<...>" notation although no generic version of it exists ptype.pas, single_type: * check for nested types after doing a specialization + added tests (one for now working case and one for now forbidden case) git-svn-id: trunk@25578 -
49 lines
946 B
ObjectPascal
49 lines
946 B
ObjectPascal
{ %FAIL }
|
|
|
|
unit tw24453;
|
|
|
|
{$mode delphi}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
type
|
|
|
|
{ TIterator }
|
|
|
|
TIterator<T> = class
|
|
end;
|
|
|
|
TAncestor<T> = class
|
|
public type
|
|
TAncestorIterator = class(TIterator<T>)
|
|
end;
|
|
end;
|
|
|
|
TTestClass<T> = class(TAncestor<T>)
|
|
private
|
|
// this compiler recognise
|
|
fAncIterator: TAncestor<T>.TAncestorIterator;
|
|
protected
|
|
// this however does not compile, compiler error is
|
|
// ugenericsnestedclassdeclaration.pas(29,39) Fatal: Syntax error, ";" expected but "." found
|
|
// the same problem as with result type is with arguments of methods aswell
|
|
|
|
//function GetIterator: TAncestor<T>.TAncestorIterator;
|
|
|
|
// this compile, but not compatible with delphi (at least with delphi XE2, which I am using)
|
|
function GetIterator: TAncestorIterator<T>;
|
|
end;
|
|
|
|
implementation
|
|
|
|
function TTestClass<T>.GetIterator: TAncestorIterator<T>;
|
|
begin
|
|
Result := fAncIterator;
|
|
end;
|
|
|
|
end.
|
|
|