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

+ thlcgllvm.gen_load_uninitialized_function_result

Browse Source 
git-svn-id: trunk@30670 -
This commit is contained in:
Jonas Maebe 2015-04-19 21:37:31 +00:00
parent 07141e92d3
commit ff3061a7cf
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/llvm/hlcgllvm.pas
View File

@ -87,7 +87,9 @@ uses
procedure gen_proc_symbol_end(list: TAsmList); override;
procedure g_proc_entry(list : TAsmList;localsize : longint;nostackframe:boolean); override;
procedure g_proc_exit(list : TAsmList;parasize:longint;nostackframe:boolean); override;
protected
procedure gen_load_uninitialized_function_result(list: TAsmList; pd: tprocdef; resdef: tdef; const resloc: tcgpara); override;
public
procedure g_overflowcheck(list: TAsmList; const Loc: tlocation; def: tdef); override;
procedure g_overflowCheck_loc(List:TAsmList;const Loc:TLocation;def:TDef;var ovloc : tlocation); override;
@ -1092,6 +1094,19 @@ implementation
end;
procedure thlcgllvm.gen_load_uninitialized_function_result(list: TAsmList; pd: tprocdef; resdef: tdef; const resloc: tcgpara);
var
reg: tregister;
begin
if not paramanager.ret_in_param(resdef,pd) then
begin
reg:=getregisterfordef(list,resdef);
list.concat(taillvm.op_reg_size_undef(la_bitcast,reg,resdef));
a_load_reg_cgpara(list,resdef,reg,resloc);
end;
end;
procedure thlcgllvm.g_overflowcheck(list: TAsmList; const Loc: tlocation; def: tdef);
begin
{ not possible, need ovloc }