From 37a9cda682321bcabc77bd1096f23ec24e5bc801 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 18 Nov 2019 16:00:03 +0000
Subject: [PATCH] * Treat 3.2 as 3.0.4
git-svn-id: trunk@43513 -
---
rtl/objpas/fgl.pp | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/rtl/objpas/fgl.pp b/rtl/objpas/fgl.pp
index 327ee095dd..d5e58fedd8 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}