paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 09:59:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #0036268, more descriptive comment

Browse Source 
git-svn-id: trunk@43404 -
This commit is contained in:
michael 2019-11-06 10:42:11 +00:00
parent fff3b67b7e
commit 2557c8e99b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/fgl.pp
View File

@ -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;