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

* add support for la_catch in spilling_get_reg_type (it will never need

Browse Source 
spilling, but we may need the type to insert bitcasts)
  * load the la_catch symbol operand with loadref instead of loadsymbol,
    as the latter sets refaddr_full and with llvm we use that to indicated
    symbol names of named registers rather than data symbols (which in turn
    prevents it from being processed for inserting bitcasts if necessary)

git-svn-id: branches/debug_eh@40412 -
This commit is contained in:
Jonas Maebe 2018-11-29 21:31:21 +00:00
parent ce7579bd50
commit ae65f88f62
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/llvm/aasmllvm.pas
View File

@ -488,7 +488,7 @@ uses
if llvmopcode<>la_landingpad then
internalerror(2018052001);
if op<>la_cleanup then
clause:=taillvm.exceptclause(op,voidpointertype,nil,nil)
clause:=taillvm.exceptclause(op,def,kind,nil)
else
clause:=taillvm.cleanupclause;
lastclause:=self;
@ -569,7 +569,7 @@ uses
end;
end;
la_ret, la_switch, la_indirectbr,
la_resume:
la_resume, la_catch:
begin
{ ret size reg }
if opnr=1 then
@ -1085,11 +1085,14 @@ uses
constructor taillvm.exceptclause(op: tllvmop; def: tdef; kind: TAsmSymbol; nextclause: taillvm);
var
ref: treference;
begin
create_llvm(op);
ops:=3;
loaddef(0,def);
loadsymbol(1,kind,0);
reference_reset_symbol(ref,kind,0,def.alignment,[]);
loadref(1,ref);
loadtai(2,nextclause);
end;