Browse Source

* TArray is now in system unit

Michaël Van Canneyt 2 years ago
parent
commit
ceddc2aec3
2 changed files with 4 additions and 5 deletions
  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