* Changed user warnings to notes.

git-svn-id: trunk@9505 -

rtl/objpas/fgl.pp

@@ -106,7 +106,7 @@ type
     function IndexOf(const Item: T): Integer;
     procedure Insert(Index: Integer; const Item: 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);}
     function Remove(const Item: T): Integer; {$ifdef CLASSESINLINE} inline; {$endif}
     procedure Sort(Compare: TCompareFunc);
@@ -608,10 +608,10 @@ end;
 function TFPGList.IndexOf(const Item: T): Integer;
 begin
   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
     Inc(Result);
-  {$warning TODO: Result := -1; does not compile }
+  {$note TODO: Result := -1; does not compile }
   if Result = FCount then
   begin
     Result := 0;