paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 20:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove unneeded diagnostic output

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-08-21 09:05:57 +02:00
parent c4069b5fe8
commit 592c2ea0fb
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
utils/fpdoc/dw_html.pp
View File

@ -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 if Assigned(AClass.GenericTemplateTypes) and AClass.GenericTemplateTypes.Count>0 then
Dolog('ERROR generic init: %s', [AClass.name]);
if 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 //if not Assigned(ThisTreeNode) Then
DoLog('ERROR Tree Class information: '+ThisClass.PathName); // DoLog('ERROR Tree Class information: '+ThisClass.PathName);
if Assigned(AClass.AncestorType) then if Assigned(AClass.AncestorType) then
begin begin