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

* Make TFPGListEnumeratorSpec public (Bug ID 30573)

Browse Source 
git-svn-id: trunk@34485 -
This commit is contained in:
michael 2016-09-10 17:15:10 +00:00
parent bd775267ca
commit ee40c7618c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/objpas/fgl.pp
View File

@ -114,7 +114,6 @@ type
TTypeList = array[0..MaxGListSize] of T;
PTypeList = ^TTypeList;
PT = ^T;
TFPGListEnumeratorSpec = specialize TFPGListEnumerator<T>;
{$ifndef OldSyntax}protected var{$else}var protected{$endif}
FOnCompare: TCompareFunc;
procedure CopyItem(Src, Dest: Pointer); override;
@ -128,6 +127,8 @@ type
function GetFirst: T; {$ifdef CLASSESINLINE} inline; {$endif}
procedure SetFirst(const Value: T); {$ifdef CLASSESINLINE} inline; {$endif}
public
Type
TFPGListEnumeratorSpec = specialize TFPGListEnumerator<T>;
constructor Create;
function Add(const Item: T): Integer; {$ifdef CLASSESINLINE} inline; {$endif}
function Extract(const Item: T): T; {$ifdef CLASSESINLINE} inline; {$endif}