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

* skip hidden function result parameters when generating message signatures

Browse Source 
git-svn-id: branches/objc@13662 -
This commit is contained in:
Jonas Maebe 2009-09-06 17:18:49 +00:00
parent 27385550f8
commit 1048ac96d5
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/objcutil.pas
View File

@ -505,6 +505,8 @@ implementation
for i:=0 to pd.paras.count-1 do for i:=0 to pd.paras.count-1 do
begin begin
vs:=tparavarsym(pd.paras[i]); vs:=tparavarsym(pd.paras[i]);
if (vo_is_funcret in vs.varoptions) then
continue;
{ addencodedtype always assumes a value parameter, so add { addencodedtype always assumes a value parameter, so add
a pointer indirection for var/out parameters. } a pointer indirection for var/out parameters. }
if not paramanager.push_addr_param(vs_value,vs.vardef,pocall_cdecl) and if not paramanager.push_addr_param(vs_value,vs.vardef,pocall_cdecl) and