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

* Inc/Dec nodes converted to Add/Sub now remove

Browse Source 
the "nf_modify" flag from the destination so
    constant propagation works more efficiently.
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2024-05-04 01:27:46 +01:00 committed by FPK
parent e7145f5f7c
commit e60a7d01a4
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ninl.pas
View File

@ -4947,6 +4947,8 @@ implementation
end; end;
resultnode := hp.getcopy; resultnode := hp.getcopy;
{ Remove "modify" flag from what will be an assignment destination }
Exclude(resultnode.flags, nf_modify);
{ avoid type errors from the addn/subn } { avoid type errors from the addn/subn }
if not is_integer(resultnode.resultdef) then if not is_integer(resultnode.resultdef) then
@ -4955,7 +4957,7 @@ implementation
inserttypeconv_internal(hpp,sinttype); inserttypeconv_internal(hpp,sinttype);
end; end;
{ addition/substraction depending on inc/dec } { addition/subtraction depending on inc/dec }
if inlinenumber = in_inc_x then if inlinenumber = in_inc_x then
hpp := caddnode.create_internal(addn,hp,hpp) hpp := caddnode.create_internal(addn,hp,hpp)
else else