mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 09:26:15 +02:00
* fixed wrong range check errors for "qword and constant" after
r14892 git-svn-id: trunk@14904 -
This commit is contained in:
parent
1f4d7d6057
commit
38b1271a21
@ -1149,7 +1149,10 @@ implementation
|
|||||||
{ size either as long as both values are signed or unsigned }
|
{ size either as long as both values are signed or unsigned }
|
||||||
{ "xor" and "or" also don't care about the sign if the values }
|
{ "xor" and "or" also don't care about the sign if the values }
|
||||||
{ occupy an entire register }
|
{ 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
|
else if is_integer(ld) and is_integer(rd) and
|
||||||
|
not is_64bitint(ld) and not is_64bitint(rd) and
|
||||||
((nodetype=andn) or
|
((nodetype=andn) or
|
||||||
((nodetype in [orn,xorn,equaln,unequaln,gtn,gten,ltn,lten]) and
|
((nodetype in [orn,xorn,equaln,unequaln,gtn,gten,ltn,lten]) and
|
||||||
not(is_signed(ld) xor is_signed(rd)))) then
|
not(is_signed(ld) xor is_signed(rd)))) then
|
||||||
|
Loading…
Reference in New Issue
Block a user