paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 11:20:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* apply patch by Andrey Zubarev to avoid a hint regarding the position parameter not being initialized

Browse Source 
git-svn-id: trunk@39785 -
This commit is contained in:
svenbarth 2018-09-21 12:59:59 +00:00
parent 25369b556d
commit f0761d3995
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-stl/src/gset.pp
View File

@ -53,7 +53,7 @@ type
function RotateLeft(nod:PNode):PNode;inline; function RotateLeft(nod:PNode):PNode;inline;
procedure FlipColors(nod:PNode);inline; procedure FlipColors(nod:PNode);inline;
function IsRed(nod:PNode):boolean;inline; function IsRed(nod:PNode):boolean;inline;
function Insert(value:T; nod:PNode; var position:PNode):PNode; function Insert(value:T; nod:PNode; out position:PNode):PNode;
function FixUp(nod:PNode):PNode;inline; function FixUp(nod:PNode):PNode;inline;
function MoveRedLeft(nod:PNode):PNode;inline; function MoveRedLeft(nod:PNode):PNode;inline;
function MoveRedRight(nod:PNode):PNode;inline; function MoveRedRight(nod:PNode):PNode;inline;
@ -413,7 +413,7 @@ begin
InsertAndGetIterator := ret; InsertAndGetIterator := ret;
end; end;
function TSet.Insert(value:T; nod:PNode; var position:PNode):PNode; function TSet.Insert(value:T; nod:PNode; out position:PNode):PNode;
begin begin
if(nod=nil) then begin if(nod=nil) then begin
nod:=CreateNode(value); nod:=CreateNode(value);