Browse Source

Disable overflow/range check in some part of the arm code

git-svn-id: trunk@49274 -
pierre 4 years ago
parent
commit
d03c3c0669
2 changed files with 7 additions and 3 deletions
  1. 4 0
      compiler/arm/aasmcpu.pas
  2. 3 3
      compiler/arm/cpubase.pas

+ 4 - 0
compiler/arm/aasmcpu.pas

@@ -1621,6 +1621,9 @@ implementation
           end;
       end;
 
+{$push}
+{ Disable range and overflow checking here }
+{$R-}{$Q-}        
     procedure fix_invalid_imms(list: TAsmList);
       var
         curtai: tai;
@@ -1669,6 +1672,7 @@ implementation
           end;
       end;
 
+{$pop}
 
     procedure gather_it_info(list: TAsmList);
       var

+ 3 - 3
compiler/arm/cpubase.pas

@@ -605,6 +605,9 @@ unit cpubase;
       end;
 
 
+{$push}
+{ Disable range and overflow checking here }
+{$R-}{$Q-}        
     function is_thumb32_imm(d: aint): boolean;
       var
         t : aint;
@@ -639,9 +642,6 @@ unit cpubase;
           end;
       end;
     
-{$push}
-{ Disable range and overflow checking here }
-{$R-}{$Q-}        
     function is_continuous_mask(d : aword;var lsb, width: byte) : boolean;
       var
         msb : byte;