Przeglądaj źródła

* changed ref parameter of gettemp/gettemptyped from var to out to fix
wrong warnings

git-svn-id: trunk@5915 -

Jonas Maebe 18 lat temu
rodzic
commit
2e6d438599
1 zmienionych plików z 4 dodań i 4 usunięć
  1. 4 4
      compiler/tgobj.pas

+ 4 - 4
compiler/tgobj.pas

@@ -80,8 +80,8 @@ unit tgobj;
           }
           procedure setfirsttemp(l : longint);
 
-          procedure gettemp(list: TAsmList; size : longint;temptype:ttemptype;var ref : treference);
-          procedure gettemptyped(list: TAsmList; def:tdef;temptype:ttemptype;var ref : treference);
+          procedure gettemp(list: TAsmList; size : longint;temptype:ttemptype;out ref : treference);
+          procedure gettemptyped(list: TAsmList; def:tdef;temptype:ttemptype;out ref : treference);
           procedure ungettemp(list: TAsmList; const ref : treference);
 
           function sizeoftemp(list: TAsmList; const ref: treference): longint;
@@ -493,7 +493,7 @@ implementation
       end;
 
 
-    procedure ttgobj.gettemp(list: TAsmList; size : longint;temptype:ttemptype;var ref : treference);
+    procedure ttgobj.gettemp(list: TAsmList; size : longint;temptype:ttemptype;out ref : treference);
       var
         varalign : shortint;
       begin
@@ -507,7 +507,7 @@ implementation
       end;
 
 
-    procedure ttgobj.gettemptyped(list: TAsmList; def:tdef;temptype:ttemptype;var ref : treference);
+    procedure ttgobj.gettemptyped(list: TAsmList; def:tdef;temptype:ttemptype;out ref : treference);
       var
         varalign : shortint;
       begin