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

* Calling "internalstatements" now sets the "bnf_strippable" flag on the result

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2024-04-27 00:57:31 +01:00 committed by FPK
parent 060a7185ab
commit 5a9d4d44fa
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/nbas.pas
View File

@ -383,7 +383,8 @@ implementation
begin begin
{ create dummy initial statement } { create dummy initial statement }
laststatement := cstatementnode.create(cnothingnode.create,nil); laststatement := cstatementnode.create(cnothingnode.create,nil);
internalstatements := cblocknode.create(laststatement); result := cblocknode.create(laststatement);
Include(result.blocknodeflags, bnf_strippable);
end; end;

2
compiler/psub.pas
View File

@ -908,6 +908,8 @@ implementation
an try...finally...end wrapper } an try...finally...end wrapper }
current_filepos:=entrypos; current_filepos:=entrypos;
newblock:=internalstatements(newstatement); newblock:=internalstatements(newstatement);
{ Note - this is not strippable since it wraps the entire procedure }
Exclude(TBlockNode(newblock).blocknodeflags, bnf_strippable);
{ initialization is common for all cases } { initialization is common for all cases }
addstatement(newstatement,loadpara_asmnode); addstatement(newstatement,loadpara_asmnode);
addstatement(newstatement,stackcheck_asmnode); addstatement(newstatement,stackcheck_asmnode);