Переглянути джерело

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;