Disable range and overflow checks inside detect_linuxvcs procedure

This commit is contained in:
Pierre Muller 2022-02-11 23:26:57 +00:00
parent 784d2146c5
commit 1fce64fa0a

View File

@ -109,6 +109,7 @@ begin
fields[fieldct] := 0;
for i := high(statln) downto low(statln) do
begin
{$push}{$R-} {$Q-}
case statln[i] of
'-': magnitude := -1;
'0'..'9': begin
@ -116,6 +117,7 @@ begin
+ (magnitude * (ord(statln[i]) - ord('0')));
magnitude := magnitude * 10;
end;
{$pop}
' ': begin
magnitude := 1;
fieldct := fieldct + 1;