paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-18 15:39:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compilation, mode ObjFPC requires specialize keyword

Browse Source
This commit is contained in:
svenbarth 2020-09-25 13:22:15 +00:00
parent 69da16c052
commit 06c02531e0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl/classes.pas
View File

@ -1403,7 +1403,7 @@ type
procedure RegisterInitComponentHandler(ComponentClass: TComponentClass; Handler: TInitComponentHandler); procedure RegisterInitComponentHandler(ComponentClass: TComponentClass; Handler: TInitComponentHandler);
Procedure RegisterClass(AClass : TPersistentClass); Procedure RegisterClass(AClass : TPersistentClass);
Procedure RegisterClasses(AClasses : TArray<TPersistentClass>); Procedure RegisterClasses(AClasses : specialize TArray<TPersistentClass>);
Function GetClass(AClassName : string) : TPersistentClass; Function GetClass(AClassName : string) : TPersistentClass;
procedure RegisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent); procedure RegisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent);
procedure UnregisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent); procedure UnregisterFindGlobalComponentProc(AFindGlobalComponent: TFindGlobalComponent);
@ -9319,7 +9319,7 @@ begin
ClassList[AClass.ClassName]:=AClass; ClassList[AClass.ClassName]:=AClass;
end; end;
Procedure RegisterClasses(AClasses : TArray<TPersistentClass>); Procedure RegisterClasses(AClasses : specialize TArray<TPersistentClass>);
var var
AClass : TPersistentClass; AClass : TPersistentClass;