paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-24 15:40:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* another small bug caught by -CROriot

Browse Source 
git-svn-id: trunk@23763 -
This commit is contained in:
marco 2013-03-09 23:37:59 +00:00
parent 39670e3454
commit cb55b2d2cf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/fpdoc/dw_html.pp
View File

@ -2513,7 +2513,7 @@ begin
else if AElement.ClassType = TPasVariable then else if AElement.ClassType = TPasVariable then
CreateVarPageBody(TPasVariable(AElement)) CreateVarPageBody(TPasVariable(AElement))
else if AElement.InheritsFrom(TPasProcedureBase) then else if AElement.InheritsFrom(TPasProcedureBase) then
CreateProcPageBody(TPasProcedure(AElement)) CreateProcPageBody(TPasProcedureBase(AElement))
else if AElement.ClassType = TTopicELement then else if AElement.ClassType = TTopicELement then
CreateTopicPageBody(TTopicElement(AElement)) CreateTopicPageBody(TTopicElement(AElement))
end; end;