paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 04:17:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@38169 -
This commit is contained in:
nickysn 2018-02-09 15:51:35 +00:00
parent 85c0b3854d
commit 4d0d143501
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/rautils.pas
View File

@ -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;