paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 18:17:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

IsEmpty function for Queue, to Delphi compatibility.

Browse Source
This commit is contained in:
Henrique Gottardi Werlang 2024-04-19 07:57:45 -03:00 committed by Michael Van Canneyt
parent 40f5549e77
commit 8df83483e4
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/rtl/src/generics.collections.pas
View File

@ -279,6 +279,7 @@ type
private
FMaxGapLength: Integer;
FLow: SizeInt;
function GetIsEmpty: Boolean;
protected
function DoGetEnumerator: TEnumerator<T>; override;
public
@ -305,6 +306,8 @@ type
function Peek: T;
procedure Clear;
procedure TrimExcess; override;
property IsEmpty: Boolean read GetIsEmpty;
// Maximum gap (=amount of empty slots in array before first element)
// before doing a rebase of the list. Defaults to 10.
Property MaxGapLength : Integer Read FMaxGapLength Write FMaxGapLength;
@ -1805,6 +1808,11 @@ begin
Result := TEnumerator.Create(Self);
end;
function TQueue<T>.GetIsEmpty: Boolean;
begin
Result := Count = 0;
end;
procedure TQueue<T>.SetCapacity(AValue: SizeInt);
begin
if AValue < Count then