mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 15:28:00 +02:00
Disable range and overflow checks inside detect_linuxvcs procedure
This commit is contained in:
parent
784d2146c5
commit
1fce64fa0a
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user