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

* improved the readability of the code of taddnode.try_make_mul32to64() even

Browse Source 
more by factoring out some of the node tests to nested functions

git-svn-id: trunk@26414 -
This commit is contained in:
nickysn 2014-01-10 00:22:15 +00:00
parent ac177a445e
commit 372e9dfdf1
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/nadd.pas
View File

@ -2526,21 +2526,30 @@ implementation
((v >= qword(low(cardinal))) and (v <= qword(high(cardinal))))
end;
function is_32bitordconst(n: tnode): boolean;
begin
result := (n.nodetype = ordconstn) and
canbe32bitint(tordconstnode(n).value);
end;
function is_32to64typeconv(n: tnode): boolean;
begin
result := (n.nodetype = typeconvn) and
is_integer(ttypeconvnode(n).left.resultdef) and
not is_64bit(ttypeconvnode(n).left.resultdef);
end;
var
temp: tnode;
begin
result := false;
if ((left.nodetype = typeconvn) and
is_integer(ttypeconvnode(left).left.resultdef) and
not is_64bit(ttypeconvnode(left).left.resultdef) and
(((right.nodetype = ordconstn) and canbe32bitint(tordconstnode(right).value)) or
((right.nodetype = typeconvn) and
is_integer(ttypeconvnode(right).left.resultdef) and
not is_64bit(ttypeconvnode(right).left.resultdef)) and
if is_32to64typeconv(left) and
(is_32bitordconst(right) or
is_32to64typeconv(right) and
((is_signed(ttypeconvnode(left).left.resultdef) =
is_signed(ttypeconvnode(right).left.resultdef)) or
(is_signed(ttypeconvnode(left).left.resultdef) and
(torddef(ttypeconvnode(right).left.resultdef).ordtype in [u8bit,u16bit]))))) then
(torddef(ttypeconvnode(right).left.resultdef).ordtype in [u8bit,u16bit])))) then
begin
temp := ttypeconvnode(left).left;
ttypeconvnode(left).left := nil;