瀏覽代碼

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

git-svn-id: trunk@40124 -
pierre 6 年之前
父節點
當前提交
9c90f593ab
共有 2 個文件被更改,包括 7 次插入0 次删除
  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,
        hlcgobj;
 
+{ Range check must be disabled explicitly as the code uses
+  implicit typecast to aint troughout }
+{$R-}
+
     function use_push(const cgpara:tcgpara):boolean;
       begin
         result:=(not paramanager.use_fixed_stack) and

+ 3 - 0
compiler/x86/nx86add.pas

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