Hello,

I have the following function:

function OneToTwoComplement(AValue: QWord): QWord;
begin
  Result := (AValue xor $FFFFFFFFFFFFFFFF) + 1;
end;

What am I missing here that makes the compiler complain about "Range check error while evaluating constants" ?
Why doesn't it complain on :

function OneToTwoComplement(AValue: Int64): Int64;
begin
  Result := (Abs(AValue) xor $FFFFFFFFFFFFFFFF) + 1;
end;

Thanks,
Ido

How I love to be completely ignored

That's good, because we love ignoring you.

g.

See http://mantis.freepascal.org/view.php?id=21284

You need something like

function OneToTwoComplement(AValue: QWord): QWord;
begin
   Result := (AValue xor Qword($FFFFFFFFFFFFFFFF)) + 1;
end;

What happens in the first case if you cast that constant to a QWord?

The compiler stop reporting warnings