diff --git a/compiler/hlcgobj.pas b/compiler/hlcgobj.pas
index 8e1e1fa288..2357ef0f48 100644
--- a/compiler/hlcgobj.pas
+++ b/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;