paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 02:32:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler: fix no finalization calls for libraries caused by r14543

Browse Source 
git-svn-id: trunk@14552 -
This commit is contained in:
paul 2010-01-06 09:03:09 +00:00
parent d52071fc04
commit bf45b463bc
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/psub.pas
View File

@ -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;