<p style="padding:0 0 0 0; margin:0 0 0 0;">Hi,</p>

<p style="padding:0 0 0 0; margin:0 0 0 0;"> </p>

<p style="padding:0 0 0 0; margin:0 0 0 0;">Linux 64-bit Lazarus 1.9.0 r57948M FPC 3.1.1 x86_64-linux-qt gives</p>

<p style="padding:0 0 0 0; margin:0 0 0 0;"> </p>

<p style="padding:0 0 0 0; margin:0 0 0 0;"> 1.000000000000000000E+00 10000</p>

<div>V.</div>
<p style="padding:0 0 0 0; margin:0 0 0 0;">______________________________________________________________<br />
> Od: LacaK <lacak@zoznam.sk><br />
> Komu: FPC-Pascal users discussions <fpc-pascal@lists.freepascal.org><br />
> Datum: 17.05.2018 13:33<br />
> Předmět: [fpc-pascal] Currency and Int64 casting<br />
></p>

Hi,<br />
 <br />
 consider following program:<br />
 <br />
 var<br />
   c: currency;<br />
 <br />
 begin<br />
   c := 1;<br />
   writeln(c,' ',Int64(c));<br />
   readln;<br />
 end.<br />
 <br />
 FPC 3.0.4<br />
 On Win32/x86 I get: 1, 1000  (what I am expecting)<br />
 On Win64/x86_64 I get: 1, 1<br />
 <br />
 Is is as expected ?<br />
 <br />
 Is there safe way for both platforms how to get 1000 (beside that I can <br />
 use: i: int64 absolute c;)<br />
 <br />
 Thanks<br />
 <br />
 -Laco.<br />
 <br />
 _______________________________________________<br />
 fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org<br />
 <a href="http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal">http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal</a>