[fpc-pascal] Win64 and currency

[Pierre Free Pascal]

Confirmed,
  if you usee -Aas and -al
you will see that
TEST
is just .quad -10
which is wrong of course...
  Using -10.0 fixes the bug for now if
you really need this correct fast.

  It would be nice if you could submit a bug report.

Pierre Muller

> -----Message d'origine-----
> De : fpc-pascal-bounces at lists.freepascal.org [mailto:fpc-pascal-
> bounces at lists.freepascal.org] De la part de LacaK
> Envoyé : vendredi 30 mars 2012 14:09
> À : FPC-Pascal users discussions
> Objet : [fpc-pascal] Win64 and currency
> 
> Hi *,
> I encounter strange thing under FPC 2.7.1 and Win64 target.
> Can anybody test this program:
> ========================
> const
>   test: array[0..0] of currency = (-10);
> var
>   c:currency;
> 
> begin
>   c := -10;
>   writeln(c);
>   writeln(test[0]);
>   readln;
> end.
> 
> ========================
> Results:
> -1.000000000000000000E+01
> -1.000000000000000000E-03
> 
> Thanks
> -Laco.
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal