Fixed shl operator: incorrect move for full digit shifts
This commit is contained in:
parent
cec6985489
commit
ef1eba4538
|
@ -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;
|
||||
|
|
Loading…
Reference in New Issue