Explorar o código

Disable range and overflow checks inside detect_linuxvcs procedure

Pierre Muller %!s(int64=3) %!d(string=hai) anos
pai
achega
1fce64fa0a
Modificáronse 1 ficheiros con 2 adicións e 0 borrados
  1. 2 0
      rtl/linux/linuxvcs.pp

+ 2 - 0
rtl/linux/linuxvcs.pp

@@ -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;