فهرست منبع

* converted the 'size' parameter to RAUtils.SearchType to 'out' instead of 'var'

git-svn-id: trunk@38169 -
nickysn 7 سال پیش
والد
کامیت
4d0d143501
1فایلهای تغییر یافته به همراه2 افزوده شده و 2 حذف شده
  1. 2 2
      compiler/rautils.pas

+ 2 - 2
compiler/rautils.pas

@@ -187,7 +187,7 @@ Function EscapeToPascal(const s:string): string;
 
 procedure AsmSearchSym(const s:string;var srsym:tsym;var 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;var size:tcgint): Boolean;
+Function SearchType(const hs:string;out size:tcgint): Boolean;
 Function SearchRecordType(const s:string): boolean;
 Function SearchIConstant(const s:string; var l:tcgint): boolean;
 Function AsmRegisterPara(sym: tabstractnormalvarsym): boolean;
@@ -1292,7 +1292,7 @@ begin
 end;
 
 
-Function SearchType(const hs:string;var size:tcgint): Boolean;
+Function SearchType(const hs:string;out size:tcgint): Boolean;
 var
   srsym : tsym;
   srsymtable : TSymtable;