浏览代码

* TArray is now in system unit

Michaël Van Canneyt 2 年之前
父节点
当前提交
ceddc2aec3
共有 2 个文件被更改,包括 4 次插入5 次删除
  1. 3 0
      rtl/inc/objpash.inc
  2. 1 5
      rtl/objpas/objpas.pp

+ 3 - 0
rtl/inc/objpash.inc

@@ -639,6 +639,9 @@ Type
     property Value: Pointer read FValue write FValue;
     property Value: Pointer read FValue write FValue;
   end;
   end;
 
 
+  { Generic array type. 
+    Slightly Less useful in FPC, since dyn array compatibility is at the element level. 
+    But still useful for generic methods and of course Delphi compatibility}
   generic TArray<T> = array of T;
   generic TArray<T> = array of T;
   
   
   TMarshal = class sealed
   TMarshal = class sealed

+ 1 - 5
rtl/objpas/objpas.pp

@@ -68,11 +68,7 @@ interface
        
        
 {$if FPC_FULLVERSION >= 20701}
 {$if FPC_FULLVERSION >= 20701}
 
 
-      { Generic array type. 
-        Slightly Less useful in FPC, since dyn array compatibility is at the element level. 
-        But still useful for generic methods and of course Delphi compatibility}
-      
-      Generic TArray<T> = Array of T;
+     
       
       
       { Generic support for enumerator interfaces. These are added here, because
       { Generic support for enumerator interfaces. These are added here, because
         mode (Obj)FPC does currently not allow the overloading of types with
         mode (Obj)FPC does currently not allow the overloading of types with