瀏覽代碼

* convert the 'var' parameters of RAUtils.AsmSearchSym to 'out'

git-svn-id: trunk@38170 -
nickysn 7 年之前
父節點
當前提交
b49c09b84c
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/rautils.pas

+ 2 - 2
compiler/rautils.pas

@@ -185,7 +185,7 @@ Function EscapeToPascal(const s:string): string;
                      Symbol helper routines
 ---------------------------------------------------------------------}
 
-procedure AsmSearchSym(const s:string;var srsym:tsym;var srsymtable:TSymtable);
+procedure AsmSearchSym(const s:string;out srsym:tsym;out srsymtable:TSymtable);
 Function GetRecordOffsetSize(s:string;out Offset: tcgint;out Size:tcgint; out mangledname: string; needvmtofs: boolean; out hastypecast: boolean):boolean;
 Function SearchType(const hs:string;out size:tcgint): Boolean;
 Function SearchRecordType(const s:string): boolean;
@@ -1265,7 +1265,7 @@ end;
                       Symbol table helper routines
 ****************************************************************************}
 
-procedure AsmSearchSym(const s:string;var srsym:tsym;var srsymtable:TSymtable);
+procedure AsmSearchSym(const s:string;out srsym:tsym;out srsymtable:TSymtable);
 var
   i : integer;
 begin