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

* use the (sorted) paras rather than the (unsorted) parasymtable when

Browse Source 
generating method signatures

git-svn-id: branches/objc@13661 -
This commit is contained in:
Jonas Maebe 2009-09-06 17:15:00 +00:00
parent ac1b340755
commit 27385550f8
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/objcutil.pas
View File

@ -502,9 +502,9 @@ implementation
paramgr.ret_in_param(pd.returndef,pocall_cdecl) then
inc(totalsize,sizeof(pint));
{$endif}
for i:=0 to pd.parast.symlist.count-1 do
for i:=0 to pd.paras.count-1 do
begin
vs:=tparavarsym(pd.parast.symlist[i]);
vs:=tparavarsym(pd.paras[i]);
{ addencodedtype always assumes a value parameter, so add
a pointer indirection for var/out parameters. }
if not paramanager.push_addr_param(vs_value,vs.vardef,pocall_cdecl) and