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

* Treat 3.2 as 3.0.4

Browse Source 
git-svn-id: trunk@43513 -
This commit is contained in:
michael 2019-11-18 16:00:03 +00:00
parent 269cb2d46a
commit 37a9cda682
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; class function TFPGList.ItemIsManaged: Boolean;
begin begin
{$IFNDEF VER3_0} {$IFNDEF VER3_0}
{$IFNDEF VER3_2}
Result:=IsManagedType(T); Result:=IsManagedType(T);
{$ELSE} {$ELSE}
Result:=True; // Fallback to old behaviour Result:=True; // Fallback to old behaviour
{$ENDIF} {$ENDIF}
{$ELSE}
Result:=True; // Fallback to old behaviour
{$ENDIF}
end; end;
function TFPGList.GetEnumerator: TFPGListEnumeratorSpec; function TFPGList.GetEnumerator: TFPGListEnumeratorSpec;