mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:38:29 +02:00
5c1b8fdad9
symsym.pas, tfieldvarsym: + add new field fieldvarsym which holds a reference to a tfieldvarsym if the static sym was created based on such a symbol + add necessary methods and code to correctly load from and store to PPU + add new constructor create_from_fieldvar symcreat.pas, make_field_static: * use new create_from_fieldvar constructor instead of the default one hlcgobj.pas, finalize_static_data: * check whether the static var is based on a generic's class var ppu.pas: * increase PPU version + added test git-svn-id: trunk@27466 -
25 lines
274 B
ObjectPascal
25 lines
274 B
ObjectPascal
unit uw19697;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
type
|
|
generic TGenericClass<T> = class
|
|
private
|
|
class var
|
|
FItems: array of T;
|
|
public
|
|
class procedure Init;
|
|
end;
|
|
|
|
implementation
|
|
|
|
class procedure TGenericClass.Init;
|
|
begin
|
|
SetLength(FItems, 1);
|
|
end;
|
|
|
|
end.
|
|
|