mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:28:08 +02:00
856ae9d3cf
pgenutil.pas, generate_specialization: * also search for the generic type in general if it was previously found in a record/class as there might be a non-generic type (or one with a different number of parameters) defined elsewhere + added test git-svn-id: trunk@28244 -
26 lines
350 B
ObjectPascal
26 lines
350 B
ObjectPascal
unit tw26482;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
type
|
|
TEnumerator<T> = class
|
|
end;
|
|
|
|
TList<T> = class
|
|
public
|
|
type
|
|
TEnumerator = class(TObject);
|
|
protected
|
|
function DoGetEnumerator: TEnumerator<T>;
|
|
end;
|
|
|
|
implementation
|
|
|
|
function TList<T>.DoGetEnumerator: TEnumerator<T>; // Error: Identifier not found "TEnumerator$1"
|
|
begin
|
|
end;
|
|
|
|
end.
|