mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
0d1d3d8e72
pgenutil.pas: * parse_generic_parameters & insert_generic_parameter_types: create the type parameter symbols as strict private instead of public (which is the default visiblity) * adjusted two tests which relied on this behavior (that's why I fixed the type aliases previously) + added test git-svn-id: trunk@29486 -
46 lines
603 B
ObjectPascal
46 lines
603 B
ObjectPascal
{$mode objfpc}{$h+}
|
|
type
|
|
generic TNode<T> = class
|
|
public
|
|
type
|
|
TAlias = T;
|
|
PT = T;
|
|
private
|
|
var
|
|
Data: T;
|
|
public
|
|
constructor Create;
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
TTNodeLongint = specialize TNode<Longint>;
|
|
|
|
TTNodeString = specialize TNode<String>;
|
|
|
|
constructor TNode.Create;
|
|
begin
|
|
end;
|
|
|
|
destructor TNode.Destroy;
|
|
begin
|
|
inherited Destroy;
|
|
end;
|
|
|
|
|
|
function GetIntNode: TTNodeLongint.TAlias;
|
|
begin
|
|
result := 10;
|
|
end;
|
|
|
|
|
|
function GetStringNode: TTNodeString.PT;
|
|
begin
|
|
result := 'abc';
|
|
end;
|
|
|
|
begin
|
|
writeln(GetIntNode);
|
|
writeln(GetStringNode);
|
|
end.
|
|
|