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

* Block nodes are now marked as strippable when created from "begin" statements

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2024-05-03 10:24:54 +01:00 committed by FPK
parent 6cc391dfa1
commit b828529b24
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/pstatmnt.pas
View File

@ -1387,7 +1387,10 @@ implementation
end; end;
end; end;
_BEGIN : _BEGIN :
code:=statement_block(_BEGIN); begin
code:=statement_block(_BEGIN);
Include(TBlockNode(code).blocknodeflags, bnf_strippable);
end;
_IF : _IF :
code:=if_statement; code:=if_statement;
_CASE : _CASE :