From 28ef4c95324358b457c220d7e2d8ed97e0f12582 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 22 Aug 2012 16:49:47 +0000
Subject: [PATCH] * Fixed compilation

git-svn-id: trunk@22174 -
---
 utils/fpdoc/fpclasschart.pp | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/utils/fpdoc/fpclasschart.pp b/utils/fpdoc/fpclasschart.pp
index 914892d5bd..9203a5effc 100644
--- a/utils/fpdoc/fpclasschart.pp
+++ b/utils/fpdoc/fpclasschart.pp
@@ -33,10 +33,6 @@ resourcestring
   SMergedFile = 'Merged %d classes from file %s.';
   SClassesAdded = 'Added %d classes from %d files.';
 
-Const
-  RootNames : Array[TPasObjKind] of string
-            = ('Objects', 'Classes', 'Interfaces','Generics','Specializations');
-
 type
 
   { TClassTreeEngine }
@@ -622,7 +618,7 @@ begin
   XML:=TXMLDocument.Create;
   Try
     //XML.
-    XML.AppendChild(XML.CreateElement(RootNames[AObjectKind]));
+    XML.AppendChild(XML.CreateElement(ObjKindNames[AObjectKind]));
     For I:=0 to MergeFiles.Count-1 do
       begin
       XMl2:=TXMLDocument.Create;