To not forget, I have reported it also in bug tracker
http://bugs.freepascal.org/view.php?id=19636
-Laco.
Hi Joost,
try attached patch. For me it works as expected.
-Laco.
Maybe someone else can.
If not, I think we should rewrite the whole function.
Joost.
--
Hi Joost,
try attached patch. For me it works as expected.
-Laco.
Maybe someone else can.
If not, I think we should rewrite the whole function.
Joost.
--- fmtbcd.pp.ori Mon Jun 20 07:10:16 2011
+++ fmtbcd.pp Mon Jun 20 07:51:26 2011
@@ -2205,8 +2205,6 @@ writeln;
bh1
Hi Joost,
for me:
100/1=10 <--error
10/1=10
100/10=10
1000/1=10 <--error
1000/10=10 <--error
1000/100=10
100/2=50
1007/5=201.4
-Laco.
Hi all,
Dividing BCD's doesn't go wel:
100/1=10
100/2=overflow
1007/5=overflow
It's all in this function in the FmtBCD unit:
procedure BCDDivide ( const Div
Hi all,
Dividing BCD's doesn't go wel:
100/1=10
100/2=overflow
1007/5=overflow
It's all in this function in the FmtBCD unit:
procedure BCDDivide ( const Dividend,
Divisor : tBCD;
var BCDout : tBCD );
I've tried to understand how the code
