diff --git a/compiler/nmat.pas b/compiler/nmat.pas index 3c5e8bc6c1..13efe91991 100644 --- a/compiler/nmat.pas +++ b/compiler/nmat.pas @@ -111,7 +111,6 @@ implementation function tmoddivnode.simplify(forinline : boolean):tnode; var - t : tnode; rv,lv : tconstexprint; begin result:=nil; @@ -143,12 +142,10 @@ implementation case nodetype of modn: - t:=create_simplified_ord_const(lv mod rv,resultdef,forinline); + result:=create_simplified_ord_const(lv mod rv,resultdef,forinline); divn: - t:=create_simplified_ord_const(lv div rv,resultdef,forinline); + result:=create_simplified_ord_const(lv div rv,resultdef,forinline); end; - result:=t; - exit; end; end; @@ -460,8 +457,6 @@ implementation ****************************************************************************} function tshlshrnode.simplify(forinline : boolean):tnode; - var - t : tnode; begin result:=nil; { constant folding } @@ -469,12 +464,10 @@ implementation begin case nodetype of shrn: - t:=create_simplified_ord_const(tordconstnode(left).value shr tordconstnode(right).value,resultdef,forinline); + result:=create_simplified_ord_const(tordconstnode(left).value shr tordconstnode(right).value,resultdef,forinline); shln: - t:=create_simplified_ord_const(tordconstnode(left).value shl tordconstnode(right).value,resultdef,forinline); + result:=create_simplified_ord_const(tordconstnode(left).value shl tordconstnode(right).value,resultdef,forinline); end; - result:=t; - exit; end; end;