paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 17:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tmoddivnode.simplify: made result definitely assigned and removed local var

Browse Source 
* tshlshrnode.simplify: likewise

git-svn-id: trunk@17770 -
This commit is contained in:
sergei 2011-06-19 21:48:18 +00:00
parent 1470d91ba1
commit 2f7c779fa4
1 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/nmat.pas
View File

@ -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;