From 10c1b11d15e88c4649d1fb147fe79758bf0ded3f Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Wed, 15 May 2013 14:18:38 +0000
Subject: [PATCH] * ppudump: Output "RetType" attribute for procedures and
 destructors.

git-svn-id: trunk@24511 -
---
 compiler/utils/ppuutils/ppuout.pp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/compiler/utils/ppuutils/ppuout.pp b/compiler/utils/ppuutils/ppuout.pp
index 072e2fcc4b..8a178bb9f6 100644
--- a/compiler/utils/ppuutils/ppuout.pp
+++ b/compiler/utils/ppuutils/ppuout.pp
@@ -1065,8 +1065,7 @@ begin
         Output.WriteStr('', ProcOptionNames[opt]);
     Output.WriteArrayEnd('Options');
   end;
-  if Options*[poProcedure, poDestructor] = [] then
-    ReturnType.Write(Output, 'RetType');
+  ReturnType.Write(Output, 'RetType');
 end;
 
 constructor TPpuProcDef.Create(AParent: TPpuContainerDef);