From d46fad1e7ffb56bb24e51a9210b7532e1fd5970c Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Sun, 10 Jan 2016 17:21:59 +0000 Subject: [PATCH] * use provided name to a_call_name() instead of hardcoding pd.mangledname() (so that Objective-C messaging and WPO procedure names are used) git-svn-id: trunk@32910 - --- compiler/llvm/hlcgllvm.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/llvm/hlcgllvm.pas b/compiler/llvm/hlcgllvm.pas index 86a527ac8e..805da16185 100644 --- a/compiler/llvm/hlcgllvm.pas +++ b/compiler/llvm/hlcgllvm.pas @@ -472,7 +472,7 @@ implementation res: tregister; begin a_call_common(list,pd,paras,forceresdef,res,hlretdef,llvmretdef,callparas); - list.concat(taillvm.call_size_name_paras(get_call_pd(pd),res,llvmretdef,current_asmdata.RefAsmSymbol(pd.mangledname),callparas)); + list.concat(taillvm.call_size_name_paras(get_call_pd(pd),res,llvmretdef,current_asmdata.RefAsmSymbol(s),callparas)); result:=get_call_result_cgpara(pd,forceresdef); set_call_function_result(list,pd,llvmretdef,hlretdef,res,result); end;