Fixed some redundant parenthesis

This commit is contained in:
Stefan Müller 2024-01-31 19:20:10 +01:00 committed by Stefan Müller
parent 7a6623c99c
commit bfb33673ee
1 changed files with 2 additions and 2 deletions

View File

@ -203,7 +203,7 @@ begin
Result.FDigits[i] := a.FDigits[i] - b.FDigits[i] - carry; Result.FDigits[i] := a.FDigits[i] - b.FDigits[i] - carry;
carry := 0; carry := 0;
end; end;
if (Result.FDigits[i] > 0) then if Result.FDigits[i] > 0 then
lastNonZeroDigitIndex := i; lastNonZeroDigitIndex := i;
end; end;
Inc(i); Inc(i);
@ -218,7 +218,7 @@ begin
else begin else begin
Result.FDigits[i] := a.FDigits[i] - carry; Result.FDigits[i] := a.FDigits[i] - carry;
carry := 0; carry := 0;
if (Result.FDigits[i] > 0) then if Result.FDigits[i] > 0 then
lastNonZeroDigitIndex := i; lastNonZeroDigitIndex := i;
end; end;
Inc(i); Inc(i);