Fixed shl operator: incorrect move for full digit shifts

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

View File

@ -469,7 +469,7 @@ begin
// Performs full digit shifts by copy if there are no bit shifts.
len := Length(A.FDigits);
SetLength(Result.FDigits, len + digitShifts);
Move(A.FDigits[0], Result.FDigits[digitShifts], Length(A.FDigits));
Move(A.FDigits[0], Result.FDigits[digitShifts], CDigitSize * len);
end;
Result.FIsNegative := A.IsNegative;