From 6fcd7fe3f89e237228b6a5f8cb2fd084eb881ccc Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 15 Nov 2019 14:26:12 +0000
Subject: [PATCH] * avoid warning about visibility of ItemIsmanaged

git-svn-id: trunk@43474 -
---
 rtl/objpas/fgl.pp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/rtl/objpas/fgl.pp b/rtl/objpas/fgl.pp
index 019ae75ee9..d75296a92b 100644
--- a/rtl/objpas/fgl.pp
+++ b/rtl/objpas/fgl.pp
@@ -139,12 +139,11 @@ type
     procedure SetLast(const Value: T); {$ifdef FGLINLINE} inline; {$endif}
     function GetFirst: T; {$ifdef FGLINLINE} inline; {$endif}
     procedure SetFirst(const Value: T); {$ifdef FGLINLINE} inline; {$endif}
-  Protected
-    class Function ItemIsManaged : Boolean; override;
   public
     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}
     property First: T read GetFirst write SetFirst;