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

* Better operator declaration

Browse Source 
git-svn-id: trunk@31232 -
This commit is contained in:
michael 2015-07-26 08:10:45 +00:00
parent a910bbc3a7
commit 798192ba70
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
utils/fpdoc/dw_html.pp
View File

@ -1855,7 +1855,10 @@ procedure THTMLWriter.AppendProcDecl(CodeEl, TableEl: TDOMElement;
AppendSym(CodeEl, '.');
AppendText(CodeEl, AProc.Name);
end else
AppendText(CodeEl, ' ' + AProc.FullName);
if (Element is TPasOperator) then
AppendText(CodeEl, ' ' + TPasOperator(AProc).GetOperatorDeclaration(True))
else
AppendText(CodeEl, ' ' + AProc.FullName);
CodeEl := AppendProcType(CodeEl, TableEl, AProc.ProcType, 0);
AppendSym(CodeEl, ';');
AppendProcExt(CodeEl, AProc);
@ -2571,6 +2574,8 @@ begin
CreateProcPageBody(TPasProcedureBase(AElement))
else if AElement.ClassType = TTopicELement then
CreateTopicPageBody(TTopicElement(AElement))
else if AElement.ClassType = TPasProperty then
CreateClassMemberPageBody(TPasProperty(AElement))
else
writeln('Unknown classtype: ',AElement.classtype.classname);
end;