浏览代码

compiler: fix no finalization calls for libraries caused by r14543

git-svn-id: trunk@14552 -
paul 15 年之前
父节点
当前提交
bf45b463bc
共有 1 个文件被更改,包括 1 次插入2 次删除
  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;