@@ -994,6 +994,9 @@ implementation
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
+ {$pop}
function thlcgobj.get_bit_const_ref_sref(bitnumber: tcgint; refdef: tdef; const ref: treference): tsubsetreference;
begin
result.ref:=ref;