Преглед изворни кода

* 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;