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
|
||||
// multiple digits).
|
||||
if carry > 0 then
|
||||
Insert(1, Result.FDigits, 0);
|
||||
Insert(1, Result.FDigits, len);
|
||||
Result.FIsNegative := AReturnNegative;
|
||||
end;
|
||||
|
||||
|
|
Loading…
Reference in New Issue