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

Timestamp:

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

Author:

chronos

Message:

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

File:

• Generics/NativeGenerics/Units/GenericStack.pas (modified) (3 diffs)

Generics/NativeGenerics/Units/GenericStack.pas

@@ -11 +11 @@
   TGStack<TItem> = class
   private
-  type
-    TGStackList = TGList<TItem>;
   var
-    FList: TGStackList;
+    FList: TGList<TItem>;
   public
     procedure Push(Value: TItem);
@@ -20 +18 @@
     constructor Create;
     destructor Destroy; override;
-    property List: TGStackList read FList;
+    property List: TGList<TItem> read FList;
   end;
 
@@ -38 +36 @@
 constructor TGStack<TItem>.Create;
 begin
-  FList := TGList.Create;
+  FList := TGList<TItem>.Create;
 end;