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

* Converted user defined note to info message.

Browse Source 
git-svn-id: trunk@9551 -
This commit is contained in:
yury 2007-12-27 23:29:52 +00:00
parent 4b3015802a
commit 79a1b1a485
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/fgl.pp
View File

@ -608,7 +608,7 @@ end;
function TFPGList.IndexOf(const Item: T): Integer; function TFPGList.IndexOf(const Item: T): Integer;
begin begin
Result := 0; Result := 0;
{$note TODO: fix inlining to work! InternalItems[Result]^} {$info 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);
if Result = FCount then if Result = FCount then