paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 21:30:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

# revisions: 47122

Browse Source 
git-svn-id: branches/fixes_3_2@47262 -
This commit is contained in:
marco 2020-10-31 18:53:06 +00:00
parent 55401227f9
commit f3b048007c
3 changed files with 37 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -17701,6 +17701,7 @@ tests/webtbs/tw37228.pp svneol=native#text/plain
tests/webtbs/tw37322.pp svneol=native#text/pascal tests/webtbs/tw37322.pp svneol=native#text/pascal
tests/webtbs/tw37323.pp svneol=native#text/pascal tests/webtbs/tw37323.pp svneol=native#text/pascal
tests/webtbs/tw37355.pp svneol=native#text/pascal tests/webtbs/tw37355.pp svneol=native#text/pascal
tests/webtbs/tw37382.pp svneol=native#text/pascal
tests/webtbs/tw37397.pp svneol=native#text/plain tests/webtbs/tw37397.pp svneol=native#text/plain
tests/webtbs/tw37415.pp svneol=native#text/plain tests/webtbs/tw37415.pp svneol=native#text/plain
tests/webtbs/tw3742.pp svneol=native#text/plain tests/webtbs/tw3742.pp svneol=native#text/plain

1
packages/fcl-stl/src/gdeque.pp
View File

@ -212,6 +212,7 @@ var i:SizeUInt;
begin begin
if Position <= Size then if Position <= Size then
begin begin
if Size > 1 then
for i:=Position to Size-2 do for i:=Position to Size-2 do
begin begin
Items[i]:=Items[i+1]; Items[i]:=Items[i+1];

20
tests/webtbs/tw37382.pp Normal file
View File

@ -0,0 +1,20 @@
{$mode objfpc}
{$h+}
uses
GDeque;
type
TIntQueue = specialize TDeque<Integer>;
var
Q: TIntQueue;
begin
Q := TIntQueue.Create;
Q.Insert(0, 12345);
writeln('Size=',Q.Size);
Q.Erase(0);
writeln('Size=',Q.Size);
Q.Free;
end.