From 53a27fe7b3c8af5ed9708f4f789785f787e117ef Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 15 Nov 2018 16:58:40 +0000
Subject: [PATCH]  Disable range check in m68k:tiscv32 and riscv64 cgcpu units

git-svn-id: trunk@40319 -
---
 compiler/m68k/cgcpu.pas    | 3 +++
 compiler/riscv32/cgcpu.pas | 3 +++
 compiler/riscv64/cgcpu.pas | 3 +++
 3 files changed, 9 insertions(+)

diff --git a/compiler/m68k/cgcpu.pas b/compiler/m68k/cgcpu.pas
index 5ab4b074a1..87882258b4 100644
--- a/compiler/m68k/cgcpu.pas
+++ b/compiler/m68k/cgcpu.pas
@@ -138,6 +138,9 @@ unit cgcpu;
        symsym,symtable,defutil,paramgr,procinfo,
        rgobj,tgobj,rgcpu,fmodule;
 
+{ Range check must be disabled explicitly as conversions between signed and unsigned
+  32-bit values are done without explicit typecasts }
+{$R-}
 
     const
       { opcode table lookup }
diff --git a/compiler/riscv32/cgcpu.pas b/compiler/riscv32/cgcpu.pas
index ad2229f0da..06c167f955 100644
--- a/compiler/riscv32/cgcpu.pas
+++ b/compiler/riscv32/cgcpu.pas
@@ -69,6 +69,9 @@ unit cgcpu;
        symconst,symsym,fmodule,
        rgobj,tgobj,cpupi,procinfo,paramgr;
 
+{ Range check must be disabled explicitly as conversions between signed and unsigned
+  32-bit values are done without explicit typecasts }
+{$R-}
 
     procedure tcgrv32.init_register_allocators;
       begin
diff --git a/compiler/riscv64/cgcpu.pas b/compiler/riscv64/cgcpu.pas
index 554107ab91..f8b3888ae9 100644
--- a/compiler/riscv64/cgcpu.pas
+++ b/compiler/riscv64/cgcpu.pas
@@ -63,6 +63,9 @@ implementation
       symconst, fmodule, symtable,
       rgobj, tgobj, cpupi, procinfo, paramgr, cpupara;
 
+{ Range check must be disabled explicitly as conversions between signed and unsigned
+  64-bit and 32-bit values are done without explicit typecasts }
+{$R-}
 
     procedure tcgrv64.init_register_allocators;
       begin