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

* Stack is enumerated from bottom up

Browse Source
This commit is contained in:
michael 2020-06-07 15:36:14 +00:00
parent 362986f47b
commit c72c0faa30
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl/generics.collections.pas
View File

@ -314,7 +314,7 @@ type
{ TEnumerator }
TEnumerator = class(TCustomInvertedListEnumerator<T>)
TEnumerator = class(TCustomListEnumerator<T>)
public
constructor Create(AStack: TMyType);
end;

8
test/tcgenericstack.pp
View File

@ -357,7 +357,7 @@ begin
For I:=1 to 3 do
begin
SI:=IntToStr(I);
AssertEquals('Value '+SI,SI,A[3-i]);
AssertEquals('Value '+SI,SI,A[i-1]);
end;
end;
@ -371,12 +371,12 @@ Var
begin
DoAdd(3);
I:=3;
I:=1;
For A in Stack do
begin
SI:=IntToStr(i);
AssertEquals('Value '+SI,SI,A);
Dec(I);
Inc(I);
end;
end;
@ -392,7 +392,7 @@ procedure TTestSimpleStack.TestValueNotificationDelete;
begin
DoAdd(3);
Stack.OnNotify:=@DoValueNotify;
SetExpectValues('Clear',['3','2','1'],[cnRemoved,cnRemoved,cnRemoved],{$IFDEF FPC}true{$ELSE}False{$endif});
SetExpectValues('Clear',['3','2','1'],[cnRemoved,cnRemoved,cnRemoved],False);
Stack.Clear;
DoneExpectValues;
end;