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

* Merging revisions r43404 from trunk:

Browse Source 
------------------------------------------------------------------------
    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 -
This commit is contained in:
michael 2019-12-23 13:36:48 +00:00
parent 0678bdf90b
commit 469350538a
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;