paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 18:29:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

Disable range and overflow checks inside detect_linuxvcs procedure

Browse Source
This commit is contained in:
Pierre Muller 2022-02-11 23:26:57 +00:00
parent 784d2146c5
commit 1fce64fa0a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/linux/linuxvcs.pp
View File

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