Changeset 320 for Generics/NativeGenerics/Units/GenericSet.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/GenericSet.pas (modified) (2 diffs)

Generics/NativeGenerics/Units/GenericSet.pas

@@ -11 +11 @@
   TGSet<TItem> = class
   private
-  type
-    TGSetList = TGList<TItem>;
   var
-    FList: TGSetList;
+    FList: TGList<TItem>;
   public
     function IsIn(Item: TItem): Boolean;
     constructor Create;
     destructor Destroy; override;
-    property List: TGSetList read FList;
+    property List: TGList<TItem> read FList;
   end;
 
@@ -33 +31 @@
 constructor TGSet<TItem>.Create;
 begin
-  FList := TGList.Create;
+  FList := TGList<TItem>.Create;
 end;