Explorar o código

compiler: fix no finalization calls for libraries caused by r14543

git-svn-id: trunk@14552 -
paul %!s(int64=15) %!d(string=hai) anos
pai
achega
bf45b463bc
Modificáronse 1 ficheiros con 1 adicións e 2 borrados
  1. 1 2
      compiler/psub.pas

+ 1 - 2
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;