浏览代码

* disable range/overflow checking for subsetreg/ref code, to prevent
spurious errors when calculating masks (was also the case for the old
code in cgobj)

git-svn-id: trunk@21380 -

Jonas Maebe 13 年之前
父节点
当前提交
0037de6ac9
共有 1 个文件被更改,包括 5 次插入0 次删除
  1. 5 0
      compiler/hlcgobj.pas

+ 5 - 0
compiler/hlcgobj.pas

@@ -994,6 +994,9 @@ implementation
       end;
     end;
 
+{$push}
+{$r-,q-}
+
   procedure thlcgobj.a_load_subsetreg_reg(list: TAsmList; subsetsize, tosize: tdef; const sreg: tsubsetregister; destreg: tregister);
     var
       subsetregdef: torddef;
@@ -2081,6 +2084,8 @@ implementation
        end;
     end;
 
+  {$pop}
+
   function thlcgobj.get_bit_const_ref_sref(bitnumber: tcgint; refdef: tdef; const ref: treference): tsubsetreference;
     begin
       result.ref:=ref;