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

Reply via email to