Pārlūkot izejas kodu

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

git-svn-id: trunk@40124 -
pierre 6 gadi atpakaļ
vecāks
revīzija
9c90f593ab
2 mainītis faili ar 7 papildinājumiem un 0 dzēšanām
  1. 4 0
      compiler/i8086/cgcpu.pas
  2. 3 0
      compiler/x86/nx86add.pas

+ 4 - 0
compiler/i8086/cgcpu.pas

@@ -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 - 0
compiler/x86/nx86add.pas

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