paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-23 15:09:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

* convert the 'var' parameters of tx86intreader.BuildRecordOffsetSize to 'out'

Browse Source 
git-svn-id: trunk@38171 -
This commit is contained in:
nickysn 2018-02-09 16:15:40 +00:00
parent b49c09b84c
commit 84611d716b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/x86/rax86int.pas
View File

@ -63,7 +63,7 @@ Unit Rax86int;
procedure GetToken; procedure GetToken;
function consume(t : tasmtoken):boolean; function consume(t : tasmtoken):boolean;
procedure RecoverConsume(allowcomma:boolean); procedure RecoverConsume(allowcomma:boolean);
procedure BuildRecordOffsetSize(const expr: string;var offset:tcgint;var size:tcgint; var mangledname: string; needvmtofs: boolean; out hastypecast: boolean); procedure BuildRecordOffsetSize(const expr: string;out offset:tcgint;out size:tcgint; out mangledname: string; needvmtofs: boolean; out hastypecast: boolean);
procedure BuildConstSymbolExpression(needofs,isref,startingminus:boolean;var value:tcgint;var asmsym:string;var asmsymtyp:TAsmsymtype;out isseg,is_farproc_entry,hasofs:boolean); procedure BuildConstSymbolExpression(needofs,isref,startingminus:boolean;var value:tcgint;var asmsym:string;var asmsymtyp:TAsmsymtype;out isseg,is_farproc_entry,hasofs:boolean);
function BuildConstExpression:aint; function BuildConstExpression:aint;
function BuildRefConstExpression(startingminus:boolean=false):aint; function BuildRefConstExpression(startingminus:boolean=false):aint;
@ -764,12 +764,13 @@ Unit Rax86int;
{ This routine builds up a record offset after a AS_DOT { This routine builds up a record offset after a AS_DOT
token is encountered. token is encountered.
On entry actasmtoken should be equal to AS_DOT } On entry actasmtoken should be equal to AS_DOT }
Procedure tx86intreader.BuildRecordOffsetSize(const expr: string;var offset:tcgint;var size:tcgint; var mangledname: string; needvmtofs: boolean; out hastypecast: boolean); Procedure tx86intreader.BuildRecordOffsetSize(const expr: string;out offset:tcgint;out size:tcgint; out mangledname: string; needvmtofs: boolean; out hastypecast: boolean);
var var
s: string; s: string;
Begin Begin
offset:=0; offset:=0;
size:=0; size:=0;
mangledname:='';
hastypecast:=false; hastypecast:=false;
s:=expr; s:=expr;
while (actasmtoken=AS_DOT) do while (actasmtoken=AS_DOT) do