paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-09 09:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Disable range check in m68k:tiscv32 and riscv64 cgcpu units

Browse Source 
git-svn-id: trunk@40319 -
This commit is contained in:
pierre 2018-11-15 16:58:40 +00:00
parent 7c92412c74
commit 53a27fe7b3
3 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/m68k/cgcpu.pas
View File

@ -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
compiler/riscv32/cgcpu.pas
View File

@ -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
compiler/riscv64/cgcpu.pas
View File

@ -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