Fixed addition: final carry-over was inserted at the wrong end of the number

This commit is contained in:
Stefan Müller 2024-02-14 12:02:13 +01:00 committed by Stefan Müller
parent ef1eba4538
commit 9f619adc01
1 changed files with 1 additions and 1 deletions

View File

@ -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;