paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 09:26:15 +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; TTypeList = array[0..MaxGListSize] of T;
PTypeList = ^TTypeList; PTypeList = ^TTypeList;
PT = ^T; PT = ^T;
TFPGListEnumeratorSpec = specialize TFPGListEnumerator<T>;
{$ifndef OldSyntax}protected var{$else}var protected{$endif} {$ifndef OldSyntax}protected var{$else}var protected{$endif}
FOnCompare: TCompareFunc; FOnCompare: TCompareFunc;
procedure CopyItem(Src, Dest: Pointer); override; procedure CopyItem(Src, Dest: Pointer); override;
@ -128,6 +127,8 @@ type
function GetFirst: T; {$ifdef CLASSESINLINE} inline; {$endif} function GetFirst: T; {$ifdef CLASSESINLINE} inline; {$endif}
procedure SetFirst(const Value: T); {$ifdef CLASSESINLINE} inline; {$endif} procedure SetFirst(const Value: T); {$ifdef CLASSESINLINE} inline; {$endif}
public public
Type
TFPGListEnumeratorSpec = specialize TFPGListEnumerator<T>;
constructor Create; constructor Create;
function Add(const Item: T): Integer; {$ifdef CLASSESINLINE} inline; {$endif} function Add(const Item: T): Integer; {$ifdef CLASSESINLINE} inline; {$endif}
function Extract(const Item: T): T; {$ifdef CLASSESINLINE} inline; {$endif} function Extract(const Item: T): T; {$ifdef CLASSESINLINE} inline; {$endif}