diff --git a/compiler/nadd.pas b/compiler/nadd.pas index 0ccf495178..c9691ff3fc 100644 --- a/compiler/nadd.pas +++ b/compiler/nadd.pas @@ -959,12 +959,12 @@ implementation end; { convert n - n mod const into n div const*const } - if (nodetype=subn) and (right.nodetype=modn) and is_constintnode(taddnode(right).right) and - (left.isequal(taddnode(right).left)) and not(might_have_sideeffects(left)) then + 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 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; - taddnode(right).right:=nil; + tmoddivnode(right).right:=nil; exit; end;