From bd4967497585dcf7b17b8e49e387319544d9ce9a Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 4 Feb 2016 09:05:15 +0000
Subject: [PATCH] * Fix bug #29576

git-svn-id: trunk@33044 -
---
 packages/fcl-registry/src/xregreg.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/packages/fcl-registry/src/xregreg.inc b/packages/fcl-registry/src/xregreg.inc
index 8f489d6255..b80fdebd18 100644
--- a/packages/fcl-registry/src/xregreg.inc
+++ b/packages/fcl-registry/src/xregreg.inc
@@ -55,6 +55,8 @@ class procedure TXMLRegistryInstance.FreeXMLRegistryCache;
 
 var i: integer;
 begin
+  if not Assigned(XMLRegistryCache) then
+    exit;
   for i := 0 to XMLRegistryCache.Count - 1 do
     TXMLRegistryInstance(XMLRegistryCache[i]).Free;
   FreeAndNil(XMLRegistryCache);