On Tue, 30 Oct 2012, ik wrote:
On Tue, Oct 30, 2012 at 4:26 PM, ik <ido...@gmail.com> wrote:
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.
--
Proud owner of F-15C 80-0007
http://www.f15sim.com - The only one of its kind.
http://www.diy-cockpits.org/coll - Go Collimated or Go Home.
Some people collect things for a hobby. Geeks collect hobbies.
ScarletDME - The red hot Data Management Environment
A Multi-Value database for the masses, not the classes.
http://www.scarletdme.org - Get it _today_!
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
