From ddc7631e09d0a2a28a8584f0d1253fb054f439ce Mon Sep 17 00:00:00 2001
From: maciej-izak <mizak.public@gmail.com>
Date: Tue, 25 Jul 2017 13:51:59 +0000
Subject: [PATCH] fcl-passrc: paswrite: prepare 'type' section for types only
 when type has parent like module interface section etc.

git-svn-id: trunk@36787 -
---
 packages/fcl-passrc/src/paswrite.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-passrc/src/paswrite.pp b/packages/fcl-passrc/src/paswrite.pp
index 448413e9cd..671a164817 100644
--- a/packages/fcl-passrc/src/paswrite.pp
+++ b/packages/fcl-passrc/src/paswrite.pp
@@ -150,7 +150,8 @@ end;
 
 procedure TPasWriter.WriteType(AType: TPasType);
 begin
-  PrepareDeclSection('type');
+  if AType.Parent is TPasSection  then
+    PrepareDeclSection('type');
   if AType.ClassType = TPasUnresolvedTypeRef then
     wrt(AType.Name)
   else if AType.ClassType = TPasClassType then