Преглед изворни кода

* TStack<>.TrimExcess should override TCustomList<>.TrimExcess

svenbarth пре 5 година
родитељ
комит
cbcbf73cbf
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      packages/rtl/generics.collections.pas

+ 1 - 1
packages/rtl/generics.collections.pas

@@ -326,7 +326,7 @@ type
     function Pop: T;
     function Peek: T;
     function Extract: T;
-    procedure TrimExcess;
+    procedure TrimExcess; override;
     property Count: SizeInt read GetCount;
   end;