paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 18:50:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
wrong warnings

git-svn-id: trunk@5915 -
This commit is contained in:
Jonas Maebe 2007-01-12 10:29:14 +00:00
parent 198a0008d0
commit 2e6d438599
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/tgobj.pas
View File

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