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

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49274 3ad0048d-3df7-0310-abae-a5850022a9f2

2 files changed, 7 insertions, 3 deletions

diff --git a/compiler/arm/aasmcpu.pas b/compiler/arm/aasmcpu.pas
index 443681430a..c8cb8ff3ce 100644
--- a/compiler/arm/aasmcpu.pas
+++ b/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
diff --git a/compiler/arm/cpubase.pas b/compiler/arm/cpubase.pas
index 9432c122c7..08189c4202 100644
--- a/compiler/arm/cpubase.pas
+++ b/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;