paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 02:48:07 +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
Copyright (C) 2000 - 2005 by
@ -1809,9 +1810,7 @@ begin
CodeEl := CreateCode(CreatePara(TDEl));
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)
else
AppendText(CodeEl, ' ' + UTF8Decode(AClass.Name) + ' ');
@ -1827,8 +1826,8 @@ begin
ThisTreeNode := TreeInterface.GetPasElNode(AClass)
else
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
begin