瀏覽代碼

* Removed workaround for bug #9827, since it was fixed.

git-svn-id: trunk@9549 -
yury 17 年之前
父節點
當前提交
4b3015802a
共有 1 個文件被更改,包括 1 次插入5 次删除
  1. 1 5
      rtl/objpas/fgl.pp

+ 1 - 5
rtl/objpas/fgl.pp

@@ -611,12 +611,8 @@ begin
   {$note TODO: fix inlining to work! InternalItems[Result]^}
   while (Result < FCount) and (PT(FList)[Result] <> Item) do
     Inc(Result);
-  {$note TODO: Result := -1; does not compile }
   if Result = FCount then
-  begin
-    Result := 0;
-    dec(Result);
-  end;
+    Result := -1;
 end;
 
 procedure TFPGList.Insert(Index: Integer; const Item: T);