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

* Fixed to conform to new structures in pastree

Browse Source 
git-svn-id: trunk@22092 -
This commit is contained in:
michael 2012-08-15 16:00:51 +00:00
parent e6efbd36ad
commit 3bc8bbf378
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

@ -1905,7 +1905,7 @@ begin
begin begin
if j > 0 then if j > 0 then
AppendSym(CodeEl, ', '); AppendSym(CodeEl, ', ');
AppendPasSHFragment(CodeEl, CurVariant.Values[j], 0); AppendPasSHFragment(CodeEl, TPasElement(CurVariant.Values[j]).GetDeclaration(true), 0);
end; end;
AppendSym(CodeEl, ': ('); AppendSym(CodeEl, ': (');
AppendType(CodeEl, TableEl, CurVariant.Members, True, NestingLevel + 3); AppendType(CodeEl, TableEl, CurVariant.Members, True, NestingLevel + 3);