Moreover:
var
c: currency;
i1: int64;
i2: int64 absolute c;
begin
c := 68719476736;
i1 := Trunc(c*10000);
writeln(c,', ',i1,', ',i2);
readln;
end.
Win32 (as expected): 6.871947673600000000E+10, 687194767360000,
687194767360000
Win64 (wrong) : 6.871947673600000000E+10,
53550614319 , 687194767360000
I have created bug report:
https://bugs.freepascal.org/view.php?id=33758
L.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal