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

Generics/NativeGenerics/Units/GenericQueue.pas

@@ -11 +11 @@
   TGQueue<TItem> = class
   private
-  type
-    TGQueueList = TGList<TItem>;
   var
-    FList: TGQueueList;
+    FList: TGList<TItem>;
   public
     procedure Enqueue(Value: TItem);
@@ -21 +19 @@
     constructor Create;
     destructor Destroy; override;
-    property List: TGQueueList read FList;
+    property List: TGList<TItem> read FList;
   end;
 
@@ -40 +38 @@
 constructor TGQueue<TItem>.Create;
 begin
-  FList := TGList.Create;
+  FList := TGList<TItem>.Create;
 end;