[fpc-pascal] Currency and Int64 casting

[LacaK]

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.