From 6eade12d3fd130d6ff7948527a0d15ad4cc0c082 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 8 Oct 2012 15:11:10 +0000
Subject: [PATCH] * Take care of Florian's remark that FList may be nil when
 constructor failed

git-svn-id: trunk@22593 -
---
 rtl/objpas/classes/lists.inc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/rtl/objpas/classes/lists.inc b/rtl/objpas/classes/lists.inc
index 14a13717e0..afcbe65c3d 100644
--- a/rtl/objpas/classes/lists.inc
+++ b/rtl/objpas/classes/lists.inc
@@ -646,7 +646,8 @@ end;
 
 destructor TList.Destroy;
 begin
-  Clear;
+  if Assigned(Flist) then
+    Clear;
   If Assigned(FObservers) then
     begin
     FPONotifyObservers(Self,ooFree,Nil);