warrence
/
AdventOfCode2023
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
UBigInt.pas
View File

@ -469,7 +469,7 @@ begin
// Performs full digit shifts by copy if there are no bit shifts. // Performs full digit shifts by copy if there are no bit shifts.
len := Length(A.FDigits); len := Length(A.FDigits);
SetLength(Result.FDigits, len + digitShifts); 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; end;
Result.FIsNegative := A.IsNegative; Result.FIsNegative := A.IsNegative;