Re: [fpc-devel] Currency bug and FPC 3.2.0

2019-10-14 Thread Florian Klämpfl 

Am 14.10.19 um 08:57 schrieb LacaK:
Then seems that bug reported here 
https://bugs.freepascal.org/view.php?id=33439 and in related reports 
is back again?


I have reported it as a new bug: 
https://bugs.freepascal.org/view.php?id=36176


I'll check the currency stuff the next days, I have still some 
uncommitted patches regarding this lying around.


___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel

Re: [fpc-devel] Currency bug and FPC 3.2.0

2019-10-14 Thread LacaK 



var
    c: currency;
begin
    c:=922337203685.47;
    writeln(c:18:4,' = ', ' Trunc(c*1)=', Trunc(c*1));
    c:=-92233720368547;
    writeln(c:18:4,' = ', ' Trunc(c*1)=', Trunc(c*1));
end.

3.0.4 win32
  922337203685.4700 =  Trunc(c*1)=9223372036854700
-92233720368547. =  Trunc(c*1)=-92233720368547

3.3.1 r42348 win32
  922337203685.4700 =  Trunc(c*1)=9223372036854700
-92233720368547. =  Trunc(c*1)=-92233720368547


3.0.4 win64
C:\Users\Bart\LazarusProjecten\ConsoleProjecten>test
  922337203685.4700 =  Trunc(c*1)=-75
-92233720368547. =  Trunc(c*1)=7580

3.3.1 r42348 win64
  922337203685.4700 =  Trunc(c*1)=-75
-92233720368547. =  Trunc(c*1)=7580


Thanks for confirming it!

Then seems that bug reported here 
https://bugs.freepascal.org/view.php?id=33439 and in related reports 
is back again?


I have reported it as a new bug: 
https://bugs.freepascal.org/view.php?id=36176


-Laco.

___
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel