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

* fixed safecall for non-LLVM after r43578

Browse Source 
git-svn-id: trunk@43580 -
This commit is contained in:
Jonas Maebe 2019-11-24 21:26:22 +00:00
parent c6116258fd
commit ec227bb759
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/hlcgobj.pas
View File

@ -5211,8 +5211,17 @@ implementation
end;
procedure thlcgobj.gen_load_loc_function_result(list: TAsmList; vardef: tdef; const l: tlocation);
var
safecallretpara: tcgpara;
begin
gen_load_loc_cgpara(list,vardef,l,current_procinfo.procdef.funcretloc[calleeside]);
if not current_procinfo.procdef.generate_safecall_wrapper then
gen_load_loc_cgpara(list,vardef,l,current_procinfo.procdef.funcretloc[calleeside])
else
begin
safecallretpara:=paramanager.get_safecallresult_funcretloc(current_procinfo.procdef,calleeside);
gen_load_loc_cgpara(list,vardef,l,safecallretpara);
safecallretpara.resetiftemp;
end;
end;
procedure thlcgobj.gen_load_loc_cgpara(list: TAsmList; vardef: tdef; const l: tlocation; const cgpara: tcgpara);