From 469350538aa34dc9a8f0c86819b0c122db2d3401 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 23 Dec 2019 13:36:48 +0000
Subject: [PATCH] * Merging revisions r43404 from trunk:    
 ------------------------------------------------------------------------    
 r43404 | michael | 2019-11-06 11:42:11 +0100 (Wed, 06 Nov 2019) | 1 line

    * Fix bug ID #0036268, more descriptive comment
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43740 -
---
 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 0aab16386e..78ec3b5020 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;