浏览代码

* Remove unneeded diagnostic output

Michaël Van Canneyt 3 年之前
父节点
当前提交
592c2ea0fb
共有 1 个文件被更改,包括 4 次插入5 次删除
  1. 4 5
      utils/fpdoc/dw_html.pp

+ 4 - 5
utils/fpdoc/dw_html.pp

@@ -1,3 +1,4 @@
+
 {
 {
     FPDoc  -  Free Pascal Documentation Tool
     FPDoc  -  Free Pascal Documentation Tool
     Copyright (C) 2000 - 2005 by
     Copyright (C) 2000 - 2005 by
@@ -1809,9 +1810,7 @@ begin
   CodeEl := CreateCode(CreatePara(TDEl));
   CodeEl := CreateCode(CreatePara(TDEl));
   AppendKw(CodeEl, 'type');
   AppendKw(CodeEl, 'type');
 
 
-  if not Assigned(AClass.GenericTemplateTypes) then
-      Dolog('ERROR generic init: %s', [AClass.name]);
-  if AClass.GenericTemplateTypes.Count>0 then
+  if Assigned(AClass.GenericTemplateTypes) and AClass.GenericTemplateTypes.Count>0 then
     AppendGeneric(CodeEl, AClass)
     AppendGeneric(CodeEl, AClass)
   else
   else
     AppendText(CodeEl, ' ' + UTF8Decode(AClass.Name) + ' ');
     AppendText(CodeEl, ' ' + UTF8Decode(AClass.Name) + ' ');
@@ -1827,8 +1826,8 @@ begin
     ThisTreeNode := TreeInterface.GetPasElNode(AClass)
     ThisTreeNode := TreeInterface.GetPasElNode(AClass)
   else
   else
     ThisTreeNode := TreeClass.GetPasElNode(AClass);
     ThisTreeNode := TreeClass.GetPasElNode(AClass);
-  if not Assigned(ThisTreeNode) Then
-    DoLog('ERROR Tree Class information: '+ThisClass.PathName);
+  //if not Assigned(ThisTreeNode) Then
+  //  DoLog('ERROR Tree Class information: '+ThisClass.PathName);
 
 
   if Assigned(AClass.AncestorType) then
   if Assigned(AClass.AncestorType) then
   begin
   begin