paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 09:26:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* remove statements with only a nothing node when they are the only children of a block

Browse Source 
git-svn-id: trunk@29628 -
This commit is contained in:
florian 2015-02-04 21:19:40 +00:00
parent d6bfb29313
commit 7b7aa8d542
1 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
compiler/nbas.pas
View File

@ -540,18 +540,30 @@ implementation
{ main program body, and those nodes should always be blocknodes }
{ since that's what the compiler expects elsewhere. }
{ if the current block contains only one statement, and }
{ this one statement only contains another block, replace }
{ this block with that other block. }
if assigned(left) and
not assigned(tstatementnode(left).right) and
(tstatementnode(left).left.nodetype = blockn) then
not assigned(tstatementnode(left).right) then
begin
result:=tstatementnode(left).left;
tstatementnode(left).left:=nil;
{ make sure the nf_block_with_exit flag is safeguarded }
result.flags:=result.flags+(flags*[nf_block_with_exit,nf_usercode_entry]);
exit;
case tstatementnode(left).left.nodetype of
blockn:
begin
{ if the current block contains only one statement, and
this one statement only contains another block, replace
this block with that other block. }
result:=tstatementnode(left).left;
tstatementnode(left).left:=nil;
{ make sure the nf_block_with_exit flag is safeguarded }
result.flags:=result.flags+(flags*[nf_block_with_exit,nf_usercode_entry]);
exit;
end;
nothingn:
begin
{ if the block contains only a statement with a nothing node,
get rid of the statement }
left.Free;
left:=nil;
exit;
end;
end;
end;
end;