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

* Merging revisions r43474 from trunk:

Browse Source 
------------------------------------------------------------------------
    r43474 | michael | 2019-11-15 15:26:12 +0100 (Fri, 15 Nov 2019) | 1 line
    
    * avoid warning about visibility of ItemIsmanaged
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43750 -
This commit is contained in:
michael 2019-12-23 13:43:54 +00:00
parent a51130badd
commit 9e36aec7b1
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/objpas/fgl.pp
View File

@ -138,12 +138,11 @@ type
procedure SetLast(const Value: T); {$ifdef FGLINLINE} inline; {$endif}
function GetFirst: T; {$ifdef FGLINLINE} inline; {$endif}
procedure SetFirst(const Value: T); {$ifdef FGLINLINE} inline; {$endif}
Protected
class Function ItemIsManaged : Boolean; override;
public
Type
TFPGListEnumeratorSpec = specialize TFPGListEnumerator<T>;
constructor Create;
class Function ItemIsManaged : Boolean; override;
function Add(const Item: T): Integer; {$ifdef FGLINLINE} inline; {$endif}
function Extract(const Item: T): T; {$ifdef FGLINLINE} inline; {$endif}
property First: T read GetFirst write SetFirst;