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

* ppudump: Output "RetType" attribute for procedures and destructors.

Browse Source 
git-svn-id: trunk@24511 -
This commit is contained in:
yury 2013-05-15 14:18:38 +00:00
parent 45895f26e0
commit 10c1b11d15
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/utils/ppuutils/ppuout.pp
View File

@ -1065,8 +1065,7 @@ begin
Output.WriteStr('', ProcOptionNames[opt]); Output.WriteStr('', ProcOptionNames[opt]);
Output.WriteArrayEnd('Options'); Output.WriteArrayEnd('Options');
end; end;
if Options*[poProcedure, poDestructor] = [] then ReturnType.Write(Output, 'RetType');
ReturnType.Write(Output, 'RetType');
end; end;
constructor TPpuProcDef.Create(AParent: TPpuContainerDef); constructor TPpuProcDef.Create(AParent: TPpuContainerDef);