Explorar el Código

compiler: fix no finalization calls for libraries caused by r14543

git-svn-id: trunk@14552 -
paul hace 15 años
padre
commit
bf45b463bc
Se han modificado 1 ficheros con 1 adiciones y 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;