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

* avoid unnecessary sign extensions for integer comparisons

Browse Source 
git-svn-id: trunk@4038 -
This commit is contained in:
Jonas Maebe 2006-07-01 16:05:57 +00:00
parent 03f892719d
commit b4668054c5
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/nadd.pas
View File

@ -949,8 +949,12 @@ implementation
end
{ and,or,xor work on bit patterns and don't care
about the sign of integers }
else if (nodetype in [andn,orn,xorn]) and
is_integer(ld) and is_integer(rd) then
{ compares don't need extension to native int size either }
{ as long as both values are signed or unsigned }
else if is_integer(ld) and is_integer(rd) and
((nodetype in [andn,orn,xorn]) or
((nodetype in [equaln,unequaln,gtn,gten,ltn,lten]) and
not(is_signed(ld) xor is_signed(rd)))) then
begin
if rd.size>ld.size then
inserttypeconv_internal(left,right.resulttype)