paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 07:08:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* when calling a procdef that either returns a procvardef or that accepts

Browse Source 
(C-style) varargs, you have to specify the full function definition
    rather than only its result

git-svn-id: branches/hlcgllvm@28356 -
This commit is contained in:
Jonas Maebe 2014-08-10 13:19:26 +00:00
parent bae1f72896
commit db54588afa
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/llvm/hlcgllvm.pas
View File

@ -293,7 +293,8 @@ implementation
var
callparas: tfplist;
llvmretdef,
hlretdef: tdef;
hlretdef,
calldef: tdef;
paraloc: pcgparalocation;
callpara: pllvmcallpara;
href: treference;
@ -369,7 +370,16 @@ implementation
else
res:=NR_NO;
list.concat(taillvm.call_size_name_paras(res,llvmretdef,current_asmdata.RefAsmSymbol(pd.mangledname),callparas));
{ if the function returns a function pointer type or is varargs, we
must specify the full function signature, otherwise we can only
specify the return type }
if (po_varargs in pd.procoptions) or
((pd.proccalloption in cdecl_pocalls) and
is_array_of_const(tparavarsym(pd.paras[pd.paras.count-1]).vardef)) then
calldef:=pd
else
calldef:=llvmretdef;
list.concat(taillvm.call_size_name_paras(res,calldef,current_asmdata.RefAsmSymbol(pd.mangledname),callparas));
result:=get_call_result_cgpara(pd,forceresdef);
set_call_function_result(list,pd,llvmretdef,hlretdef,res,result);
end;