paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 13:19:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

compiler: fix uninitialized result caused by r14543

Browse Source 
git-svn-id: trunk@14547 -
This commit is contained in:
paul 2010-01-05 19:15:16 +00:00
parent 80b651f79c
commit 556afdca51
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/psub.pas
View File

@ -210,7 +210,7 @@ implementation
block:=statement_block(_INITIALIZATION);
{ optimize empty initialization block away }
if (block.nodetype=blockn) and (tblocknode(block).left=nil) then
FreeAndNil(block)
FreeAndNil(block)
else
if not islibrary then
current_module.flags:=current_module.flags or uf_init;
@ -225,11 +225,13 @@ implementation
block:=statement_block(_FINALIZATION);
{ optimize empty finalization block away }
if (block.nodetype=blockn) and (tblocknode(block).left=nil) then
FreeAndNil(block)
FreeAndNil(block)
else
if not islibrary then
current_module.flags:=current_module.flags or uf_finalize;
end;
end
else
block:=nil;
end
else
begin