Răsfoiți Sursa

cgbase: make first parameter of supregset_reset "out"

Jonas Maebe 2 ani în urmă
părinte
comite
e2ade64a1e
1 a modificat fișierele cu 2 adăugiri și 2 ștergeri
  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