浏览代码

Disable range check in m68k:tiscv32 and riscv64 cgcpu units

git-svn-id: trunk@40319 -
pierre 6 年之前
父节点
当前提交
53a27fe7b3
共有 3 个文件被更改,包括 9 次插入0 次删除
  1. 3 0
      compiler/m68k/cgcpu.pas
  2. 3 0
      compiler/riscv32/cgcpu.pas
  3. 3 0
      compiler/riscv64/cgcpu.pas

+ 3 - 0
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 }

+ 3 - 0
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

+ 3 - 0
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