Ver código fonte

* fix compilation, mode ObjFPC requires specialize keyword

svenbarth 4 anos atrás
pai
commit
06c02531e0
1 arquivos alterados com 2 adições e 2 exclusões
  1. 2 2
      packages/rtl/classes.pas

+ 2 - 2
packages/rtl/classes.pas

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