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

Add global range check disable for i8086 cgcpu and x86 nx86add units

Browse Source 
git-svn-id: trunk@40124 -
This commit is contained in:
pierre 2018-10-31 23:20:29 +00:00
parent a015c779ff
commit 9c90f593ab
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/i8086/cgcpu.pas
View File

@ -121,6 +121,10 @@ unit cgcpu;
tgobj, tgobj,
hlcgobj; hlcgobj;
{ Range check must be disabled explicitly as the code uses
implicit typecast to aint troughout }
{$R-}
function use_push(const cgpara:tcgpara):boolean; function use_push(const cgpara:tcgpara):boolean;
begin begin
result:=(not paramanager.use_fixed_stack) and result:=(not paramanager.use_fixed_stack) and

3
compiler/x86/nx86add.pas
View File

@ -79,6 +79,9 @@ unit nx86add;
ncon,nset,ninl, ncon,nset,ninl,
defutil; defutil;
{ Range check must be disabled explicitly as the code serves
on three different architecture sizes }
{$R-}
{***************************************************************************** {*****************************************************************************
Helpers Helpers