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

* Merging revisions r43513 from trunk:

Browse Source 
------------------------------------------------------------------------
    r43513 | michael | 2019-11-18 17:00:03 +0100 (Mon, 18 Nov 2019) | 1 line
    
    * Treat 3.2 as 3.0.4
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43754 -
This commit is contained in:
michael 2019-12-23 13:49:57 +00:00
parent 5594fb1cc3
commit b355df88ad
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/fgl.pp
View File

@ -970,10 +970,14 @@ end;
class function TFPGList.ItemIsManaged: Boolean;
begin
{$IFNDEF VER3_0}
{$IFNDEF VER3_2}
Result:=IsManagedType(T);
{$ELSE}
Result:=True; // Fallback to old behaviour
{$ENDIF}
{$ELSE}
Result:=True; // Fallback to old behaviour
{$ENDIF}
end;
function TFPGList.GetEnumerator: TFPGListEnumeratorSpec;