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

Use correct class typecast for commit ba4cee279b

Browse Source
This commit is contained in:
Pierre Muller 2022-11-23 08:43:28 +01:00
parent d38c24fee7
commit 1a19fe1f03
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/nadd.pas
View File

@ -959,12 +959,12 @@ implementation
end; end;
{ 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(taddnode(right).right) and if (nodetype=subn) and (right.nodetype=modn) and is_constintnode(tmoddivnode(right).right) and
(left.isequal(taddnode(right).left)) and not(might_have_sideeffects(left)) then (left.isequal(tmoddivnode(right).left)) and not(might_have_sideeffects(left)) then
begin begin
result:=caddnode.create_internal(muln,cmoddivnode.create(divn,left,taddnode(right).right.getcopy),taddnode(right).right); result:=caddnode.create_internal(muln,cmoddivnode.create(divn,left,tmoddivnode(right).right.getcopy),tmoddivnode(right).right);
left:=nil; left:=nil;
taddnode(right).right:=nil; tmoddivnode(right).right:=nil;
exit; exit;
end; end;