Re: [fpc-devel] Wrong floating point Currency calculations

2019-02-07 Thread Ondrej Pokorny
On 07.02.2019 19:22, Martok wrote: Is this a known bug? (Btw. I tested on win32.) Maybe this? https://bugs.freepascal.org/view.php?id=33963 Yes, it looks like the same issue. Thanks for pointing me there! Ondrej ___ fpc-devel maillist -

Re: [fpc-devel] Wrong floating point Currency calculations

2019-02-07 Thread Martok
> Is this a known bug? > > (Btw. I tested on win32.) Maybe this? https://bugs.freepascal.org/view.php?id=33963 -- Regards, Martok ___ fpc-devel maillist - fpc-devel@lists.freepascal.org

Re: [fpc-devel] Wrong floating point Currency calculations

2019-02-07 Thread Ondrej Pokorny
More info: if I use an Integer variable or even an Integer constant the results are correct: program Project1; var   C0, C1, C2, C3, C4: Currency;   D0: Double;   I0: Integer; begin   I0 := 4736;   C0 := I0;   D0 := C0;   C1 := C0 * 8 / 72 * 25.4 / 2048;   C2 := D0 * 8 / 72 * 25.4 / 2048;   C3

[fpc-devel] Wrong floating point Currency calculations

2019-02-07 Thread Ondrej Pokorny
Hello, when doing floating point calculations with Currency, the results are wrong. Example: program Project1; var   C0, C1, C2: Currency;   D0: Double; begin   C0 := 4736;   D0 := C0;   C1 := C0 * 8 / 72 * 25.4 / 2048;   C2 := D0 * 8 / 72 * 25.4 / 2048;   Writeln(C1);   Writeln(C2); end. FPC

Re: [fpc-devel] Suspicion about TThread.Synchronize

2019-02-07 Thread Luca Olivetti
El 7/2/19 a les 0:10, Martin Frb ha escrit: On 06/02/2019 23:38, Luca Olivetti wrote: and the exception logged (though the logging in turn uses synchronize). What OS? On Windows you can use  LazLogger.  (in Laz 2.0.0) It uses TThread.Queue by default, but you can replace

[fpc-devel] Rect drawing inconsistency in TFPCanvas

2019-02-07 Thread Ondrej Pokorny
Hello, when working with TFPCanvas, I face an annoying inconsistency between fcl-image and all other image libraries I know (including LCL Graphics). The problem is that TFPCustomCanvas.FillRect and all other rect-aware methods (FillEllipse, etc...) fill 1 more pixel to the right and bottom.