瀏覽代碼

* skip hidden function result parameters when generating message signatures

git-svn-id: branches/objc@13662 -
Jonas Maebe 16 年之前
父節點
當前提交
1048ac96d5
共有 1 個文件被更改,包括 2 次插入0 次删除
  1. 2 0
      compiler/objcutil.pas

+ 2 - 0
compiler/objcutil.pas

@@ -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