From 78dbdcb0958e6871253c9c34813245d53c88d83f Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 26 Apr 2021 21:51:42 +0000
Subject: [PATCH] Disable overflow/range check in some part of the arm code

git-svn-id: trunk@49274 -
(cherry picked from commit d03c3c0669d0c135c8f1a832d73042823a267ddc)
---
 compiler/arm/aasmcpu.pas | 4 ++++
 compiler/arm/cpubase.pas | 3 +++
 2 files changed, 7 insertions(+)

diff --git a/compiler/arm/aasmcpu.pas b/compiler/arm/aasmcpu.pas
index 96454ddeac..b6eceda9fe 100644
--- a/compiler/arm/aasmcpu.pas
+++ b/compiler/arm/aasmcpu.pas
@@ -1590,6 +1590,9 @@ implementation
           end;
       end;
 
+{$push}
+{ Disable range and overflow checking here }
+{$R-}{$Q-}        
     procedure fix_invalid_imms(list: TAsmList);
       var
         curtai: tai;
@@ -1632,6 +1635,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 5fb921d2e2..53d8bab274 100644
--- a/compiler/arm/cpubase.pas
+++ b/compiler/arm/cpubase.pas
@@ -576,6 +576,9 @@ unit cpubase;
       end;
 
 
+{$push}
+{ Disable range and overflow checking here }
+{$R-}{$Q-}        
     function is_thumb32_imm(d: aint): boolean;
       var
         t : aint;