From bbc2ef6ac0647ea04fe8f3cb4932f0619ea3e0f9 Mon Sep 17 00:00:00 2001
From: maciej-izak <mizak.public@gmail.com>
Date: Sun, 2 Jul 2017 20:57:41 +0000
Subject: [PATCH] fcl-passrc: paswrite: write initialization and finalization
 sections for module

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

diff --git a/packages/fcl-passrc/src/paswrite.pp b/packages/fcl-passrc/src/paswrite.pp
index 62682d8470..aaaf975af4 100644
--- a/packages/fcl-passrc/src/paswrite.pp
+++ b/packages/fcl-passrc/src/paswrite.pp
@@ -177,6 +177,20 @@ begin
     WriteSection(AModule.ImplementationSection);
   end;
   wrtln;
+  if Assigned(AModule.InitializationSection) then
+  begin
+    wrtln('initialization');
+    IncIndent;
+    WriteImplBlock(AModule.InitializationSection);
+    DecIndent;
+  end;
+  if Assigned(AModule.FinalizationSection) then
+  begin
+    wrtln('finalization');
+    IncIndent;
+    WriteImplBlock(AModule.FinalizationSection);
+    DecIndent;
+  end;
   wrtln('end.');
 end;