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

* changed some var parameters to out. the context allows that. it's required to prevent "not initialized variable" warning.

Browse Source 
git-svn-id: trunk@14886 -
This commit is contained in:
ivost 2010-02-11 15:52:37 +00:00
parent fb1e916ed2
commit 02b4a626de
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/objpas/fgl.pp
View File

@ -216,11 +216,11 @@ type
ADataSize: integer = sizeof(Pointer));
function Add(AKey, AData: Pointer): Integer;
function Add(AKey: Pointer): Integer;
function Find(AKey: Pointer; var Index: Integer): Boolean;
function Find(AKey: Pointer; out Index: Integer): Boolean;
function IndexOf(AKey: Pointer): Integer;
function IndexOfData(AData: Pointer): Integer;
function Insert(Index: Integer): Pointer;
procedure Insert(Index: Integer; var AKey, AData: Pointer);
procedure Insert(Index: Integer; out AKey, AData: Pointer);
procedure InsertKey(Index: Integer; AKey: Pointer);
procedure InsertKeyData(Index: Integer; AKey, AData: Pointer);
function Remove(AKey: Pointer): Integer;
@ -262,7 +262,7 @@ type
constructor Create;
function Add(const AKey: TKey; const AData: TData): Integer; {$ifdef CLASSESINLINE} inline; {$endif}
function Add(const AKey: TKey): Integer; {$ifdef CLASSESINLINE} inline; {$endif}
function Find(const AKey: TKey; var Index: Integer): Boolean; {$ifdef CLASSESINLINE} inline; {$endif}
function Find(const AKey: TKey; out Index: Integer): Boolean; {$ifdef CLASSESINLINE} inline; {$endif}
function IndexOf(const AKey: TKey): Integer; {$ifdef CLASSESINLINE} inline; {$endif}
function IndexOfData(const AData: TData): Integer;
procedure InsertKey(Index: Integer; const AKey: TKey);
@ -1048,7 +1048,7 @@ begin
Data[Result] := AData;
end;
function TFPSMap.Find(AKey: Pointer; var Index: Integer): Boolean;
function TFPSMap.Find(AKey: Pointer; out Index: Integer): Boolean;
{ Searches for the first item <= Key, returns True if exact match,
sets index to the index f the found string. }
var
@ -1122,7 +1122,7 @@ begin
Result := inherited Insert(Index);
end;
procedure TFPSMap.Insert(Index: Integer; var AKey, AData: Pointer);
procedure TFPSMap.Insert(Index: Integer; out AKey, AData: Pointer);
begin
AKey := Insert(Index);
AData := PByte(AKey) + FKeySize;
@ -1256,7 +1256,7 @@ begin
Result := inherited Add(@AKey, @AData);
end;
function TFPGMap.Find(const AKey: TKey; var Index: Integer): Boolean;
function TFPGMap.Find(const AKey: TKey; out Index: Integer): Boolean;
begin
Result := inherited Find(@AKey, Index);
end;