Browse Source

* Converted user defined note to info message.

git-svn-id: trunk@9551 -
yury 17 years ago
parent
commit
79a1b1a485
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/objpas/fgl.pp

+ 1 - 1
rtl/objpas/fgl.pp

@@ -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