diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-01-12 10:29:14 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-01-12 10:29:14 +0000 |
| commit | 73cdf7134b34296b758221001d37832a12bf550e (patch) | |
| tree | 04ca4dfdc93212af12be4e026c78d5e8dfe2dd71 /compiler/tgobj.pas | |
| parent | 2a0b0c0ebdf51feec16b36747cf59982dc1e1dc0 (diff) | |
| download | fpc-73cdf7134b34296b758221001d37832a12bf550e.tar.gz | |
* changed ref parameter of gettemp/gettemptyped from var to out to fix
wrong warnings
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@5915 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/tgobj.pas')
| -rw-r--r-- | compiler/tgobj.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/tgobj.pas b/compiler/tgobj.pas index 261f382f15..1835581ed3 100644 --- a/compiler/tgobj.pas +++ b/compiler/tgobj.pas @@ -80,8 +80,8 @@ unit tgobj; } procedure setfirsttemp(l : longint); - procedure gettemp(list: TAsmList; size : longint;temptype:ttemptype;var ref : treference); - procedure gettemptyped(list: TAsmList; def:tdef;temptype:ttemptype;var ref : treference); + procedure gettemp(list: TAsmList; size : longint;temptype:ttemptype;out ref : treference); + procedure gettemptyped(list: TAsmList; def:tdef;temptype:ttemptype;out ref : treference); procedure ungettemp(list: TAsmList; const ref : treference); function sizeoftemp(list: TAsmList; const ref: treference): longint; @@ -493,7 +493,7 @@ implementation 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 varalign : shortint; begin @@ -507,7 +507,7 @@ implementation 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 varalign : shortint; begin |