From b355df88addbf71469095f480afd3611c6172845 Mon Sep 17 00:00:00 2001 From: michael Date: Mon, 23 Dec 2019 13:49:57 +0000 Subject: [PATCH] * Merging revisions r43513 from trunk: ------------------------------------------------------------------------ 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 - --- rtl/objpas/fgl.pp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/rtl/objpas/fgl.pp b/rtl/objpas/fgl.pp index 08e6a88c61..3611b4ab59 100644 --- a/rtl/objpas/fgl.pp +++ b/rtl/objpas/fgl.pp @@ -970,7 +970,11 @@ 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}