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

* Framework for more complex block node simplification

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2024-02-12 12:54:21 +00:00 committed by FPK
parent 5605566e42
commit 060a7185ab
1 changed files with 27 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/nbas.pas
View File

@ -754,9 +754,11 @@ implementation
main program body, and those nodes should always be blocknodes main program body, and those nodes should always be blocknodes
since that's what the compiler expects elsewhere. } since that's what the compiler expects elsewhere. }
if assigned(left) and if assigned(left) then
not assigned(tstatementnode(left).right) then
begin begin
if not assigned(tstatementnode(left).right) then
begin
{ Block has a lone statement }
case tstatementnode(left).left.nodetype of case tstatementnode(left).left.nodetype of
blockn: blockn:
begin begin
@ -781,6 +783,7 @@ implementation
; ;
end; end;
end; end;
end;
{$ifdef break_inlining} {$ifdef break_inlining}
{ simple sequence of tempcreate, assign and return temp.? } { simple sequence of tempcreate, assign and return temp.? }
if GetStatements(left,a) and if GetStatements(left,a) and