From 2557c8e99be70b072c8367ce27b08c907a8029dc Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 6 Nov 2019 10:42:11 +0000
Subject: [PATCH] * Fix bug ID #0036268, more descriptive comment

git-svn-id: trunk@43404 -
---
 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 91da1c362b..e127a32bfc 100644
--- a/rtl/objpas/fgl.pp
+++ b/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;