paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-22 21:19:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Changed user warnings to notes.

Browse Source 
git-svn-id: trunk@9505 -
This commit is contained in:
yury 2007-12-21 22:57:59 +00:00
parent 9f97f670ab
commit 9e9716f95e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/fgl.pp
View File

@ -106,7 +106,7 @@ type
function IndexOf(const Item: T): Integer; function IndexOf(const Item: T): Integer;
procedure Insert(Index: Integer; const Item: T); {$ifdef CLASSESINLINE} inline; {$endif} procedure Insert(Index: Integer; const Item: T); {$ifdef CLASSESINLINE} inline; {$endif}
function Last: T; {$ifdef CLASSESINLINE} inline; {$endif} function Last: T; {$ifdef CLASSESINLINE} inline; {$endif}
{$warning TODO: fix TFPGList<T>.Assign(TFPGList) to work somehow} {$note TODO: fix TFPGList<T>.Assign(TFPGList) to work somehow}
{procedure Assign(Source: TFPGList);} {procedure Assign(Source: TFPGList);}
function Remove(const Item: T): Integer; {$ifdef CLASSESINLINE} inline; {$endif} function Remove(const Item: T): Integer; {$ifdef CLASSESINLINE} inline; {$endif}
procedure Sort(Compare: TCompareFunc); procedure Sort(Compare: TCompareFunc);
@ -608,10 +608,10 @@ end;
function TFPGList.IndexOf(const Item: T): Integer; function TFPGList.IndexOf(const Item: T): Integer;
begin begin
Result := 0; Result := 0;
{$warning TODO: fix inlining to work! InternalItems[Result]^} {$note TODO: fix inlining to work! InternalItems[Result]^}
while (Result < FCount) and (PT(FList)[Result] <> Item) do while (Result < FCount) and (PT(FList)[Result] <> Item) do
Inc(Result); Inc(Result);
{$warning TODO: Result := -1; does not compile } {$note TODO: Result := -1; does not compile }
if Result = FCount then if Result = FCount then
begin begin
Result := 0; Result := 0;