paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 17:30:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ constructors to create invoke instructions

Browse Source 
git-svn-id: branches/debug_eh@40404 -
This commit is contained in:
Jonas Maebe 2018-11-29 21:30:56 +00:00
parent 077d7e8551
commit 8711069998
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
compiler/llvm/aasmllvm.pas
View File

@ -115,6 +115,10 @@ interface
constructor call_size_name_paras(callpd: tdef; dst: tregister;retsize: tdef;name:tasmsymbol;paras: tfplist);
{ e.g. dst = call retsize reg (paras) }
constructor call_size_reg_paras(callpd: tdef; dst: tregister;retsize: tdef;reg:tregister;paras: tfplist);
{ e.g. dst = invoke retsize name (paras) to label <normal label> unwind label <exception label> }
constructor invoke_size_name_paras_retlab_exceptlab(callpd: tdef; dst: tregister; retsize: tdef;name: tasmsymbol; paras: tfplist; retlab, exceptlab:TAsmLabel);
{ e.g. dst = invoke retsize reg (paras) to label <normal label> unwind label <exception label> }
constructor invoke_size_reg_paras_retlab_exceptlab(callpd: tdef; dst: tregister; retsize: tdef; reg: tregister; paras: tfplist; retlab, exceptlab:TAsmLabel);
{ inline function-level assembler code and parameters }
constructor asm_paras(asmlist: tasmlist; paras: tfplist);
@ -1095,6 +1099,34 @@ uses
end;
constructor taillvm.invoke_size_name_paras_retlab_exceptlab(callpd: tdef; dst: tregister; retsize: tdef; name: tasmsymbol; paras: tfplist; retlab, exceptlab: TAsmLabel);
begin
create_llvm(la_invoke);
ops:=7;
loaddef(0,retsize);
loadreg(1,dst);
loaddef(2,callpd);
loadsymbol(3,name,0);
loadparas(4,paras);
loadsymbol(5,retlab,0);
loadsymbol(6,exceptlab,0);
end;
constructor taillvm.invoke_size_reg_paras_retlab_exceptlab(callpd: tdef; dst: tregister; retsize: tdef; reg: tregister; paras: tfplist; retlab, exceptlab: TAsmLabel);
begin
create_llvm(la_invoke);
ops:=7;
loaddef(0,retsize);
loadreg(1,dst);
loaddef(2,callpd);
loadreg(3,reg);
loadparas(4,paras);
loadsymbol(5,retlab,0);
loadsymbol(6,exceptlab,0);
end;
constructor taillvm.asm_paras(asmlist: tasmlist; paras: tfplist);
begin
create_llvm(la_asmblock);