Fixed addition: final carry-over was inserted at the wrong end of the number
This commit is contained in:
parent
ef1eba4538
commit
9f619adc01
|
@ -201,7 +201,7 @@ begin
|
||||||
// Applies the carry-over into a new digit that was not anticipated in the initialization at the top (carry over
|
// Applies the carry-over into a new digit that was not anticipated in the initialization at the top (carry over
|
||||||
// multiple digits).
|
// multiple digits).
|
||||||
if carry > 0 then
|
if carry > 0 then
|
||||||
Insert(1, Result.FDigits, 0);
|
Insert(1, Result.FDigits, len);
|
||||||
Result.FIsNegative := AReturnNegative;
|
Result.FIsNegative := AReturnNegative;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue