paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 14:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: paswrite: write initialization and finalization sections for module

Browse Source 
git-svn-id: trunk@36627 -
This commit is contained in:
maciej-izak 2017-07-02 20:57:41 +00:00
parent 13d2ae8166
commit bbc2ef6ac0
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fcl-passrc/src/paswrite.pp
View File

@ -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;