Explorar o código

cgbase: make first parameter of supregset_reset "out"

Jonas Maebe %!s(int64=2) %!d(string=hai) anos
pai
achega
e2ade64a1e
Modificáronse 1 ficheiros con 2 adicións e 2 borrados
  1. 2 2
      compiler/cgbase.pas

+ 2 - 2
compiler/cgbase.pas

@@ -462,7 +462,7 @@ interface
        mms_16,
        mms_32 : pmmshuffle;
 
-    procedure supregset_reset(var regs:tsuperregisterset;setall:boolean;
+    procedure supregset_reset(out regs:tsuperregisterset;setall:boolean;
                               maxreg:Tsuperregister);{$ifdef USEINLINE}inline;{$endif}
     procedure supregset_include(var regs:tsuperregisterset;s:tsuperregister);{$ifdef USEINLINE}inline;{$endif}
     procedure supregset_exclude(var regs:tsuperregisterset;s:tsuperregister);{$ifdef USEINLINE}inline;{$endif}
@@ -626,7 +626,7 @@ implementation
     end;
 
 
-    procedure supregset_reset(var regs:tsuperregisterset;setall:boolean;
+    procedure supregset_reset(out regs:tsuperregisterset;setall:boolean;
                               maxreg:Tsuperregister);{$ifdef USEINLINE}inline;{$endif}
 
     begin