[fpc-pascal] Currency and Int64 casting

[Vojtěch Čihák]

Hi,
 
Linux 64-bit Lazarus 1.9.0 r57948M FPC 3.1.1 x86_64-linux-qt gives
 
 1.000000000000000000E+00 10000
V.______________________________________________________________
> Od: LacaK <lacak at zoznam.sk>
> Komu: FPC-Pascal users discussions <fpc-pascal at lists.freepascal.org>
> Datum: 17.05.2018 13:33
> Předmět: [fpc-pascal] Currency and Int64 casting
>
Hi,
 
 consider following program:
 
 var
   c: currency;
 
 begin
   c := 1;
   writeln(c,' ',Int64(c));
   readln;
 end.
 
 FPC 3.0.4
 On Win32/x86 I get: 1, 1000  (what I am expecting)
 On Win64/x86_64 I get: 1, 1
 
 Is is as expected ?
 
 Is there safe way for both platforms how to get 1000 (beside that I can 
 use: i: int64 absolute c;)
 
 Thanks
 
 -Laco.
 
 _______________________________________________
 fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
 http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal <http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20180517/e4774244/attachment.html>