Pārlūkot izejas kodu

Disable range check in m68k:tiscv32 and riscv64 cgcpu units

git-svn-id: trunk@40319 -
pierre 6 gadi atpakaļ
vecāks
revīzija
53a27fe7b3

+ 3 - 0
compiler/m68k/cgcpu.pas

@@ -138,6 +138,9 @@ unit cgcpu;
        symsym,symtable,defutil,paramgr,procinfo,
        symsym,symtable,defutil,paramgr,procinfo,
        rgobj,tgobj,rgcpu,fmodule;
        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
     const
       { opcode table lookup }
       { opcode table lookup }

+ 3 - 0
compiler/riscv32/cgcpu.pas

@@ -69,6 +69,9 @@ unit cgcpu;
        symconst,symsym,fmodule,
        symconst,symsym,fmodule,
        rgobj,tgobj,cpupi,procinfo,paramgr;
        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;
     procedure tcgrv32.init_register_allocators;
       begin
       begin

+ 3 - 0
compiler/riscv64/cgcpu.pas

@@ -63,6 +63,9 @@ implementation
       symconst, fmodule, symtable,
       symconst, fmodule, symtable,
       rgobj, tgobj, cpupi, procinfo, paramgr, cpupara;
       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;
     procedure tcgrv64.init_register_allocators;
       begin
       begin