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

* Fix compilation with 3.0.4

Browse Source 
git-svn-id: trunk@43482 -
This commit is contained in:
michael 2019-11-15 16:57:13 +00:00
parent 43a09af7f2
commit a5d3aabfc2
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/fgl.pp
View File

@ -143,6 +143,7 @@ type
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}
@ -968,7 +969,11 @@ end;
class function TFPGList.ItemIsManaged: Boolean;
begin
{$IFNDEF VER3_0}
Result:=IsManagedType(T);
{$ELSE}
Result:=True; // Fallback to old behaviour
{$ENDIF}
end;
function TFPGList.GetEnumerator: TFPGListEnumeratorSpec;
@ -1011,7 +1016,7 @@ var
i: Integer;
begin
if IsManagedType(T) then
if ItemIsManaged then
begin
Capacity:=Capacity+Source.Count;
for I := 0 to Source.Count - 1 do
@ -1023,7 +1028,7 @@ end;
procedure TFPGList.Assign(Source: TFPGList);
begin
if IsManagedType(T) then
if ItemIsManaged then
begin
Clear;
AddList(Source);