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

* use provided name to a_call_name() instead of hardcoding pd.mangledname()

Browse Source 
(so that Objective-C messaging and WPO procedure names are used)

git-svn-id: trunk@32910 -
This commit is contained in:
Jonas Maebe 2016-01-10 17:21:59 +00:00
parent 1c99adb411
commit d46fad1e7f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/llvm/hlcgllvm.pas
View File

@ -472,7 +472,7 @@ implementation
res: tregister; res: tregister;
begin begin
a_call_common(list,pd,paras,forceresdef,res,hlretdef,llvmretdef,callparas); 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); result:=get_call_result_cgpara(pd,forceresdef);
set_call_function_result(list,pd,llvmretdef,hlretdef,res,result); set_call_function_result(list,pd,llvmretdef,hlretdef,res,result);
end; end;