From bf45b463bc53dee5909d4c26f7cea594cc37e56d Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Wed, 6 Jan 2010 09:03:09 +0000
Subject: [PATCH] compiler: fix no finalization calls for libraries caused by
 r14543

git-svn-id: trunk@14552 -
---
 compiler/psub.pas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/compiler/psub.pas b/compiler/psub.pas
index 60fab288ee..e28f4dda2a 100644
--- a/compiler/psub.pas
+++ b/compiler/psub.pas
@@ -227,8 +227,7 @@ implementation
                            if (block.nodetype=blockn) and (tblocknode(block).left=nil) then
                              FreeAndNil(block)
                            else
-                             if not islibrary then
-                               current_module.flags:=current_module.flags or uf_finalize;
+                             current_module.flags:=current_module.flags or uf_finalize;
                          end
                          else
                            block:=nil;