From 79a1b1a4850b518186dc6b7998fbc9e684fd9b10 Mon Sep 17 00:00:00 2001 From: yury Date: Thu, 27 Dec 2007 23:29:52 +0000 Subject: [PATCH] * Converted user defined note to info message. git-svn-id: trunk@9551 - --- rtl/objpas/fgl.pp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rtl/objpas/fgl.pp b/rtl/objpas/fgl.pp index aef7d85324..415de79a24 100644 --- a/rtl/objpas/fgl.pp +++ b/rtl/objpas/fgl.pp @@ -608,7 +608,7 @@ end; function TFPGList.IndexOf(const Item: T): Integer; begin 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 Inc(Result); if Result = FCount then