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

* Fix bug #31665

Browse Source 
git-svn-id: trunk@35800 -
This commit is contained in:
michael 2017-04-15 12:49:26 +00:00
parent 7cc9a70dfb
commit 6bdda7b85f
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_xml.pp
View File

@ -100,7 +100,7 @@ var
Node['virtual'] := 'true';
if pmAbstract in ADecl.Modifiers then
Node['abstract'] := 'true';
if pmStatic in ADecl.Modifiers then
if assigned(ADecl.ProcType) and (ptmStatic in ADecl.ProcType.Modifiers) then
Node['static'] := 'true';
if pmReintroduce in ADecl.Modifiers then
Node['reintroduce'] := 'true';