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

Fix compilation failure of RTL with -Co option for x86_64-linux target

Browse Source
This commit is contained in:
Pierre Muller 2022-11-24 17:01:37 +00:00
parent 9cbcd399b1
commit 84be45f55d
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/nadd.pas
View File

@ -960,11 +960,13 @@ implementation
{ convert n - n mod const into n div const*const } { convert n - n mod const into n div const*const }
if (nodetype=subn) and (right.nodetype=modn) and is_constintnode(tmoddivnode(right).right) and if (nodetype=subn) and (right.nodetype=modn) and is_constintnode(tmoddivnode(right).right) and
(left.isequal(tmoddivnode(right).left)) and not(might_have_sideeffects(left)) then (left.isequal(tmoddivnode(right).left)) and not(might_have_sideeffects(left)) and
not(cs_check_overflow in localswitches) then
begin begin
result:=caddnode.create_internal(muln,cmoddivnode.create(divn,left,tmoddivnode(right).right.getcopy),tmoddivnode(right).right); result:=caddnode.create_internal(muln,cmoddivnode.create(divn,left,tmoddivnode(right).right.getcopy),tmoddivnode(right).right);
left:=nil; left:=nil;
tmoddivnode(right).right:=nil; tmoddivnode(right).right:=nil;
result.localswitches:=localswitches;
exit; exit;
end; end;