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

* Bug fix where copied block nodes didn't inherit the original's flags

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2024-05-03 13:32:01 +01:00 committed by FPK
parent b828529b24
commit edc1c79cbb
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/nbas.pas
View File

@ -124,6 +124,7 @@ interface
destructor destroy; override; destructor destroy; override;
constructor ppuload(t:tnodetype;ppufile:tcompilerppufile);override; constructor ppuload(t:tnodetype;ppufile:tcompilerppufile);override;
procedure ppuwrite(ppufile:tcompilerppufile);override; procedure ppuwrite(ppufile:tcompilerppufile);override;
function dogetcopy : tnode;override;
function simplify(forinline : boolean) : tnode; override; function simplify(forinline : boolean) : tnode; override;
function pass_1 : tnode;override; function pass_1 : tnode;override;
function pass_typecheck:tnode;override; function pass_typecheck:tnode;override;
@ -734,6 +735,13 @@ implementation
end; end;
function tblocknode.dogetcopy : tnode;
begin
Result:=inherited dogetcopy;
TBlockNode(Result).blocknodeflags:=blocknodeflags;
end;
function NodesEqual(var n: tnode; arg: pointer): foreachnoderesult; function NodesEqual(var n: tnode; arg: pointer): foreachnoderesult;
begin begin
if n.IsEqual(tnode(arg)) then if n.IsEqual(tnode(arg)) then