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

* fixed wrong range check errors for "qword and constant" after

Browse Source 
r14892

git-svn-id: trunk@14904 -
This commit is contained in:
Jonas Maebe 2010-02-13 20:44:03 +00:00
parent 1f4d7d6057
commit 38b1271a21
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/nadd.pas
View File

@ -1149,7 +1149,10 @@ implementation
{ size either as long as both values are signed or unsigned }
{ "xor" and "or" also don't care about the sign if the values }
{ occupy an entire register }
{ don't do it if either type is 64 bit, since in that case we }
{ can't safely find a "common" type }
else if is_integer(ld) and is_integer(rd) and
not is_64bitint(ld) and not is_64bitint(rd) and
((nodetype=andn) or
((nodetype in [orn,xorn,equaln,unequaln,gtn,gten,ltn,lten]) and
not(is_signed(ld) xor is_signed(rd)))) then