浏览代码

* Fix bug ID #0036268, more descriptive comment

git-svn-id: trunk@43404 -
michael 5 年之前
父节点
当前提交
2557c8e99b
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/objpas/fgl.pp

+ 1 - 1
rtl/objpas/fgl.pp

@@ -45,7 +45,7 @@ type
   protected
     FList: PByte;
     FCount: Integer;
-    FCapacity: Integer; { list is one longer sgthan capacity, for temp }
+    FCapacity: Integer; { list has room for capacity+1 items, contains room for a temporary item }
     FItemSize: Integer;
     procedure CopyItem(Src, Dest: Pointer); virtual;
     procedure Deref(Item: Pointer); virtual; overload;