paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 13:30:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ remove type conversions also for unary operations if possible

Browse Source 
git-svn-id: trunk@47155 -
This commit is contained in:
florian 2020-10-22 21:25:37 +00:00
parent 74d145bb16
commit dc547b1426
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/ncnv.pas
View File

@ -2925,6 +2925,13 @@ implementation
docheckremoveinttypeconvs(tbinarynode(n).left) and docheckremoveinttypeconvs(tbinarynode(n).left) and
docheckremoveinttypeconvs(tbinarynode(n).right); docheckremoveinttypeconvs(tbinarynode(n).right);
end; end;
unaryminusn:
begin
gotsint:=true;
result:=docheckremoveinttypeconvs(tunarynode(n).left);
end;
notn:
result:=docheckremoveinttypeconvs(tunarynode(n).left);
addn,muln,divn,modn,andn: addn,muln,divn,modn,andn:
begin begin
if n.nodetype in [divn,modn] then if n.nodetype in [divn,modn] then
@ -2980,6 +2987,21 @@ implementation
// ((tordconstnode(tbinarynode(n).right).value and $7fffffff)=tordconstnode(tbinarynode(n).right).value) then // ((tordconstnode(tbinarynode(n).right).value and $7fffffff)=tordconstnode(tbinarynode(n).right).value) then
// inserttypeconv_internal(tbinarynode(n).left,n.resultdef); // inserttypeconv_internal(tbinarynode(n).left,n.resultdef);
end; end;
unaryminusn,notn:
begin
exclude(n.flags,nf_internal);
if not forceunsigned and
is_signed(n.resultdef) then
begin
doremoveinttypeconvs(tunarynode(n).left,signedtype,false,signedtype,unsignedtype);
n.resultdef:=signedtype;
end
else
begin
doremoveinttypeconvs(tunarynode(n).left,unsignedtype,forceunsigned,signedtype,unsignedtype);
n.resultdef:=unsignedtype;
end;
end;
typeconvn: typeconvn:
begin begin
ttypeconvnode(n).totypedef:=todef; ttypeconvnode(n).totypedef:=todef;
@ -3271,7 +3293,7 @@ implementation
to 64 bit } to 64 bit }
if (resultdef.size <= 4) and if (resultdef.size <= 4) and
is_64bitint(left.resultdef) and is_64bitint(left.resultdef) and
(left.nodetype in [subn,addn,muln,divn,modn,xorn,andn,orn]) and (left.nodetype in [subn,addn,muln,divn,modn,xorn,andn,orn,notn,unaryminusn]) and
checkremovebiginttypeconvs(left,foundsint,[s8bit,u8bit,s16bit,u16bit,s32bit,u32bit],int64(low(longint)),high(cardinal)) then checkremovebiginttypeconvs(left,foundsint,[s8bit,u8bit,s16bit,u16bit,s32bit,u32bit],int64(low(longint)),high(cardinal)) then
doremoveinttypeconvs(left,generrordef,not foundsint,s32inttype,u32inttype); doremoveinttypeconvs(left,generrordef,not foundsint,s32inttype,u32inttype);
{$if defined(cpu16bitalu)} {$if defined(cpu16bitalu)}