Changeset 320 for Generics/NativeGenerics/Units/GenericList.pas

Timestamp:

Feb 7, 2012, 2:03:20 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Now NativeGenerics package correctly compile on FPC 2.7.1.

File:

• Generics/NativeGenerics/Units/GenericList.pas (modified) (20 diffs)

Generics/NativeGenerics/Units/GenericList.pas

@@ -34 +34 @@
     function Add(Item: TItem): TIndex;
     procedure AddArray(Values: array of TItem);
-    procedure AddList(List: TGList);
-    procedure Assign(Source: TGList); virtual;
+    procedure AddList(List: TGList<TItem>);
+    procedure Assign(Source: TGList<TItem>); virtual;
     procedure Clear; virtual;
     procedure Delete(Index: TIndex); virtual;
     procedure DeleteItems(Index, Count: TIndex);
-    function EqualTo(List: TGList): Boolean;
+    function EqualTo(List: TGList<TItem>): Boolean;
     procedure Exchange(Index1, Index2: TIndex);
     procedure Explode(Text, Separator: string; Converter: TFromStringConverter; SlicesCount: Integer = -1);
@@ -48 +48 @@
     function Implode(Separator: string; Converter: TToStringConverter): string;
     function IndexOf(Item: TItem; Start: TIndex = 0): TIndex;
-    function IndexOfList(List: TGList; Start: TIndex = 0): TIndex;
+    function IndexOfList(List: TGList<TItem>; Start: TIndex = 0): TIndex;
     procedure Insert(Index: TIndex; Item: TItem);
-    procedure InsertList(Index: TIndex; List: TGList);
+    procedure InsertList(Index: TIndex; List: TGList<TItem>);
     procedure InsertArray(Index: TIndex; Values: array of TItem);
     procedure Move(CurIndex, NewIndex: TIndex);
@@ -64 +64 @@
   end;
 
-  TGListObject<TItem> = class(TGList<TItem>)
+  TListObject<TItem> = class(TGList<TItem>)
   private
     procedure Put(Index: Integer; const AValue: TItem); override;
@@ -76 +76 @@
   end;
 
-  TGListString<TItem> = class(TGList<TItem>)
+  TListString<TItem> = class(TGList<TItem>)
   private
   public
@@ -93 +93 @@
   RtlConsts;
 
-{ TGList }
+{ TGList<TItem> }
 
 function TGList<TItem>.GetCapacity: TIndex;
@@ -195 +195 @@
 end;
 
-procedure TGList<TItem>.Assign(Source: TGList);
+procedure TGList<TItem>.Assign(Source: TGList<TItem>);
 var
   I: TIndex;
@@ -239 +239 @@
 end;
 
-procedure TGList<TItem>.InsertList(Index: TIndex; List: TGList);
+procedure TGList<TItem>.InsertList(Index: TIndex; List: TGList<TItem>);
 var
   I: TIndex;
@@ -250 +250 @@
 end;
 
-function TGList<TItem>.IndexOfList(List: TGList; Start: TIndex): TIndex;
+function TGList<TItem>.IndexOfList(List: TGList<TItem>; Start: TIndex): TIndex;
 var
   I: TIndex;
@@ -353 +353 @@
 end;
 
-function TGList<TItem>.EqualTo(List: TGList): Boolean;
+function TGList<TItem>.EqualTo(List: TGList<TItem>): Boolean;
 var
   I: TIndex;
@@ -453 +453 @@
 end;
 
-procedure TGList<TItem>.AddList(List: TGList);
+procedure TGList<TItem>.AddList(List: TGList<TItem>);
 var
   I: TIndex;
@@ -514 +514 @@
 end;
 
-{ TGListObject }
-
-procedure TGListObject<TItem>.Assign(Source: TGList<TItem>);
+{ TListObject }
+
+procedure TListObject<TItem>.Assign(Source: TGList<TItem>);
 begin
   Clear;
@@ -523 +523 @@
 end;
 
-procedure TGListObject<TItem>.Put(Index: Integer; const AValue: TItem);
+procedure TListObject<TItem>.Put(Index: Integer; const AValue: TItem);
 begin
   if OwnsObjects then FItems[Index].Free;
@@ -529 +529 @@
 end;
 
-procedure TGListObject<TItem>.Delete(Index: Integer);
+procedure TListObject<TItem>.Delete(Index: Integer);
 begin
   if OwnsObjects then FItems[Index].Free;
@@ -535 +535 @@
 end;
 
-procedure TGListObject<TItem>.Clear;
+procedure TListObject<TItem>.Clear;
 var
   I: Integer;
@@ -549 +549 @@
 end;
 
-constructor TGListObject<TItem>.Create;
+constructor TListObject<TItem>.Create;
 begin
   inherited;
@@ -555 +555 @@
 end;
 
-destructor TGListObject<TItem>.Destroy;
+destructor TListObject<TItem>.Destroy;
 begin
   Clear;
@@ -561 +561 @@
 end;
 
-{ TGListString }
-
-procedure TGListString<TItem>.Assign(Source: TGList<TItem>);
+{ TListString }
+
+procedure TListString<TItem>.Assign(Source: TGList<TItem>);
 begin
   Clear;
@@ -569 +569 @@
 end;
 
-procedure TGListString<TItem>.Delete(Index: Integer);
+procedure TListString<TItem>.Delete(Index: Integer);
 begin
   FItems[Index] := '';
@@ -575 +575 @@
 end;
 
-procedure TGListString<TItem>.Clear;
+procedure TListString<TItem>.Clear;
 var
   I: Integer;
@@ -587 +587 @@
 end;
 
-constructor TGListString<TItem>.Create;
+constructor TListString<TItem>.Create;
 begin
   inherited;
 end;
 
-destructor TGListString<TItem>.Destroy;
+destructor TListString<TItem>.Destroy;
 begin
   Clear;