[fpc-devel] Question about Currency support

[Fuxin Zhang]

>
> Fuxin Zhang wrote on Tue, 05 Jun 2012:
>
>> Is it the test program taddcurr.pp cannot work for non-x86 systems?
>
> It works on SPARC at least:
> http://www.freepascal.org/testsuite/cgi-bin/testsuite.cgi?action=3&run1id=113194&testfileid=99
>
> It doesn't work on ppc32 currently, but that's due to a bug in the
> ppc32 code generator somewhere (the ppc compiler halts with an
> internalerror; I haven't had the time yet to properly debug it).

I have found the cause of failure:

  double div 99900/10000.0 = 9.99 in round to nearest mode, =9.899.. in
round to zero mode.

After correcting the related fpc_setfsr, taddcurr.pp now pass.

>
>
> Jonas
>