mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:47:56 +02:00
d03507671d
pgenutil.pas, parse_generic_parameters: * set the typesym of the newly created def so that inline specializations in pexpr.pas, sub_expr can check it correctly git-svn-id: trunk@25410 -
25 lines
478 B
ObjectPascal
25 lines
478 B
ObjectPascal
unit tw24953;
|
|
|
|
interface
|
|
{$mode delphi}
|
|
|
|
Type
|
|
TPoolablePool<t:class,constructor> = class
|
|
factory : TObject;
|
|
constructor create;
|
|
end;
|
|
|
|
TPoolableFactory<t>= class
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TPoolablePool<t> }
|
|
|
|
constructor TPoolablePool<t>.create; // last line visible in -va output before crash
|
|
begin
|
|
factory:=TPoolableFactory<t>.create;
|
|
end;
|
|
|
|
end.
|